From: Vibhav Pant <vibhavp@gmail.com>
Date: Wed, 25 Jan 2017 19:27:10 +0000 (+0530)
Subject: * lisp/emacs-lisp/bytecomp.el: Fix byte-switch codegen with symbols.
X-Git-Tag: emacs-26.0.90~877
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8189b97e5ca12aff8ea34617431a868010643b5b;p=emacs.git

* lisp/emacs-lisp/bytecomp.el: Fix byte-switch codegen with symbols.
---

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 3c59c92c042..0da1418321f 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 (eval obj2) body) cases)
+                   (push (list (if (consp obj2) (eval obj2) obj2) body) cases)
                  (if (eq condition t)
                      (progn (push (list 'default body) cases)
                             (throw 'break t))