mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-05 19:31:02 -08:00
Code Issues Projects Releases Wiki Activity

; * lisp/emacs-lisp/byte-opt.el: improved comment

Browse source
This commit is contained in:
Mattias Engdegård 2021-02-07 12:24:40 +01:00
parent 765ffeb545
commit 7e48430a43
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/byte-opt.el
View file

@ -440,7 +440,7 @@ Same format as `byte-optimize--lexvars', with shared structure and contents.")
(let ((lexvar (assq form byte-optimize--lexvars))) (let ((lexvar (assq form byte-optimize--lexvars)))
(if (cddr lexvar) ; Value available? (if (cddr lexvar) ; Value available?
(if (assq form byte-optimize--vars-outside-loop) (if (assq form byte-optimize--vars-outside-loop)
;; Cannot substitute; mark as changed to avoid the ;; Cannot substitute; mark for retention to avoid the
;; variable being eliminated. ;; variable being eliminated.
(progn (progn
(setcar (cdr lexvar) t) (setcar (cdr lexvar) t)