[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] feature/byte-switch fbe6b90 3/3: * lisp/emacs-lisp/bytecom
From: |
Vibhav Pant |
Subject: |
[Emacs-diffs] feature/byte-switch fbe6b90 3/3: * lisp/emacs-lisp/bytecomp.el: Fix errors with matching quoted forms |
Date: |
Thu, 19 Jan 2017 17:44:55 +0000 (UTC) |
branch: feature/byte-switch
commit fbe6b90b0ced594cf74d5fd0dc9a32666f0d7d38
Author: Vibhav Pant <address@hidden>
Commit: Vibhav Pant <address@hidden>
* 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.
---
lisp/emacs-lisp/bytecomp.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 74d135d..cb23569 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))