[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] feature/byte-switch fea1ad3 2/2: ; * byte-opt.el (byte-dec
From: |
Vibhav Pant |
Subject: |
[Emacs-diffs] feature/byte-switch fea1ad3 2/2: ; * byte-opt.el (byte-decompile-bytecode-1): Add more documentation. |
Date: |
Sun, 5 Feb 2017 13:27:11 +0000 (UTC) |
branch: feature/byte-switch
commit fea1ad36a0f7b1538984ab0f077095a53c570aa4
Author: Vibhav Pant <address@hidden>
Commit: Vibhav Pant <address@hidden>
; * byte-opt.el (byte-decompile-bytecode-1): Add more documentation.
---
lisp/emacs-lisp/byte-opt.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index b962916..edfa578 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))))