From 0141067a48a4dc070ce113893945498929ecf613 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Mattias=20Engdeg=C3=A5rd?= Date: Sat, 13 Apr 2024 17:43:34 +0200 Subject: [PATCH] ; * lisp/emacs-lisp/macroexp.el (macroexp--expand-all): less consing (cherry picked from commit 616af565796f8c690dd9c7d1b2fa7607f2e2fa1e) --- lisp/emacs-lisp/macroexp.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/macroexp.el b/lisp/emacs-lisp/macroexp.el index b87b749dd76..bb4797cac8b 100644 --- a/lisp/emacs-lisp/macroexp.el +++ b/lisp/emacs-lisp/macroexp.el @@ -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))) -- 2.39.5