X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/78976e0a1a5cb9d7471655831a7b430beddd975c..f52154007f41abe6857acab91e31ab4a7d18210d:/lisp/cus-start.el

diff --git a/lisp/cus-start.el b/lisp/cus-start.el
index 2c7268bdff..2a7b3b314b 100644
--- a/lisp/cus-start.el
+++ b/lisp/cus-start.el
@@ -118,7 +118,7 @@
 	     (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)))
@@ -209,8 +209,7 @@
       ;; 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)