(next-error-recenter): Accept `(4)' as well;

also, specify `integer' instead of `number'.

2 files changed, 9 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8f687cfdd15..9b00e749452 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-06-23  Thien-Thi Nguyen  <ttn@gnuvola.org>
+
+        * simple.el (next-error-recenter): Accept `(4)' as well;
+        also, specify `integer' instead of `number'.
+
 2007-06-23  Eli Zaretskii  <eliz@gnu.org>
 
         * ls-lisp.el (insert-directory): If an invalid regexp error is
diff --git a/lisp/simple.el b/lisp/simple.el
index 765032f9f8d..b6b55a5f2eb 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -157,9 +157,10 @@ If `fringe-arrow', indicate the locus by the fringe arrow."
   :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'")
+  "*Display the line in the visited source file recentered as specified.
+If non-nil, the value is passed directly to `recenter'."
+  :type '(choice (integer :tag "Line to recenter to")
+                 (const :tag "Center of window" (4))
                  (const :tag "No recentering" nil))
   :group 'next-error
   :version "23.1")