HCoop
/
bpt
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
0256550
)
(find-function-search-for-symbol): Obey `definition-name' properties.
author
Richard M. Stallman
<rms@gnu.org>
Tue, 13 Aug 2002 01:49:40 +0000
(
01:49
+0000)
committer
Richard M. Stallman
<rms@gnu.org>
Tue, 13 Aug 2002 01:49:40 +0000
(
01:49
+0000)
lisp/emacs-lisp/find-func.el
patch
|
blob
|
blame
|
history
diff --git
a/lisp/emacs-lisp/find-func.el
b/lisp/emacs-lisp/find-func.el
index
93c1f27
..
1ced2ea
100644
(file)
--- a/
lisp/emacs-lisp/find-func.el
+++ b/
lisp/emacs-lisp/find-func.el
@@
-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))))