(locate-library): Use load-suffixes and abbrev filename.

diff --git a/lisp/help-funs.el b/lisp/help-funs.el
index 73cde50054341a742d62864addb2f52894fc024a..977626f3a291d80377bf04bfd59dfb9db6fb4593 100644 (file)
--- a/lisp/help-funs.el
+++ b/lisp/help-funs.el
@@ -82,7 +82,7 @@ With arg, you are asked to choose which language."
   "Show the precise file name of Emacs library LIBRARY.
 This command searches the directories in `load-path' like `M-x load-library'
 to find the file that `M-x load-library RET LIBRARY RET' would load.
-Optional second arg NOSUFFIX non-nil means don't add suffixes `.elc' or `.el'
+Optional second arg NOSUFFIX non-nil means don't add suffixes `load-suffixes'
 to the specified name LIBRARY.
 
 If the optional third arg PATH is specified, that list of directories
@@ -94,40 +94,19 @@ and the file name is displayed in the echo area."
   (interactive (list (read-string "Locate library: ")
                     nil nil
                     t))
-  (let (result)
-    (catch 'answer
-      (mapc
-       (lambda (dir)
-        (mapc
-         (lambda (suf)
-           (let ((try (expand-file-name (concat library suf) dir)))
-             (and (file-readable-p try)
-                  (null (file-directory-p try))
-                  (progn
-                    (setq result try)
-                    (throw 'answer try)))))
-         (if nosuffix
-             '("")
-           '(".elc" ".el" "")
-           (let ((basic '(".elc" ".el" ""))
-                 (compressed '(".Z" ".gz" "")))
-             ;; If autocompression mode is on,
-             ;; consider all combinations of library suffixes
-             ;; and compression suffixes.
-             (if (rassq 'jka-compr-handler file-name-handler-alist)
-                 (apply 'nconc
-                        (mapcar (lambda (compelt)
-                                  (mapcar (lambda (baselt)
-                                            (concat baselt compelt))
-                                          basic))
-                                compressed))
-               basic)))))
-       (or path load-path)))
-    (and interactive-call
-        (if result
-            (message "Library is file %s" result)
-          (message "No library %s in search path" library)))
-    result))
+  (catch 'answer
+    (dolist (dir (or path load-path))
+      (dolist (suf (append (unless nosuffix load-suffixes) '("")))
+       (let ((try (expand-file-name (concat library suf) dir)))
+         (and (file-readable-p try)
+              (null (file-directory-p try))
+              (progn
+                (if interactive-call
+                    (message "Library is file %s" (abbreviate-file-name try)))
+                (throw 'answer try))))))
+    (if interactive-call
+       (message "No library %s in search path" library))
+    nil))
 
 \f
 ;; Functions

diff --git a/src/ChangeLog b/src/ChangeLog
index 799d43bf4fac994d75c5eecde54d6aedd59bb8c1..ebdcb23e3cde644b540c08108819c74b3e85e94c 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2001-10-12  Stefan Monnier  <monnier@cs.yale.edu>
+
+       * minibuf.c (keys_of_minibuf): Eliminate redundant bindings.
+
 2001-10-12  Gerd Moellmann  <gerd@gnu.org>
 
        * xterm.c (notice_overwritten_cursor): Renamed from