diff options
| author | Luc Teirlinck <teirllm@auburn.edu> | 2006-02-27 02:03:00 +0000 |
|---|---|---|
| committer | Luc Teirlinck <teirllm@auburn.edu> | 2006-02-27 02:03:00 +0000 |
| commit | f352b9d7735eb10f2c604aa9ba0bc8f8ee964d1b (patch) | |
| tree | 66d1c7d3e599b242bda33a35f573134e540b6def /lisp/emacs-lisp/find-func.el | |
| parent | 667b73dcdff92ed14f0266c257a26b6958436ab8 (diff) | |
| download | emacs-f352b9d7735eb10f2c604aa9ba0bc8f8ee964d1b.tar.gz | |
(find-library-suffixes): Use `get-load-suffixes' instead of `load-suffixes'.
(find-library-name): Use `load-file-rep-suffixes' instead of '("").
Diffstat (limited to 'lisp/emacs-lisp/find-func.el')
| -rw-r--r-- | lisp/emacs-lisp/find-func.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el index 8776d4522c2..4f961df0791 100644 --- a/lisp/emacs-lisp/find-func.el +++ b/lisp/emacs-lisp/find-func.el @@ -142,7 +142,7 @@ See the functions `find-function' and `find-variable'." (defun find-library-suffixes () (let ((suffixes nil)) - (dolist (suffix load-suffixes (nreverse suffixes)) + (dolist (suffix (get-load-suffixes) (nreverse suffixes)) (unless (string-match "elc" suffix) (push suffix suffixes))))) (defun find-library-name (library) @@ -153,7 +153,7 @@ See the functions `find-function' and `find-variable'." (setq library (replace-match "" t t library))) (or (locate-file library (or find-function-source-path load-path) - (append (find-library-suffixes) '(""))) + (append (find-library-suffixes) load-file-rep-suffixes)) (error "Can't find library %s" library))) (defvar find-function-C-source-directory |