mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 14:30:50 -08:00
Code Issues Projects Releases Wiki Activity

Fix coding error in byte-run--strip-vector/record

Browse source 
* lisp/emacs-lisp/byte-run.el (byte-run--strip-vector/record):
Replace a symbol with position by its bare symbol, rather
than returning it unchanged.
This commit is contained in:
Alan Mackenzie 2025-10-18 17:05:11 +00:00
parent 0b4079ddb6
commit 97b960ec6d
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-run.el
View file

@ -75,7 +75,7 @@ This is done by destructively modifying ARG. Return ARG."
(setq elt (aref arg i))
(cond
((symbol-with-pos-p elt)
(aset arg i elt))
(aset arg i (bare-symbol elt)))
((consp elt)
(byte-run--strip-list elt))
((or (vectorp elt) (recordp elt))