mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-16 17:19:41 +00:00
Code Issues Releases Activity

(find-function-search-for-symbol): Obey `definition-name' properties.

Browse Source
This commit is contained in:
Richard M. Stallman 2002-08-13 01:49:40 +00:00
parent 0256550475
commit 2bef95e520
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/emacs-lisp/find-func.el
View File

@ -118,6 +118,10 @@ If VARIABLE-P is nil, `find-function-regexp' is used, otherwise
`find-variable-regexp' is used. The search is done in library LIBRARY."
(if (null library)
(error "Don't know where `%s' is defined" symbol))
;; Some functions are defined as part of the construct
;; that defines something else.
(while (get symbol 'definition-name)
(setq symbol (get symbol 'definition-name)))
(save-match-data
(if (string-match "\\.el\\(c\\)\\'" library)
(setq library (substring library 0 (match-beginning 1))))