(auto-save-interval auto-save integer)
(auto-save-timeout auto-save (choice (const :tag "off" nil)
(integer :format "%v")))
- (echo-keystrokes minibuffer integer)
+ (echo-keystrokes minibuffer number)
(polling-period keyboard integer)
(double-click-time mouse (restricted-sexp
:match-alternatives (integerp 'nil 't)))
;; into an expression which produces that value.
(quoter (lambda (sexp)
(if (or (memq sexp '(t nil))
- (and (symbolp sexp)
- (eq (aref (symbol-name sexp) 0) ?:))
+ (keywordp sexp)
(and (listp sexp)
(memq (car sexp) '(lambda)))
(stringp sexp)