Re: some subdirs.el won't be loaded

[Kenichi Handa <handa@m17n.org>]

In article <jwv64x8adhb.fsf-monnier+emacs@gnu.org>, Stefan Monnier <monnier@iro.umontreal.ca> 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
handa@m17n.org

> --- 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
> Emacs-devel@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-devel