From: Vibhav Pant <vibhavp@gmail.com>
Date: Thu, 19 Jan 2017 17:43:53 +0000 (+0530)
Subject: * lisp/emacs-lisp/bytecomp.el: Fix errors with matching quoted forms
X-Git-Tag: emacs-26.0.90~880
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fbe6b90b0ced594cf74d5fd0dc9a32666f0d7d38;p=emacs.git

* lisp/emacs-lisp/bytecomp.el: Fix errors with matching quoted forms

* lisp/emacs-lisp/bytecomp.el: (byte-compile-cond-jump-table-info)
  eval obj2 to avoid quoted forms being stored as is.
---

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 74d135d155c..cb235697ed0 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -4005,7 +4005,7 @@ that suppresses all warnings during execution of BODY."
                         (eq obj1 prev-var)
                         ;; discard duplicate clauses
                         (not (assq obj2 cases)))
-                   (push (list obj2 body) cases)
+                   (push (list (eval obj2) body) cases)
                  (if (eq condition t)
                      (progn (push (list 'default body) cases)
                             (throw 'break t))