Mercurial > emacs
changeset 69168:6e701396a0ec
(locate-library): Use `get-load-suffixes' instead of `load-suffixes'
and `load-file-rep-suffixes' instead of '("").
| author | Luc Teirlinck <teirllm@auburn.edu> |
|---|---|
| date | Mon, 27 Feb 2006 02:01:08 +0000 |
| parents | 35ff03ec3238 |
| children | 10a4ff23378e |
| files | lisp/subr.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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))