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

diff --git a/lisp/cus-start.el b/lisp/cus-start.el
index b5161bfcb99993a096d58b4811a7af0e7450755b..c09662ff60b3473d7f74ee25dc8de8d1495891c5 100644 (file)
--- 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