From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 27 Jun 1997 22:38:19 +0000 (+0000)
Subject: (double-click-time): Use restricted-sexp.
X-Git-Tag: emacs-20.1~1468
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4db2b1c70f5f69c904d93df7d32e22864e2e0ea9;p=emacs.git

(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 00fe7e8c9be..a842f8d3541 100644
--- 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