(double-click-time): Use restricted-sexp.

(load-path): Make [Current dir?] itself the active button.

diff --git a/lisp/cus-start.el b/lisp/cus-start.el
index 00fe7e8c9be78c646452dc8344d4318963f27e97..a842f8d354127eef744327f322ed98b19c77ee0d 100644 (file)
--- a/lisp/cus-start.el
+++ b/lisp/cus-start.el
@@ -109,7 +109,8 @@
                                                  (integer :format "%v")))
             (echo-keystrokes minibuffer boolean)
             (polling-period keyboard integer)
-            (double-click-time mouse integer)
+            (double-click-time mouse (restricted-sexp
+                                      :match-alternatives (integerp 'nil 't)))
             (inhibit-local-menu-bar-menus menu boolean)
             (help-char keyboard character)
             (help-event-list keyboard (repeat (sexp :format "%v")))
@@ -121,6 +122,7 @@
             ;; lread.c
             (load-path environment 
                        (repeat (choice :tag "[Current dir?]"
+                                       :format "%[Current dir?%] %v"
                                        (const :tag " current dir" nil)
                                        (directory :format "%v"))))
             ;; minibuf.c