Use keywordp.

diff --git a/lisp/cus-start.el b/lisp/cus-start.el
index c5f73c9cce27eb4b6f0350b74a87304d7156989c..2a7b3b314ba8734051bcc8383deeaf68d475e273 100644 (file)
--- a/lisp/cus-start.el
+++ b/lisp/cus-start.el
@@ -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)