From: Dave Love <fx@gnu.org>
Date: Sat, 18 Dec 1999 16:30:48 +0000 (+0000)
Subject: (byte-compile-constp): Include keywords.
X-Git-Tag: emacs-pretest-21.0.90~5678
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=94c79e1040d39bdf1a322528b3989d9216611c5d;p=emacs.git

(byte-compile-constp): Include keywords.
---

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)