diff options
author | Noam Postavsky <npostavs@gmail.com> | 2017-02-11 18:13:54 -0500 |
---|---|---|
committer | Noam Postavsky <npostavs@gmail.com> | 2017-06-29 19:40:22 -0400 |
commit | eb9d3eca801c1ea847956a96fafd29eef9bbe5d1 (patch) | |
tree | bb2fdd865c9dff46545325d41bf2ba078720d7d7 /lisp/subr.el | |
parent | ead545824e511ab18d18b5223eab80e1f4fe3d64 (diff) | |
download | emacs-eb9d3eca801c1ea847956a96fafd29eef9bbe5d1.tar.gz |
Escape control characters in backtraces (Bug#6991)
* src/print.c (syms_of_print): Add new variable,
print-escape-control-characters.
(print_object): Print control characters with octal escape codes when
print-escape-control-characters is true.
* lisp/subr.el (backtrace):
* lisp/emacs-lisp/debug.el (debugger-setup-buffer): Bind
`print-escape-control-characters' to t.
Diffstat (limited to 'lisp/subr.el')
-rw-r--r-- | lisp/subr.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index d0c8517c543..a9edff6166f 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -4514,7 +4514,8 @@ EVALD, FUNC, ARGS, FLAGS are as in `mapbacktrace'." (defun backtrace () "Print a trace of Lisp function calls currently active. Output stream used is value of `standard-output'." - (let ((print-level (or print-level 8))) + (let ((print-level (or print-level 8)) + (print-escape-control-characters t)) (mapbacktrace #'backtrace--print-frame 'backtrace))) (defun backtrace-frames (&optional base) |