# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 955652747 0
# Node ID e2b3c1885fb1e84d81054dac41022842a7238a68
# Parent  cfff869d8a3d697a137679deebf53f9292e84f10
Use keywordp.

diff -r cfff869d8a3d -r e2b3c1885fb1 lisp/cus-start.el
--- a/lisp/cus-start.el	Thu Apr 13 19:05:10 2000 +0000
+++ b/lisp/cus-start.el	Thu Apr 13 19:05:47 2000 +0000
@@ -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)