# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1176069762 0
# Node ID 1ab9d1057ad095b2f899edae893e72785139ff7b
# Parent  b92d7de27719b49ce5f372d4304fdb371c75621b
2007-04-08  Martin Rudalics  <rudalics@gmx.at>

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

diff -r b92d7de27719 -r 1ab9d1057ad0 lisp/cus-start.el
--- a/lisp/cus-start.el	Sun Apr 08 22:02:29 2007 +0000
+++ b/lisp/cus-start.el	Sun Apr 08 22:02:42 2007 +0000
@@ -338,7 +338,11 @@
 	     (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)