diff options
| -rw-r--r-- | lisp/emacs-lisp/find-func.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el index 1ced2eae808..e305fac2116 100644 --- a/lisp/emacs-lisp/find-func.el +++ b/lisp/emacs-lisp/find-func.el | |||
| @@ -127,7 +127,7 @@ If VARIABLE-P is nil, `find-function-regexp' is used, otherwise | |||
| 127 | (setq library (substring library 0 (match-beginning 1)))) | 127 | (setq library (substring library 0 (match-beginning 1)))) |
| 128 | (let* ((path find-function-source-path) | 128 | (let* ((path find-function-source-path) |
| 129 | (compression (or (rassq 'jka-compr-handler file-name-handler-alist) | 129 | (compression (or (rassq 'jka-compr-handler file-name-handler-alist) |
| 130 | (member 'crypt-find-file-hook find-file-hooks))) | 130 | (member 'crypt-find-file-hook find-file-hook))) |
| 131 | (filename (progn | 131 | (filename (progn |
| 132 | ;; use `file-name-sans-extension' here? (if it gets fixed) | 132 | ;; use `file-name-sans-extension' here? (if it gets fixed) |
| 133 | (if (string-match "\\(\\.el\\)\\'" library) | 133 | (if (string-match "\\(\\.el\\)\\'" library) |