From: Thien-Thi Nguyen Date: Sat, 23 Jun 2007 12:19:38 +0000 (+0000) Subject: (next-error-recenter): Accept `(4)' as well; X-Git-Tag: emacs-pretest-23.0.90~12133 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=28adf31caa5f571d30c028a63563db94a548f164;p=emacs.git (next-error-recenter): Accept `(4)' as well; also, specify `integer' instead of `number'. --- 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")