diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2022-02-06 19:20:36 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2022-02-06 19:20:36 -0500 |
| commit | 69efc36c6beae586ca9ec429229f35bcc5c69b5b (patch) | |
| tree | d0460e6ddfe44c66a751e9a72e54b01f03e1a1c9 /lisp/emacs-lisp | |
| parent | 0d36eaa7c6112ee4fb86f7cbf578a7ba0b5dc331 (diff) | |
| download | emacs-69efc36c6beae586ca9ec429229f35bcc5c69b5b.tar.gz emacs-69efc36c6beae586ca9ec429229f35bcc5c69b5b.tar.bz2 emacs-69efc36c6beae586ca9ec429229f35bcc5c69b5b.zip | |
Fix eval-tests/backtrace-in-batch-mode test
* lisp/emacs-lisp/debug-early.el (debug-early-backtrace): Fix the
zero-arg case.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/debug-early.el | 9 |
1 files 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 |