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

Revert "Preserve source position of macro calls in macro expansions"

Browse source 
This reverts commit 2114a955c2.
No agreement on this (bug#73725).
This commit is contained in:
Mattias Engdegård 2024-10-20 16:53:52 +02:00
parent 2114a955c2
commit 53e84f8cfa
3 changed files with 21 additions and 94 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/emacs-lisp/byte-opt.el
View file

@ -510,9 +510,7 @@ There can be multiple entries for the same NAME if it has several aliases.")
(while
(progn
;; First, optimize all sub-forms of this one.
(setq form
(macroexp-preserve-posification
form (byte-optimize-form-code-walker form for-effect)))
(setq form (byte-optimize-form-code-walker form for-effect))
;; If a form-specific optimizer is available, run it and start over
;; until a fixpoint has been reached.
@ -521,8 +519,7 @@ There can be multiple entries for the same NAME if it has several aliases.")
(let ((opt (byte-opt--fget (car form) 'byte-optimizer)))
(and opt
(let ((old form)
(new (macroexp-preserve-posification
form (funcall opt form))))
(new (funcall opt form)))
(byte-compile-log " %s\t==>\t%s" old new)
(setq form new)
(not (eq new old))))))))