From 69efc36c6beae586ca9ec429229f35bcc5c69b5b Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 6 Feb 2022 19:20:36 -0500 Subject: [PATCH] Fix eval-tests/backtrace-in-batch-mode test * lisp/emacs-lisp/debug-early.el (debug-early-backtrace): Fix the zero-arg case. --- lisp/emacs-lisp/debug-early.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/emacs-lisp/debug-early.el b/lisp/emacs-lisp/debug-early.el index e233e09e29e..85ed5f2176c 100644 --- a/lisp/emacs-lisp/debug-early.el +++ b/lisp/emacs-lisp/debug-early.el @@ -53,10 +53,11 @@ of the build process." (progn (princ " (") (setq args (cons func args)))) - (while (progn - (prin1 (car args)) - (setq args (cdr args))) - (princ " ")) + (if args + (while (progn + (prin1 (car args)) + (setq args (cdr args))) + (princ " "))) (princ ")\n")))))) (defalias 'debug-early -- 2.39.5