mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

Use keywordp.

Browse source
This commit is contained in:
Dave Love 2000-04-13 19:05:47 +00:00
parent 359476e0f0
commit 017266f83b
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/cus-start.el
View file

@ -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)