]> git.eshelyaron.com Git - emacs.git/commitdiff
* lisp/emacs-lisp/bytecomp.el: Fix errors with matching quoted forms
authorVibhav Pant <vibhavp@gmail.com>
Thu, 19 Jan 2017 17:43:53 +0000 (23:13 +0530)
committerVibhav Pant <vibhavp@gmail.com>
Thu, 19 Jan 2017 17:43:53 +0000 (23:13 +0530)
* lisp/emacs-lisp/bytecomp.el: (byte-compile-cond-jump-table-info)
  eval obj2 to avoid quoted forms being stored as is.

lisp/emacs-lisp/bytecomp.el

index 74d135d155ca454e14fdcd4d587687e2da9dbc06..cb235697ed0aaded00e2a9b75c1bdcfafcf41e51 100644 (file)
@@ -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))