Commit 357438eb authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(normal-top-level): Look in each dir in load-path for a leim-list.el

file too.  This assures of loading leim-list.el that is created at
Emacs installation time even if a user have his own leim-list.el.
parent abfdbd2e
......@@ -408,6 +408,8 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
;; Look in each dir in load-path for a subdirs.el file.
;; If we find one, load it, which will add the appropriate subdirs
;; of that dir into load-path,
;; Look for a leim-list.el file too. Loading it will register
;; available input methods.
(let ((tail load-path)
new)
(while tail
......@@ -415,6 +417,9 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
(condition-case nil
(let ((default-directory (car tail)))
(load (expand-file-name "subdirs.el" (car tail)) t t t)))
(condition-case nil
(let ((default-directory (car tail)))
(load (expand-file-name "leim-list.el" (car tail)) t t t)))
(setq tail (cdr tail))))
(if (not (eq system-type 'vax-vms))
(progn
......@@ -662,9 +667,6 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
(if site-run-file
(load site-run-file t t))
;; Register available input methods by loading LEIM list file.
(load "leim-list.el" 'noerror 'nomessage 'nosuffix)
;; Sites should not disable this. Only individuals should disable
;; the startup message.
(setq inhibit-startup-message nil)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment