[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: some subdirs.el won't be loaded
From: |
Kenichi Handa |
Subject: |
Re: some subdirs.el won't be loaded |
Date: |
Wed, 25 May 2005 09:49:26 +0900 |
User-agent: |
SEMI/1.14.3 (Ushinoya) FLIM/1.14.2 (Yagi-Nishiguchi) APEL/10.2 Emacs/22.0.50 (i686-pc-linux-gnu) MULE/5.0 (SAKAKI) |
In article <address@hidden>, Stefan Monnier <address@hidden> writes:
>> normal-top-level-add-to-load-path appends directories to
>> load-path destructively, but because of above change,
>> subdirs.el in those newly added directories are not loaded.
> Aaaahhh indeed.
> Would the patch below fix things?
Yes. Thank you!
---
Kenichi Handa
address@hidden
> --- startup.el 19 mai 2005 11:05:48 -0400 1.357
> +++ startup.el 24 mai 2005 10:51:21 -0400
> @@ -368,11 +368,17 @@
> ;; of that dir into load-path,
> ;; Look for a leim-list.el file too. Loading it will register
> ;; available input methods.
> - (dolist (dir load-path)
> + (let ((tail load-path) dir)
> + (while tail
> + (setq dir (car tail))
> (let ((default-directory dir))
> (load (expand-file-name "subdirs.el") t t t))
> (let ((default-directory dir))
> - (load (expand-file-name "leim-list.el") t t t)))
> + (load (expand-file-name "leim-list.el") t t t))
> + ;; We don't use a dolist loop and we put this "setq-cdr" command at
> + ;; the end, because the subdirs.el files may add elements to the end
> + ;; of load-path and we want to take it into account.
> + (setq tail (cdr tail))))
> (unless (eq system-type 'vax-vms)
> ;; If the PWD environment variable isn't accurate, delete it.
> (let ((pwd (getenv "PWD")))
> _______________________________________________
> Emacs-devel mailing list
> address@hidden
> http://lists.gnu.org/mailman/listinfo/emacs-devel