diff options
| author | Dave Love | 1999-12-18 16:30:48 +0000 |
|---|---|---|
| committer | Dave Love | 1999-12-18 16:30:48 +0000 |
| commit | 94c79e1040d39bdf1a322528b3989d9216611c5d (patch) | |
| tree | 6a7e8f185c866d6a8e9686ce3044aedd4c9c0714 | |
| parent | ea04824c8e0d273cdf8d6f7e41b66d9f73e104d6 (diff) | |
| download | emacs-94c79e1040d39bdf1a322528b3989d9216611c5d.tar.gz emacs-94c79e1040d39bdf1a322528b3989d9216611c5d.zip | |
(byte-compile-constp): Include keywords.
| -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") | |||
| 1096 | ;; Returns non-nil if FORM is a constant. | 1096 | ;; Returns non-nil if FORM is a constant. |
| 1097 | (` (cond ((consp (, form)) (eq (car (, form)) 'quote)) | 1097 | (` (cond ((consp (, form)) (eq (car (, form)) 'quote)) |
| 1098 | ((not (symbolp (, form)))) | 1098 | ((not (symbolp (, form)))) |
| 1099 | ((keywordp (, form))) | ||
| 1099 | ((memq (, form) '(nil t)))))) | 1100 | ((memq (, form) '(nil t)))))) |
| 1100 | 1101 | ||
| 1101 | (defmacro byte-compile-close-variables (&rest body) | 1102 | (defmacro byte-compile-close-variables (&rest body) |