procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

eval-and-compile: Strip symbol positions for eval but not for compile.

Browse source 
This fixes bug #61962.

* lisp/subr.el (safe-copy-tree): New function.

* lisp/emacs-lisp/bytecomp.el (byte-compile-initial-macro-environment): Amend
the entry for eval-and-compile to use safe-copy-tree and
byte-run-strip-symbol-positions for the eval part.

* doc/lispref/lists.texi (Building Lists): Document safe-copy-tree.

* etc/NEWS: Note the new function safe-copy-tree.
This commit is contained in:
Alan Mackenzie 2023-03-07 08:00:25 +00:00
parent 8179555730
commit fa83b23611
4 changed files with 82 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/emacs-lisp/bytecomp.el
View file

@ -533,7 +533,9 @@ Return the compile-time value of FORM."
(macroexpand--all-toplevel
form
macroexpand-all-environment)))
(eval expanded lexical-binding)
(eval (byte-run-strip-symbol-positions
(safe-copy-tree expanded))
lexical-binding)
expanded)))))
(with-suppressed-warnings
. ,(lambda (warnings &rest body)
@ -2292,12 +2294,19 @@ With argument ARG, insert value in current buffer after the form."
(symbols-with-pos-enabled t)
(value (eval
(displaying-byte-compile-warnings
;;;; NEW STOUGH, 2023-03-05
(byte-run-strip-symbol-positions
;;;; END OF NEW STOUGH
(byte-compile-sexp
(let ((form (read-positioning-symbols (current-buffer))))
(push form byte-compile-form-stack)
(eval-sexp-add-defvars
form
start-read-position))))
start-read-position)))
;;;; NEW STOUGH, 2023-03-05
)
;;;; END OF NEW STOUGH
)
lexical-binding)))
(cond (arg
(message "Compiling from buffer... done.")