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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8f687cfdd157b50acf44f13c893b69011b3a4761..9b00e749452d9b447c01f1a6c7ad4984d7bd9f66 100644 (file)
--- 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 765032f9f8da50fc459e006325fe3e6ef716ccee..b6b55a5f2eb2024004f3cd46347065796f9c1c24 100644 (file)
--- 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")