diff options
| author | Dave Love <fx@gnu.org> | 1999-12-18 16:30:48 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 1999-12-18 16:30:48 +0000 |
| commit | 94c79e1040d39bdf1a322528b3989d9216611c5d (patch) | |
| tree | 6a7e8f185c866d6a8e9686ce3044aedd4c9c0714 /lisp/emacs-lisp | |
| parent | ea04824c8e0d273cdf8d6f7e41b66d9f73e104d6 (diff) | |
| download | emacs-94c79e1040d39bdf1a322528b3989d9216611c5d.tar.gz emacs-94c79e1040d39bdf1a322528b3989d9216611c5d.tar.bz2 emacs-94c79e1040d39bdf1a322528b3989d9216611c5d.zip | |
(byte-compile-constp): Include keywords.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index a5b74d14741..6b6d79a2997 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -1096,6 +1096,7 @@ otherwise pop it") ;; Returns non-nil if FORM is a constant. (` (cond ((consp (, form)) (eq (car (, form)) 'quote)) ((not (symbolp (, form)))) + ((keywordp (, form))) ((memq (, form) '(nil t)))))) (defmacro byte-compile-close-variables (&rest body) |