diff options
| author | Dave Love <[email protected]> | 1998-08-27 09:21:01 +0000 |
|---|---|---|
| committer | Dave Love <[email protected]> | 1998-08-27 09:21:01 +0000 |
| commit | 5134d850aa743a5fd2c2162b5278a56ddca1dc5b (patch) | |
| tree | 622c2ef8f1f1f3ace923c935f1055c15c5298ab5 /lisp | |
| parent | e325120d45691198840095a3b0536ef69af3363e (diff) | |
(find-function-search-for-symbol): Look
for compressed library files too.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/find-func.el | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el index 53e06d590f..4adf67346a 100644 --- a/lisp/emacs-lisp/find-func.el +++ b/lisp/emacs-lisp/find-func.el @@ -111,6 +111,8 @@ If VARIABLE-P is nil, `find-function-regexp' is used, otherwise (if (string-match "\\.el\\(c\\)\\'" library) (setq library (substring library 0 (match-beginning 1)))) (let* ((path find-function-source-path) + (compression (or (rassq 'jka-compr-handler file-name-handler-alist) + (member 'crypt-find-file-hook find-file-hooks))) (filename (if (and (file-exists-p library) (not (file-directory-p library))) library @@ -119,7 +121,12 @@ If VARIABLE-P is nil, `find-function-regexp' is used, otherwise (setq library (substring library 0 (match-beginning 1)))) (or (locate-library (concat library ".el") t path) - (locate-library library t path))))) + (locate-library library t path) + (if compression + (or (locate-library (concat library ".el.gz") + t path) + (locate-library (concat library ".gz") + t path))))))) (if (not filename) (error "The library \"%s\" is not in the path." library)) (with-current-buffer (find-file-noselect filename) |