From: Dave Love <fx@gnu.org>
Date: Thu, 13 Apr 2000 19:05:47 +0000 (+0000)
Subject: Use keywordp.
X-Git-Tag: emacs-pretest-21.0.90~4269
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=017266f83b027ebf431d01a42402ea7a34d62b79;p=emacs.git

Use keywordp.
---

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)