diff options
| author | Vibhav Pant | 2017-02-05 22:10:22 +0530 |
|---|---|---|
| committer | Vibhav Pant | 2017-02-05 22:10:22 +0530 |
| commit | 74a3423b0b92b80d84f6de62d1f2d61c21e4bd90 (patch) | |
| tree | 5b7041149368746f886c1f6b5632b3f8308599cf | |
| parent | 382f6603ad4ba2a69b3961bdc68580ce77d222f9 (diff) | |
| download | emacs-74a3423b0b92b80d84f6de62d1f2d61c21e4bd90.tar.gz emacs-74a3423b0b92b80d84f6de62d1f2d61c21e4bd90.zip | |
* byte-opt.el (byte-decompile-bytecode-1): Use eq instead of =.
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index edfa578f85b..146fbcc1cb6 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el | |||
| @@ -1405,7 +1405,7 @@ | |||
| 1405 | ;; TAGs. | 1405 | ;; TAGs. |
| 1406 | (let ((orig-table last-constant)) | 1406 | (let ((orig-table last-constant)) |
| 1407 | (cl-loop for e across constvec | 1407 | (cl-loop for e across constvec |
| 1408 | when (= e last-constant) | 1408 | when (eq e last-constant) |
| 1409 | do (setq last-constant (copy-hash-table e)) | 1409 | do (setq last-constant (copy-hash-table e)) |
| 1410 | and return nil) | 1410 | and return nil) |
| 1411 | ;; Replace all addresses with TAGs. | 1411 | ;; Replace all addresses with TAGs. |