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

Make debug-early-backtrace more resilient

Browse source 
* lisp/emacs-lisp/debug-early.el (debug-early-backtrace): Allow
outputting backtraces during bootstrap.
This commit is contained in:
Lars Ingebrigtsen 2022-06-24 10:43:41 +02:00
parent c148bfc229
commit bd1f20eea1
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -45,7 +45,13 @@ of the build process."
(let ((print-escape-newlines t)
(print-escape-control-characters t)
(print-escape-nonascii t)
(prin1 (if (fboundp 'cl-prin1) #'cl-prin1 #'prin1)))
(prin1 (if (and (fboundp 'cl-prin1)
;; If we're being called while
;; bootstrapping, we won't be able to load
;; cl-print.
(require 'cl-print nil t))
#'cl-prin1
#'prin1)))
(mapbacktrace
#'(lambda (evald func args _flags)
(let ((args args))