diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2022-02-06 13:04:35 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2022-02-06 13:04:35 -0500 |
| commit | e95ca5cf071ba66300994f031408539218664a58 (patch) | |
| tree | ddfa923ef6511c9191b0b997cdcbe0607fbd493e /lisp/emacs-lisp/debug-early.el | |
| parent | 0f38e2393dd3f1731f6d1d7bc098a1c774eb6800 (diff) | |
| download | emacs-e95ca5cf071ba66300994f031408539218664a58.tar.gz emacs-e95ca5cf071ba66300994f031408539218664a58.tar.bz2 emacs-e95ca5cf071ba66300994f031408539218664a58.zip | |
(debug-early-backtrace): Tweak the non-evald output
* lisp/emacs-lisp/debug-early.el (debug-early-backtrace): Make the
non-evald output more like what is used in `debug.el`.
Diffstat (limited to 'lisp/emacs-lisp/debug-early.el')
| -rw-r--r-- | lisp/emacs-lisp/debug-early.el | 21 |
1 files changed, 9 insertions, 12 deletions
diff --git a/lisp/emacs-lisp/debug-early.el b/lisp/emacs-lisp/debug-early.el index e557643e467..a81b29d105c 100644 --- a/lisp/emacs-lisp/debug-early.el +++ b/lisp/emacs-lisp/debug-early.el @@ -47,18 +47,15 @@ of the build process." (progn (princ " ") (prin1 func) - (princ "(") - (while args - (prin1 (car args)) - (setq args (cdr args)) - (if args - (princ " "))) - (princ ")\n")) - (while args - (princ " ") - (prin1 (car args)) - (princ "\n") - (setq args (cdr args))))))))) + (princ "(")) + (progn + (princ " (") + (setq args (cons func args)))) + (while (progn + (prin1 (car args)) + (setq args (cdr args))) + (princ " ")) + (princ ")\n")))))) (defalias 'debug-early #'(lambda (&rest args) |