From dc1e0ac761725931f23de13df4ef5020372a52a0 Mon Sep 17 00:00:00 2001 From: Tino Calancha Date: Mon, 25 Apr 2016 19:27:06 +0200 Subject: 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) --- lisp/help-mode.el | 2 ++ 1 file changed, 2 insertions(+) (limited to 'lisp/help-mode.el') 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")))) -- cgit v1.2.1