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"))) |