Mercurial > emacs
changeset 64195:c8096b015bf1
(next-error-hook): New variable.
(next-error): Use it. Doc fix.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Sat, 09 Jul 2005 20:46:26 +0000 |
| parents | 76fced56e97e |
| children | 9967974011d3 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 11 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Sat Jul 09 20:45:26 2005 +0000 +++ b/lisp/simple.el Sat Jul 09 20:46:26 2005 +0000 @@ -110,6 +110,11 @@ :group 'next-error :version "22.1") +(defcustom next-error-hook nil + "*List of hook functions run by `next-error' after visiting source file." + :type 'hook + :group 'next-error) + (defvar next-error-highlight-timer nil) (defvar next-error-overlay-arrow-position nil) @@ -240,9 +245,10 @@ \\[next-error] in that buffer when it is the only one displayed in the current frame. -Once \\[next-error] has chosen the buffer for error messages, -it stays with that buffer until you use it in some other buffer which -uses Compilation mode or Compilation Minor mode. +Once \\[next-error] has chosen the buffer for error messages, it +runs `next-error-hook' with `run-hooks', and stays with that buffer +until you use it in some other buffer which uses Compilation mode +or Compilation Minor mode. See variables `compilation-parse-errors-function' and \`compilation-error-regexp-alist' for customization ideas." @@ -251,7 +257,8 @@ (when (setq next-error-last-buffer (next-error-find-buffer)) ;; we know here that next-error-function is a valid symbol we can funcall (with-current-buffer next-error-last-buffer - (funcall next-error-function (prefix-numeric-value arg) reset)))) + (funcall next-error-function (prefix-numeric-value arg) reset) + (run-hooks 'next-error-hook)))) (defalias 'goto-next-locus 'next-error) (defalias 'next-match 'next-error)