2007-04-08 Martin Rudalics <rudalics@gmx.at>

* cus-start.el <scroll-preserve-screen-position>: Add choices.

diff --git a/lisp/cus-start.el b/lisp/cus-start.el
index da2f0a54c2cfc39e2278180529d43050633cb057..61f073119e7c10e6c38ccf8fe763964e9c8df458 100644 (file)
--- a/lisp/cus-start.el
+++ b/lisp/cus-start.el
@@ -338,7 +338,11 @@ since it could result in memory overflow and make Emacs crash."
             (split-height-threshold windows integer)
             (window-min-height windows integer)
             (window-min-width windows integer)
-            (scroll-preserve-screen-position windows boolean)
+            (scroll-preserve-screen-position
+             windows (choice
+                      (const :tag "Off (nil)" :value nil)
+                      (const :tag "Full screen (t)" :value t)
+                      (other :tag "Always" 1)))
             (display-buffer-reuse-frames windows boolean "21.1")
             ;; xdisp.c
             (scroll-step windows integer)