diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-12-12 22:40:27 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-12-12 22:40:27 -0500 |
| commit | 92ca51cc5e9d30818f5abf60a5a13f08f2ea7e96 (patch) | |
| tree | a3ae7961ed0821184862dc65a2f0589e53975f93 /lisp/subr.el | |
| parent | 8c91d31beab0234e8a187864df46af543022c656 (diff) | |
| download | emacs-92ca51cc5e9d30818f5abf60a5a13f08f2ea7e96.tar.gz emacs-92ca51cc5e9d30818f5abf60a5a13f08f2ea7e96.tar.bz2 emacs-92ca51cc5e9d30818f5abf60a5a13f08f2ea7e96.zip | |
* lisp/subr.el (backtrace--print-frame): Use cl-prin1
* lisp/emacs-lisp/cl-print.el (cl-prin1): Catch errors, since callers
generally don't expect errors.
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index d6dceb79fa1..eca8dfdb857 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -4536,10 +4536,10 @@ EVALD, FUNC, ARGS, FLAGS are as in `mapbacktrace'." (princ (if (plist-get flags :debug-on-exit) "* " " ")) (cond ((and evald (not debugger-stack-frame-as-list)) - (prin1 func) - (if args (prin1 args) (princ "()"))) + (cl-prin1 func) + (if args (cl-prin1 args) (princ "()"))) (t - (prin1 (cons func args)))) + (cl-prin1 (cons func args)))) (princ "\n")) (defun backtrace () |