andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

; * lisp/emacs-lisp/macroexp.el (macroexp--expand-all): less consing

Browse source
This commit is contained in:
Mattias Engdegård 2024-04-13 17:43:34 +02:00
parent 7add47337b
commit 616af56579
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/macroexp.el
View file

@ -351,7 +351,7 @@ Assumes the caller has bound `macroexpand-all-environment'."
(let ((default-tail nil)
(n 0)
(rest clauses))
(while rest
(while (cdr rest)
(let ((c (car-safe (car rest))))
(when (cond ((consp c) (and (memq (car c) '(quote function))
(cadr c)))