mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

(find-function-search-for-symbol): Look

Browse source 
for compressed library files too.
This commit is contained in:
Dave Love 1998-08-27 09:21:01 +00:00
parent e325120d45
commit 5134d850aa
1 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/emacs-lisp/find-func.el
View file

@ -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)