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

Make the byte compiler give correct warning positions in eval-and-compile

Browse source 
This fixes bug #61579.

* lisp/emacs-lisp/bytecomp.el (byte-compile-initial-environment): Remove a
spurious `byte-run-strip-symbol-position' from the core form of the
eval-and-compile element.
This commit is contained in:
Alan Mackenzie 2023-02-17 17:31:17 +00:00
parent a5ad897b35
commit fcf2f7aead
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -530,10 +530,9 @@ Return the compile-time value of FORM."
;; or byte-compile-file-form. ;; or byte-compile-file-form.
(let* ((print-symbols-bare t) ; Possibly redundant binding. (let* ((print-symbols-bare t) ; Possibly redundant binding.
(expanded (expanded
(byte-run-strip-symbol-positions (macroexpand--all-toplevel
(macroexpand--all-toplevel form
form macroexpand-all-environment)))
macroexpand-all-environment))))
(eval expanded lexical-binding) (eval expanded lexical-binding)
expanded))))) expanded)))))
(with-suppressed-warnings (with-suppressed-warnings