From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 7 Feb 2022 00:20:36 +0000 (-0500)
Subject: Fix eval-tests/backtrace-in-batch-mode test
X-Git-Tag: emacs-29.0.90~2472
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=69efc36c6beae586ca9ec429229f35bcc5c69b5b;p=emacs.git

Fix eval-tests/backtrace-in-batch-mode test

* lisp/emacs-lisp/debug-early.el (debug-early-backtrace): Fix the
zero-arg case.
---

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