diff options
| author | Vibhav Pant <vibhavp@gmail.com> | 2017-01-26 00:57:10 +0530 |
|---|---|---|
| committer | Vibhav Pant <vibhavp@gmail.com> | 2017-01-26 00:57:10 +0530 |
| commit | 8189b97e5ca12aff8ea34617431a868010643b5b (patch) | |
| tree | 7bd519bee59293a891d9727e21e14dffa83b156f /lisp/emacs-lisp | |
| parent | 0d3c57dcf3187864c0b6fd6115ee80ad33faf553 (diff) | |
| download | emacs-8189b97e5ca12aff8ea34617431a868010643b5b.tar.gz emacs-8189b97e5ca12aff8ea34617431a868010643b5b.tar.bz2 emacs-8189b97e5ca12aff8ea34617431a868010643b5b.zip | |
* lisp/emacs-lisp/bytecomp.el: Fix byte-switch codegen with symbols.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 2 |
1 files changed, 1 insertions, 1 deletions
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)) |