procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(debug-early-backtrace): Tweak the non-evald output

Browse source 
* lisp/emacs-lisp/debug-early.el (debug-early-backtrace): Make the
non-evald output more like what is used in `debug.el`.
This commit is contained in:
Stefan Monnier 2022-02-06 13:04:35 -05:00
parent 0f38e2393d
commit e95ca5cf07
1 changed files with 9 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
lisp/emacs-lisp/debug-early.el
View file

@ -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)