[Emacs-diffs] Changes to emacs/lisp/simple.el

[Juri Linkov]

Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.736 emacs/lisp/simple.el:1.737
*** emacs/lisp/simple.el:1.736  Mon Jul  4 23:08:58 2005
--- emacs/lisp/simple.el        Sat Jul  9 20:46:26 2005
***************
*** 110,115 ****
--- 110,120 ----
    :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,248 ****
  \\[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.
  
  See variables `compilation-parse-errors-function' and
  \`compilation-error-regexp-alist' for customization ideas."
--- 245,254 ----
  \\[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
! 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,257 ****
    (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))))
  
  (defalias 'goto-next-locus 'next-error)
  (defalias 'next-match 'next-error)
--- 257,264 ----
    (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)
!       (run-hooks 'next-error-hook))))
  
  (defalias 'goto-next-locus 'next-error)
  (defalias 'next-match 'next-error)