/[emacs]/emacs/lisp/startup.el
ViewVC logotype

Diff of /emacs/lisp/startup.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.357 by lektu, Mon May 16 11:33:47 2005 UTC revision 1.358 by monnier, Wed May 25 14:18:44 2005 UTC
# Line 368  or `CVS', and any subdirectory that cont Line 368  or `CVS', and any subdirectory that cont
368      ;; of that dir into load-path,      ;; of that dir into load-path,
369      ;; Look for a leim-list.el file too.  Loading it will register      ;; Look for a leim-list.el file too.  Loading it will register
370      ;; available input methods.      ;; available input methods.
371      (dolist (dir load-path)      (let ((tail load-path) dir)
372        (let ((default-directory dir))        (while tail
373          (load (expand-file-name "subdirs.el") t t t))          (setq dir (car tail))
374        (let ((default-directory dir))          (let ((default-directory dir))
375          (load (expand-file-name "leim-list.el") t t t)))            (load (expand-file-name "subdirs.el") t t t))
376            (let ((default-directory dir))
377              (load (expand-file-name "leim-list.el") t t t))
378            ;; We don't use a dolist loop and we put this "setq-cdr" command at
379            ;; the end, because the subdirs.el files may add elements to the end
380            ;; of load-path and we want to take it into account.
381            (setq tail (cdr tail))))
382      (unless (eq system-type 'vax-vms)      (unless (eq system-type 'vax-vms)
383        ;; If the PWD environment variable isn't accurate, delete it.        ;; If the PWD environment variable isn't accurate, delete it.
384        (let ((pwd (getenv "PWD")))        (let ((pwd (getenv "PWD")))

Legend:
Removed from v.1.357  
changed lines
  Added in v.1.358

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26