From 4db2b1c70f5f69c904d93df7d32e22864e2e0ea9 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 27 Jun 1997 22:38:19 +0000 Subject: [PATCH] (double-click-time): Use restricted-sexp. (load-path): Make [Current dir?] itself the active button. --- lisp/cus-start.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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 -- 2.39.2