# HG changeset patch
# User Luc Teirlinck <teirllm@auburn.edu>
# Date 1141005668 0
# Node ID 6e701396a0ec4ef7cf329e56b67f110886ca1ddf
# Parent  35ff03ec3238ec8be64bf66786518c5154103c14
(locate-library): Use `get-load-suffixes' instead of `load-suffixes'
and `load-file-rep-suffixes' instead of '("").

diff -r 35ff03ec3238 -r 6e701396a0ec lisp/subr.el
--- a/lisp/subr.el	Mon Feb 27 01:58:04 2006 +0000
+++ b/lisp/subr.el	Mon Feb 27 02:01:08 2006 +0000
@@ -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))