From: Vibhav Pant <vibhavp@gmail.com>
Date: Thu, 19 Jan 2017 17:43:13 +0000 (+0530)
Subject: lisp/emacs-lisp/bytecomp.el: Use byte-switch only for quoted symbols
X-Git-Tag: emacs-26.0.90~881
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5f3379b33866ff7dc16856b6c29712eae860af0e;p=emacs.git

lisp/emacs-lisp/bytecomp.el: Use byte-switch only for quoted symbols
---

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index a4f1242ce4a..74d135d155c 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -3972,7 +3972,9 @@ that suppresses all warnings during execution of BODY."
 
 (defun byte-compile-cond-valid-obj2-p (obj)
   (cond
-   ((consp obj) (eq (car obj) 'quote))
+   ((consp obj) (and (eq (car obj) 'quote)
+                     (= (length obj) 2)
+                     (symbolp (cadr obj))))
    (t t)))
 
 (defun byte-compile-cond-vars (obj1 obj2)