Commit f069d854 authored by Tino Calancha's avatar Tino Calancha Committed by Lars Magne Ingebrigtsen

; 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).
parent db2ee1cd
......@@ -56,7 +56,10 @@ affected by this, as SGI stopped supporting IRIX in December 2013.
* Changes in Emacs 25.2
--
** `find-library', `help-function-def' and `help-variable-def' now run
`find-function-after-hook'.
---
** 'process-attributes' on Darwin systems now returns more information.
+++
......
......@@ -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)
......
......@@ -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"))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment