Add the `recenter-redisplay' variable, and make `recenter' use it.

Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1604

2 files changed, 10 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 75b1048baca..879d8b37655 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2009-06-23  Miles Bader  <miles@gnu.org>
+
+        * cus-start.el: Add entry for `recenter-redisplay'.
+
 2009-06-22  Dan Nicolaescu  <dann@ics.uci.edu>
 
         * vc-hooks.el (vc-stay-local-p, vc-state, vc-working-revision):
diff --git a/lisp/cus-start.el b/lisp/cus-start.el
index d8d3cc5d3ac..09a0a93b103 100644
--- a/lisp/cus-start.el
+++ b/lisp/cus-start.el
@@ -307,6 +307,12 @@ since it could result in memory overflow and make Emacs crash."
                        (const :tag "Off (nil)" :value nil)
                        (const :tag "Full screen (t)" :value t)
                        (other :tag "Always" 1)) "22.1")
+             (recenter-redisplay windows
+                                 (choice
+                                  (const :tag "Never (nil)" :value nil)
+                                  (const :tag "Only on ttys" :value tty)
+                                  (other :tag "Always" t))
+                                 "23.1")
              ;; xdisp.c
              (scroll-step windows integer)
              (scroll-conservatively windows integer)