diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2021-02-12 19:43:41 +0100 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2021-02-12 20:52:05 +0100 |
| commit | 9518926220943d5c405e03d7352343341e07ba83 (patch) | |
| tree | d57d17d114dc46f7730e7e7d09d4e51a92881bd0 /lisp/emacs-lisp/byte-opt.el | |
| parent | 5a11e9185c0416df8fa3a15bb0d60b6ba6827869 (diff) | |
| download | emacs-9518926220943d5c405e03d7352343341e07ba83.tar.gz emacs-9518926220943d5c405e03d7352343341e07ba83.tar.bz2 emacs-9518926220943d5c405e03d7352343341e07ba83.zip | |
Simplify expression in byte-code decompiler
* lisp/emacs-lisp/byte-opt.el (byte-decompile-bytecode-1):
Replace roundabout expression with what it essentially does.
Diffstat (limited to 'lisp/emacs-lisp/byte-opt.el')
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index c383e0285b9..e0feb95a461 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -1562,10 +1562,7 @@ Same format as `byte-optimize--lexvars', with shared structure and contents.") ;; so we create a copy of it, and replace the addresses with ;; TAGs. (let ((orig-table last-constant)) - (cl-loop for e across constvec - when (eq e last-constant) - do (setq last-constant (copy-hash-table e)) - and return nil) + (setq last-constant (copy-hash-table last-constant)) ;; Replace all addresses with TAGs. (maphash #'(lambda (value offset) (let ((match (assq offset tags))) |