From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 23 Dec 2002 17:52:56 +0000 (+0000)
Subject: (scroll-up-aggressively, scroll-down-aggressively): Update custom types.
X-Git-Tag: ttn-vms-21-2-B4~11930
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c6d5732507bcc6e88b5b796278947e961bff65d1;p=emacs.git

(scroll-up-aggressively, scroll-down-aggressively): Update custom types.
---

diff --git a/lisp/cus-start.el b/lisp/cus-start.el
index b5161bfcb99..c09662ff60b 100644
--- a/lisp/cus-start.el
+++ b/lisp/cus-start.el
@@ -54,8 +54,12 @@
 	     (truncate-lines display boolean)
 	     (selective-display-ellipses display boolean)
 	     (indicate-empty-lines display boolean "21.1")
-	     (scroll-up-aggressively windows boolean "21.1")
-	     (scroll-down-aggressively windows boolean "21.1")
+	     (scroll-up-aggressively windows
+				     (choice (const :tag "off" nil) number)
+				     "21.1")
+	     (scroll-down-aggressively windows
+				       (choice (const :tag "off" nil) number)
+				       "21.1")
 	     ;; callint.c
 	     (mark-even-if-inactive editing-basics boolean)
 	     ;; callproc.c