Use keywordp.

1 files changed, 1 insertions, 2 deletions

diff --git a/lisp/cus-start.el b/lisp/cus-start.el
index c5f73c9cce2..2a7b3b314ba 100644
--- 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)