diff --git a/find-func.el b/find-func.el index 0575ce4..e05f75c 100644 --- a/find-func.el +++ b/find-func.el @@ -302,7 +302,10 @@ The search is done in the source for library LIBRARY." (while (and (symbolp symbol) (get symbol 'definition-name)) (setq symbol (get symbol 'definition-name))) (if (string-match "\\`src/\\(.*\\.\\(c\\|m\\)\\)\\'" library) - (find-function-C-source symbol (match-string 1 library) type) + (let* ((buf-pos (find-function-C-source symbol (match-string 1 library) type)) + (buf (car buf-pos))) + (when buf (with-current-buffer buf + (run-hooks 'find-function-after-hook))) buf-pos) (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 @@ -340,6 +343,7 @@ The search is done in the source for library LIBRARY." "\\_>") nil t))) (progn + (run-hooks 'find-function-after-hook) (beginning-of-line) (cons (current-buffer) (point))) (cons (current-buffer) nil))))))))