comparison lisp/cus-start.el @ 18478:74399f15f71e

(double-click-time): Use restricted-sexp. (load-path): Make [Current dir?] itself the active button.
author Richard M. Stallman <rms@gnu.org>
date Fri, 27 Jun 1997 22:38:19 +0000
parents fa88b9cfa8bf
children dd3b72558628
comparison
equal deleted inserted replaced
18477:270080940256 18478:74399f15f71e
107 (auto-save-interval auto-save integer) 107 (auto-save-interval auto-save integer)
108 (auto-save-timeout auto-save (choice (const :tag "off" nil) 108 (auto-save-timeout auto-save (choice (const :tag "off" nil)
109 (integer :format "%v"))) 109 (integer :format "%v")))
110 (echo-keystrokes minibuffer boolean) 110 (echo-keystrokes minibuffer boolean)
111 (polling-period keyboard integer) 111 (polling-period keyboard integer)
112 (double-click-time mouse integer) 112 (double-click-time mouse (restricted-sexp
113 :match-alternatives (integerp 'nil 't)))
113 (inhibit-local-menu-bar-menus menu boolean) 114 (inhibit-local-menu-bar-menus menu boolean)
114 (help-char keyboard character) 115 (help-char keyboard character)
115 (help-event-list keyboard (repeat (sexp :format "%v"))) 116 (help-event-list keyboard (repeat (sexp :format "%v")))
116 (menu-prompting menu boolean) 117 (menu-prompting menu boolean)
117 (suggest-key-bindings keyboard (choice (const :tag "off" nil) 118 (suggest-key-bindings keyboard (choice (const :tag "off" nil)
119 (sexp :tag "on" 120 (sexp :tag "on"
120 :format "%t"))) 121 :format "%t")))
121 ;; lread.c 122 ;; lread.c
122 (load-path environment 123 (load-path environment
123 (repeat (choice :tag "[Current dir?]" 124 (repeat (choice :tag "[Current dir?]"
125 :format "%[Current dir?%] %v"
124 (const :tag " current dir" nil) 126 (const :tag " current dir" nil)
125 (directory :format "%v")))) 127 (directory :format "%v"))))
126 ;; minibuf.c 128 ;; minibuf.c
127 (completion-auto-help minibuffer boolean) 129 (completion-auto-help minibuffer boolean)
128 (enable-recursive-minibuffers minibuffer boolean) 130 (enable-recursive-minibuffers minibuffer boolean)