diff options
| author | Alan Mackenzie | 2025-10-18 17:05:11 +0000 |
|---|---|---|
| committer | Alan Mackenzie | 2025-10-18 17:08:02 +0000 |
| commit | 97b960ec6d9874837f94c84ae91e6f2f49670c2c (patch) | |
| tree | dedf05d9859e2ae20b81249e4626d1e3d987a945 | |
| parent | 0b4079ddb6027b577b2085017ef7b7f462b437cd (diff) | |
| download | emacs-97b960ec6d9874837f94c84ae91e6f2f49670c2c.tar.gz emacs-97b960ec6d9874837f94c84ae91e6f2f49670c2c.zip | |
Fix coding error in byte-run--strip-vector/record
* 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.
| -rw-r--r-- | lisp/emacs-lisp/byte-run.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el index 49fd6084693..6cce65e2c9b 100644 --- a/lisp/emacs-lisp/byte-run.el +++ b/lisp/emacs-lisp/byte-run.el | |||
| @@ -75,7 +75,7 @@ This is done by destructively modifying ARG. Return ARG." | |||
| 75 | (setq elt (aref arg i)) | 75 | (setq elt (aref arg i)) |
| 76 | (cond | 76 | (cond |
| 77 | ((symbol-with-pos-p elt) | 77 | ((symbol-with-pos-p elt) |
| 78 | (aset arg i elt)) | 78 | (aset arg i (bare-symbol elt))) |
| 79 | ((consp elt) | 79 | ((consp elt) |
| 80 | (byte-run--strip-list elt)) | 80 | (byte-run--strip-list elt)) |
| 81 | ((or (vectorp elt) (recordp elt)) | 81 | ((or (vectorp elt) (recordp elt)) |