;;; primary emacs configuration [bert]

; determine Emacs version

(defvar emacs-id
  (cond ((boundp 'MULE) "mule")
	((string-match "[Xx][Ee]macs" emacs-version) "xemacs")
	((string-match "[Ll]ucid" emacs-version) "lucid")
	((boundp 'epoch::version) "lucid")
	((string-match "^\\([^\\.]*\\.[^\\.]*\\)\\." emacs-version)
	 (substring emacs-version
		    (match-beginning 1)
		    (match-end 1))))
  "Emacs version identifier")


(if (not (boundp 'emacs-major-version))
    (defvar emacs-major-version
      (progn
	(string-match "^\\([^\\.]*\\)\\." emacs-version)
	(substring emacs-version
		   (match-beginning 1)
		   (match-end 1)))
      "Emacs major version identifier") )

; set load-path 

(setq load-path
      (append
       (list (concat "/afs/athena/user/b/e/bert/elisp/" emacs-id)
	     (concat "/afs/athena/user/b/e/bert/elisp/" emacs-major-version)
	     "/afs/athena/user/b/e/bert/elisp/common")
       load-path))

; load initialization for this version of Emacs (w/o "loading..." message)

(load "emacs" 'nil 't)

;;; and now, a piece of magic

;; Local variables:
;; mode:emacs-lisp
;; End: