diff options
author | Alan Mackenzie <acm@muc.de> | 2022-03-06 13:37:30 +0000 |
---|---|---|
committer | Alan Mackenzie <acm@muc.de> | 2022-03-06 13:37:30 +0000 |
commit | 68cdb95019a24024e6000ae75de6aa974d9b4a23 (patch) | |
tree | 86331a0d314b97588c87a162211c27130e2e9286 /lisp/emacs-lisp/byte-run.el | |
parent | 6eeab90632506348a58d264eb3304625756c8659 (diff) | |
download | emacs-68cdb95019a24024e6000ae75de6aa974d9b4a23.tar.gz |
Restore call to byte-run-strip-symbol-positions in byte-compile-out
Also increment a loop counter. This should fix bug #54248.
* lisp/emacs-lisp/byte-run.el (byte-run--strip-vector/record): increment the
loop counter 'i' in the main loop.
* lisp/emacs-lisp/bytecomp.el (byte-compile-out): call
byte-run-strip-symbol-positions on operands which are one-element lists.
Diffstat (limited to 'lisp/emacs-lisp/byte-run.el')
-rw-r--r-- | lisp/emacs-lisp/byte-run.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el index d7a2d8cecaf..384e8cba88f 100644 --- a/lisp/emacs-lisp/byte-run.el +++ b/lisp/emacs-lisp/byte-run.el @@ -80,7 +80,8 @@ This is done by destructively modifying ARG. Return ARG." ((consp elt) (byte-run--strip-list elt)) ((or (vectorp elt) (recordp elt)) - (byte-run--strip-vector/record elt)))))) + (byte-run--strip-vector/record elt))) + (setq i (1+ i))))) arg)) (defalias 'byte-run-strip-symbol-positions |