mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 02:31:03 -08:00
Code Issues Projects Releases Wiki Activity

(find-function-search-for-symbol): Strip extension

Browse source 
from .emacs.el to make sure symbol is searched in .emacs too.
This commit is contained in:
Martin Rudalics 2008-01-29 17:40:19 +00:00
parent 6f70aa334f
commit 5c8a04f1a9
2 changed files with 12 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2008-01-29 Martin Rudalics <rudalics@gmx.at>
* emacs-lisp/find-func.el (find-function-search-for-symbol):
Strip extension from .emacs.el to make sure symbol is searched
in .emacs too.
2008-01-29 Tassilo Horn <tassilo@member.fsf.org>
* doc-view.el (doc-view-mode): Use facilities below to

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

@ -239,7 +239,11 @@ The search is done in the source for library LIBRARY."
(setq symbol (get symbol 'definition-name)))
(if (string-match "\\`src/\\(.*\\.c\\)\\'" library)
(find-function-C-source symbol (match-string 1 library) type)
(if (string-match "\\.el\\(c\\)\\'" library)
(when (string-match "\\.el\\(c\\)\\'" library)
(setq library (substring library 0 (match-beginning 1))))
;; Strip extension from .emacs.el to make sure symbol is searched in
;; .emacs too.
(when (string-match "\\.emacs\\(.el\\)" library)
(setq library (substring library 0 (match-beginning 1))))
(let* ((filename (find-library-name library))
(regexp-symbol (cdr (assq type find-function-regexp-alist))))