From: Vibhav Pant <vibhavp@gmail.com>
Date: Sun, 5 Feb 2017 13:25:45 +0000 (+0530)
Subject: ; * byte-opt.el (byte-decompile-bytecode-1): Add more documentation.
X-Git-Tag: emacs-26.0.90~864
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fea1ad36a0f7b1538984ab0f077095a53c570aa4;p=emacs.git

; * byte-opt.el (byte-decompile-bytecode-1): Add more documentation.
---

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))))