diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2002-09-12 21:48:20 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2002-09-12 21:48:20 +0000 |
| commit | 4dbf594b9ff464fbf64b46120d19fb064db14753 (patch) | |
| tree | 01fe85560ec1ce25a1c85a2ca1867bf5eb8fb28d /lisp/emacs-lisp | |
| parent | df52e0e7ac71f817373f40f0a5fecf933278b51c (diff) | |
| download | emacs-4dbf594b9ff464fbf64b46120d19fb064db14753.tar.gz emacs-4dbf594b9ff464fbf64b46120d19fb064db14753.tar.bz2 emacs-4dbf594b9ff464fbf64b46120d19fb064db14753.zip | |
(find-library-name): Don't forget the empty suffix. Fix stale variable name.
Diffstat (limited to 'lisp/emacs-lisp')
| -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 40016cec928..6186577079e 100644 --- a/lisp/emacs-lisp/find-func.el +++ b/lisp/emacs-lisp/find-func.el @@ -125,8 +125,8 @@ See the functions `find-function' and `find-variable'." (setq library (replace-match "" t t library 1))) (or (locate-file library (or find-function-source-path load-path) - (find-library-suffixes)) - (error "Can't find library %s" file))) + (append (find-library-suffixes) "")) + (error "Can't find library %s" library))) ;;;###autoload (defun find-library (library) |