(next-error-recenter): New defcustom.

(next-error, next-error-internal): Recenter if specified,
immediately prior to running `next-error-hook'.

2 files changed, 20 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3b0feac8f55..a38e26710f0 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2007-06-22  Thien-Thi Nguyen  <ttn@gnuvola.org>
+
+        * simple.el (next-error-recenter): New defcustom.
+        (next-error, next-error-internal): Recenter if specified,
+        immediately prior to running `next-error-hook'.
+
 2007-06-22  Jay Belanger  <jay.p.belanger@gmail.com>
 
         * calc/calc-comb.el (math-small-factorial-table): New variable.
@@ -22,7 +28,7 @@
 2007-06-22  Dan Nicolaescu  <dann@ics.uci.edu>
 
         * vc-bzr.el (vc-bzr-log-view-mode): Add + to the email address
-        regexp. 
+        regexp.
 
         * vc-hg.el (vc-hg-log-view-mode): New mode.
 
@@ -48,7 +54,7 @@
 
         * textmodes/org.el  (org-export-with-footnotes): New option.
         (org-export-as-html): Fixed replacement bug for XEmacs.
-        (org-agenda-default-appointment-duration): New option. 
+        (org-agenda-default-appointment-duration): New option.
 
 2007-06-21  Dan Nicolaescu  <dann@ics.uci.edu>
 
diff --git a/lisp/simple.el b/lisp/simple.el
index daedae6100c..765032f9f8d 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -156,6 +156,14 @@ If `fringe-arrow', indicate the locus by the fringe arrow."
   :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.  See `recenter'."
+  :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,6 +313,8 @@ See variables `compilation-parse-errors-function' and
     ;; 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,6 +323,8 @@ See variables `compilation-parse-errors-function' and
   ;; 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)