Index: simple.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/simple.el,v
retrieving revision 1.861
diff -c -r1.861 simple.el
*** simple.el	20 May 2007 03:12:20 -0000	1.861
--- simple.el	21 Jun 2007 09:15:00 -0000
***************
*** 156,161 ****
--- 156,169 ----
    :group 'next-error
    :version "22.1")
  
+ (defcustom next-error-recenter nil
+   "*Display the line in the visited source file recentered to this number.
+ If nil, don't do any recentering."
+   :type '(choice (number :tag "Argument for `recenter'")
+                  (const :tag "No recentering" nil))
+   :group 'next-error
+   :version "23.1")
+ 
  (defcustom next-error-hook nil
    "*List of hook functions run by `next-error' after visiting source file."
    :type 'hook
***************
*** 305,310 ****
--- 313,320 ----
      ;; 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)
+       (when next-error-recenter
+         (recenter next-error-recenter))
        (run-hooks 'next-error-hook))))
  
  (defun next-error-internal ()
***************
*** 313,318 ****
--- 323,330 ----
    ;; 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 0 nil)
+     (when next-error-recenter
+       (recenter next-error-recenter))
      (run-hooks 'next-error-hook)))
  
  (defalias 'goto-next-locus 'next-error)