diff options
| author | Mattias Engdegård | 2024-04-13 17:43:34 +0200 |
|---|---|---|
| committer | Mattias Engdegård | 2024-04-14 11:51:17 +0200 |
| commit | 616af565796f8c690dd9c7d1b2fa7607f2e2fa1e (patch) | |
| tree | 4941dce9526aed82a838ef29a1cd6d4ef2b25462 | |
| parent | 7add47337b62064998a5b80f357acc39b1253e98 (diff) | |
| download | emacs-616af565796f8c690dd9c7d1b2fa7607f2e2fa1e.tar.gz emacs-616af565796f8c690dd9c7d1b2fa7607f2e2fa1e.zip | |
; * lisp/emacs-lisp/macroexp.el (macroexp--expand-all): less consing
| -rw-r--r-- | lisp/emacs-lisp/macroexp.el | 2 |
1 files changed, 1 insertions, 1 deletions
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'." | |||
| 351 | (let ((default-tail nil) | 351 | (let ((default-tail nil) |
| 352 | (n 0) | 352 | (n 0) |
| 353 | (rest clauses)) | 353 | (rest clauses)) |
| 354 | (while rest | 354 | (while (cdr rest) |
| 355 | (let ((c (car-safe (car rest)))) | 355 | (let ((c (car-safe (car rest)))) |
| 356 | (when (cond ((consp c) (and (memq (car c) '(quote function)) | 356 | (when (cond ((consp c) (and (memq (car c) '(quote function)) |
| 357 | (cadr c))) | 357 | (cadr c))) |