diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2024-10-20 16:53:52 +0200 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2024-10-20 17:05:32 +0200 |
| commit | 53e84f8cfa85bb53c92936a3be73ab1445a89459 (patch) | |
| tree | 9677c5cb2757de8d03a6820382c69e66e2e1a438 /lisp/emacs-lisp/byte-opt.el | |
| parent | 2114a955c23c213168f012f5e480edae46561fd2 (diff) | |
| download | emacs-53e84f8cfa85bb53c92936a3be73ab1445a89459.tar.gz emacs-53e84f8cfa85bb53c92936a3be73ab1445a89459.tar.bz2 emacs-53e84f8cfa85bb53c92936a3be73ab1445a89459.zip | |
Revert "Preserve source position of macro calls in macro expansions"
This reverts commit 2114a955c23c213168f012f5e480edae46561fd2.
No agreement on this (bug#73725).
Diffstat (limited to 'lisp/emacs-lisp/byte-opt.el')
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 669b6c76417..d8dbfa62bf9 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -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)))))))) |