diff options
| author | Stefan Monnier | 2002-09-25 18:58:37 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2002-09-25 18:58:37 +0000 |
| commit | 1a40d81d1a511d2c0bb6be6e2149f6a3e84aa06c (patch) | |
| tree | fe44043e6510c19ddea72d175d91df909ba6e041 | |
| parent | f2d2436d43c76b9c8e7cd53342bf40218ae16cae (diff) | |
| download | emacs-1a40d81d1a511d2c0bb6be6e2149f6a3e84aa06c.tar.gz emacs-1a40d81d1a511d2c0bb6be6e2149f6a3e84aa06c.zip | |
(find-library-name): Correctly find "f.el.gz" from "f.elc" or "f.elc.gz".
| -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 c05167cc3c9..1ca39b461f7 100644 --- a/lisp/emacs-lisp/find-func.el +++ b/lisp/emacs-lisp/find-func.el | |||
| @@ -121,8 +121,8 @@ See the functions `find-function' and `find-variable'." | |||
| 121 | "Return the full name of the elisp source of LIBRARY." | 121 | "Return the full name of the elisp source of LIBRARY." |
| 122 | ;; If the library is byte-compiled, try to find a source library by | 122 | ;; If the library is byte-compiled, try to find a source library by |
| 123 | ;; the same name. | 123 | ;; the same name. |
| 124 | (if (string-match "\\.el\\(c\\(\\..*\\)\\)\\'" library) | 124 | (if (string-match "\\.el\\(c\\(\\..*\\)?\\)\\'" library) |
| 125 | (setq library (replace-match "" t t library 1))) | 125 | (setq library (replace-match "" t t library))) |
| 126 | (or (locate-file library | 126 | (or (locate-file library |
| 127 | (or find-function-source-path load-path) | 127 | (or find-function-source-path load-path) |
| 128 | (append (find-library-suffixes) '(""))) | 128 | (append (find-library-suffixes) '(""))) |