;; Rx3 Config

(add-to-list 'load-path "/usr/global/share/emacs/site-lisp")
(add-to-list 'load-path "/usr/local/share/emacs/site-lisp")

;; Load package or local system startup files:
(let* ((paths '("/usr/global/etc/emacs/site-start.d" "/usr/local/etc/emacs/site-start.d"))
       ;; Get a list of all the files in all	 the specified
       ;; directories that match the pattern.
       (files
	(apply 'append
	       (mapcar
		(lambda (dir)
		  (directory-files dir t "^.*\\.el$" nil))
		paths))))
  (mapcar
   (lambda (file)
     (if debug-on-error
	 (load-file file)
       (condition-case ()
	   (load file nil)
	 (error (message "Error while loading %s" file)))))
   files)
  )