From 667b73dcdff92ed14f0266c257a26b6958436ab8 Mon Sep 17 00:00:00 2001 From: Luc Teirlinck Date: Mon, 27 Feb 2006 02:01:08 +0000 Subject: [PATCH] (locate-library): Use `get-load-suffixes' instead of `load-suffixes' and `load-file-rep-suffixes' instead of '(""). --- lisp/subr.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/subr.el b/lisp/subr.el index c543ecffad3..f515b6b3753 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -1324,12 +1324,13 @@ string. When run interactively, the argument INTERACTIVE-CALL is t, 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)) -- 2.39.5