;;; (nominal) emacs initalization file
;;;
;;; chad brown
;;; yandros@mit.edu

(defconst emacs-type 
  (cond  ((boundp 'epoch::version)                      'epoch)
	 ((string-match "XEmacs" emacs-version)  	'xemacs)
	 ((string-match "^20" emacs-version)            'emacs20)
	 ((string-match "^19" emacs-version)            'emacs19)
	 ((string-match "^18" emacs-version)            'emacs18))         
  "Type of emacs we're running.  One of epoch, lemacs, emacs18, or emacs19")


(defun _run-startup-20 ()
  "Run startup configuration for emacs 20."
  (message "Begining E20 startup...")
  (load "~/elisp/startup"))

(defun _run-startup-xemacs ()
  "Run startup configuration for XEmacs (used to be Lucid)."
  (message "You haven't really customized Xemacs yet."))

(defun _run-startup-XX ()
  "Complain about lack of setup for this version of emacs."
  (message "You haven't set up to run this version of emacs."))


(cond   ((eq emacs-type 'emacs20) 	(_run-startup-20))
	((eq emacs-type 'xemacs)	(_run-startup-xemacs))
	(t		       		(_run-startup-XX)))

(custom-set-variables
 '(mail-host-address "mit.edu"))
(custom-set-faces)
