diff options
author | Tino Calancha <f92capac@gmail.com> | 2016-04-25 19:27:06 +0200 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2016-09-23 16:36:24 +0300 |
commit | dc1e0ac761725931f23de13df4ef5020372a52a0 (patch) | |
tree | 7d43fe38a26118834a6d54ba836b9fe3519895f1 /lisp/help-mode.el | |
parent | 0ae9a816b9f68bd3f50fc287a342237c8b4fe78d (diff) | |
download | emacs-dc1e0ac761725931f23de13df4ef5020372a52a0.tar.gz |
Run find-function-after-hook after finding a symbol
* 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).
* etc/NEWS: Mention the change.
This is a backport from master.
(cherry picked from commit f069d854508946bcc03e4c77ceb430748e3ab6d7)
Diffstat (limited to 'lisp/help-mode.el')
-rw-r--r-- | lisp/help-mode.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/help-mode.el b/lisp/help-mode.el index 7b95e5fb04e..e008698618c 100644 --- a/lisp/help-mode.el +++ b/lisp/help-mode.el @@ -202,6 +202,7 @@ The format is (FUNCTION ARGS...).") (let ((location (find-function-search-for-symbol fun type file))) (pop-to-buffer (car location)) + (run-hooks 'find-function-after-hook) (if (cdr location) (goto-char (cdr location)) (message "Unable to find location in file")))) @@ -231,6 +232,7 @@ The format is (FUNCTION ARGS...).") (setq file (help-C-file-name var 'var))) (let ((location (find-variable-noselect var file))) (pop-to-buffer (car location)) + (run-hooks 'find-function-after-hook) (if (cdr location) (goto-char (cdr location)) (message "Unable to find location in file")))) |