From 5134d850aa743a5fd2c2162b5278a56ddca1dc5b Mon Sep 17 00:00:00 2001 From: Dave Love Date: Thu, 27 Aug 1998 09:21:01 +0000 Subject: [PATCH] (find-function-search-for-symbol): Look for compressed library files too. --- lisp/emacs-lisp/find-func.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el index 53e06d590ff..4adf67346a7 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) -- 2.39.2