[Emacs-diffs] /srv/bzr/emacs/trunk r107808: Look for leim-list.el files in fewer places at startup

[Glenn Morris]

------------------------------------------------------------
revno: 107808
fixes bug(s): http://debbugs.gnu.org/910
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sun 2012-04-08 23:58:41 -0700
message:
  Look for leim-list.el files in fewer places at startup
  
  * lisp/startup.el (normal-top-level):
  Don't look for leim-list.el in places where it will not be found.
modified:
  etc/NEWS
  lisp/ChangeLog
  lisp/startup.el

=== modified file 'etc/NEWS'
--- a/etc/NEWS  2012-04-07 19:51:51 +0000
+++ b/etc/NEWS  2012-04-09 06:58:41 +0000
@@ -24,6 +24,11 @@
 * Installation Changes in Emacs 24.2
 
 * Startup Changes in Emacs 24.2
+
+** Emacs no longer searches for `leim-list.el' files beneath the standard
+lisp/ directory.  There should not be any there anyway.  If you have
+been adding them there, put them somewhere else, eg site-lisp.
+
 
 * Changes in Emacs 24.2
 

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-04-09 00:58:00 +0000
+++ b/lisp/ChangeLog    2012-04-09 06:58:41 +0000
@@ -1,5 +1,8 @@
 2012-04-09  Glenn Morris  <address@hidden>
 
+       * startup.el (normal-top-level): Don't look for leim-list.el
+       in places where it will not be found.  (Bug#910)
+
        * international/mule-cmds.el (set-default-coding-systems):
        * files.el (normal-mode):
        Remove guarded calls to ucs-set-table-for-input.  (Bug#9821)

=== modified file 'lisp/startup.el'
--- a/lisp/startup.el   2012-03-27 06:45:12 +0000
+++ b/lisp/startup.el   2012-04-09 06:58:41 +0000
@@ -490,13 +490,20 @@
     ;; 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) dir)
+    (let ((tail load-path)
+          (lispdir (expand-file-name "../lisp" data-directory))
+         ;; For out-of-tree builds, leim-list is generated in the build dir.
+;;;          (leimdir (expand-file-name "../leim" doc-directory))
+          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))
+       ;; Do not scan standard directories that won't contain a leim-list.el.
+       ;; http://lists.gnu.org/archive/html/emacs-devel/2009-10/msg00502.html
+       (or (string-match (concat "\\`" lispdir) dir)
+           (let ((default-directory dir))
+             (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.