[Emacs-diffs] Changes to emacs/lisp/subr.el

[Luc Teirlinck]

Index: emacs/lisp/subr.el
diff -u emacs/lisp/subr.el:1.500 emacs/lisp/subr.el:1.501
--- emacs/lisp/subr.el:1.500    Mon Feb 13 11:00:51 2006
+++ emacs/lisp/subr.el  Mon Feb 27 02:01:08 2006
@@ -1324,12 +1324,13 @@
 and the file name is displayed in the echo area."
   (interactive (list (completing-read "Locate library: "
                                      'locate-file-completion
-                                     (cons load-path load-suffixes))
+                                     (cons load-path (get-load-suffixes)))
                     nil nil
                     t))
   (let ((file (locate-file library
                           (or path load-path)
-                          (append (unless nosuffix load-suffixes) '("")))))
+                          (append (unless nosuffix (get-load-suffixes))
+                                  load-file-rep-suffixes))))
     (if interactive-call
        (if file
            (message "Library is file %s" (abbreviate-file-name file))