diff options
| author | Vibhav Pant <vibhavp@gmail.com> | 2017-02-05 18:55:45 +0530 |
|---|---|---|
| committer | Vibhav Pant <vibhavp@gmail.com> | 2017-02-05 18:55:45 +0530 |
| commit | fea1ad36a0f7b1538984ab0f077095a53c570aa4 (patch) | |
| tree | 6d17ff5701f4f151deb9d0de6ee2e85e389ccff2 /lisp/emacs-lisp | |
| parent | 84eef501554324b22c7a838aabed77aa79315121 (diff) | |
| download | emacs-fea1ad36a0f7b1538984ab0f077095a53c570aa4.tar.gz emacs-fea1ad36a0f7b1538984ab0f077095a53c570aa4.tar.bz2 emacs-fea1ad36a0f7b1538984ab0f077095a53c570aa4.zip | |
; * byte-opt.el (byte-decompile-bytecode-1): Add more documentation.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index b962916e67a..edfa578f85b 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -1417,8 +1417,10 @@ (push (cons (+ (car tag) (lsh (cdr tag) 8)) newtag) tags) (puthash value newtag last-constant))) last-constant) + ;; Replace the hash table referenced in the lapcode with our + ;; modified one. (cl-loop for el in-ref lap - when (and (listp el) + when (and (listp el) ;; make sure we're at the correct op (eq (nth 1 el) 'byte-constant) (eq (nth 2 el) orig-table)) do (setf (nth 2 el) last-constant) and return nil)))) |