Mercurial > emacs
diff lisp/emacs-lisp/bytecomp.el @ 26936:061c66a66b29
(byte-compile-constp): Include keywords.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Sat, 18 Dec 1999 16:30:48 +0000 |
| parents | 6fdf1f6c23a0 |
| children | 6eba74503556 |
line wrap: on
line diff
--- a/lisp/emacs-lisp/bytecomp.el Sat Dec 18 16:27:10 1999 +0000 +++ b/lisp/emacs-lisp/bytecomp.el Sat Dec 18 16:30:48 1999 +0000 @@ -1096,6 +1096,7 @@ ;; 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)