procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

; Run find-function-after-hook after finding a symbol

Browse source 
* lisp/emacs-lisp/find-func.el (find-library):
* lisp/help-mode.el (help-function-def, help-variable-def):
Run `find-function-after-hook' inside the help-function of the
buttons (bug#22583).
This commit is contained in:
Tino Calancha 2016-04-25 19:27:06 +02:00 • committed by Lars Magne Ingebrigtsen
parent db2ee1cd63
commit f069d85450
3 changed files with 11 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -283,7 +283,11 @@ LIBRARY should be a string (the name of the library)."
"Library name: ")
table nil nil nil nil def))))
(let ((buf (find-file-noselect (find-library-name library))))
(condition-case nil (switch-to-buffer buf) (error (pop-to-buffer buf)))))
(condition-case nil
(prog1
(switch-to-buffer buf)
(run-hooks 'find-function-after-hook))
(error (pop-to-buffer buf)))))
;;;###autoload
(defun find-function-search-for-symbol (symbol type library)