(byte-compile-constp): Include keywords.

94c79e10 · Dave Love · ea04824c · 94c79e10
Commit 94c79e10 authored Dec 18, 1999 by Dave Love
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 0 deletions

lisp/emacs-lisp/bytecomp.el lisp/emacs-lisp/bytecomp.el +1 -0

No files found.
--- 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)