Mercurial > emacs
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) |