diff options
| author | Vibhav Pant | 2017-01-19 23:13:53 +0530 |
|---|---|---|
| committer | Vibhav Pant | 2017-01-19 23:13:53 +0530 |
| commit | fbe6b90b0ced594cf74d5fd0dc9a32666f0d7d38 (patch) | |
| tree | c4e79fc0ba0573c14bc22719dcb60a10bdac61f2 | |
| parent | 5f3379b33866ff7dc16856b6c29712eae860af0e (diff) | |
| download | emacs-fbe6b90b0ced594cf74d5fd0dc9a32666f0d7d38.tar.gz emacs-fbe6b90b0ced594cf74d5fd0dc9a32666f0d7d38.zip | |
* 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.
| -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 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." | |||
| 4005 | (eq obj1 prev-var) | 4005 | (eq obj1 prev-var) |
| 4006 | ;; discard duplicate clauses | 4006 | ;; discard duplicate clauses |
| 4007 | (not (assq obj2 cases))) | 4007 | (not (assq obj2 cases))) |
| 4008 | (push (list obj2 body) cases) | 4008 | (push (list (eval obj2) body) cases) |
| 4009 | (if (eq condition t) | 4009 | (if (eq condition t) |
| 4010 | (progn (push (list 'default body) cases) | 4010 | (progn (push (list 'default body) cases) |
| 4011 | (throw 'break t)) | 4011 | (throw 'break t)) |