Hi,
Here is a snippet from my startup files, and also the
emacs-vers.el file.
manoj
=========================== ~/.emacs ===================================
(load-file "~/lib/emacs/functions/emacs-vers.el")
(if (string-match "xemacs" (emacs-version))
(load-file "~/.xemacs")
(load-library "mailcrypt-init")
;;; <(my-emacs-config-dir)>
(defvar my-emacs-config-dir
(expand-file-name (concat "~" (user-login-name) "/lib/emacs"))
"*The directory where Personal emacs config files are kept."
)
;; (maybe-recompile (concat my-emacs-config-dir "/manoj-config.el"))
;; On error in init file, just reload this file to see the error
;; <(config-file)>
(let ((debug-on-error t))
;;; add our own emacs directory to the path.
(if (not (member my-emacs-config-dir load-path))
(setq load-path (cons my-emacs-config-dir load-path)))
(load-library "manoj-config")
)
)
========================== manoj-config.el =============================
;; Add our local lisp directory to the path
(defvar manoj-lisp-subdirs (list "bbdb" "config" "dmacro" "functions"
"lisp" "mail" "modes" "x-support" "debian")
"*The list of subdirtectories we want in the path.")
(defvar my-emacs-config-dir
(expand-file-name (concat "~" (user-login-name) "/lib/emacs"))
"*The directory where Personal emacs config files are kept."
)
(let ((subdirs (mapcar
(function
(lambda (x)
(expand-file-name
(concat
my-emacs-config-dir "/" x))))
manoj-lisp-subdirs)))
(while subdirs
(let ((subdir (car subdirs)))
(if (not (member subdir load-path))
(setq load-path (cons subdir load-path))))
(setq subdirs (cdr subdirs))))
(if (emacs-type-eq 'fsf)
(if (emacs-version= 19)
(if (not (member
(concat my-emacs-config-dir "/" "emacs19")
load-path))
(setq load-path
(cons
(concat my-emacs-config-dir "/" "emacs19")
load-path)))
(if (emacs-version= 20)
(if (not (member
(concat my-emacs-config-dir "/" "emacs20")
load-path))
(setq load-path
(cons
(concat my-emacs-config-dir "/" "emacs20")
load-path)))))
(if (emacs-type-eq 'xemacs)
(if (not (member
(concat my-emacs-config-dir "/" "xemacs19")
load-path))
(setq load-path
(cons
(concat my-emacs-config-dir "/" "xemacs19")
load-path)))
(if (emacs-version= 20)
(if (not (member
(concat my-emacs-config-dir "/" "xemacs20")
load-path))
(setq load-path
(cons
(concat my-emacs-config-dir "/" "xemacs20")
load-path))))))
======================================================================
Attachment:
emacs-vers.el
Description: emacs version
-- A physicist is an atoms way of knowing about atoms. George Wald Manoj Srivastava <srivasta@debian.org> <http://www.debian.org/%7Esrivasta/> 1024R/C7261095 print CB D9 F4 12 68 07 E4 05 CC 2D 27 12 1D F5 E8 6E 1024D/BF24424C print 4966 F272 D093 B493 410B 924B 21BA DABB BF24 424C