From 28adf31caa5f571d30c028a63563db94a548f164 Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Sat, 23 Jun 2007 12:19:38 +0000 Subject: [PATCH] (next-error-recenter): Accept `(4)' as well; also, specify `integer' instead of `number'. --- lisp/ChangeLog | 5 +++++ lisp/simple.el | 7 ++++--- 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 + + * simple.el (next-error-recenter): Accept `(4)' as well; + also, specify `integer' instead of `number'. + 2007-06-23 Eli Zaretskii * 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") -- 2.39.2