diff options
| author | Noam Postavsky | 2017-02-11 18:13:54 -0500 |
|---|---|---|
| committer | Noam Postavsky | 2017-06-29 19:40:22 -0400 |
| commit | eb9d3eca801c1ea847956a96fafd29eef9bbe5d1 (patch) | |
| tree | bb2fdd865c9dff46545325d41bf2ba078720d7d7 /lisp | |
| parent | ead545824e511ab18d18b5223eab80e1f4fe3d64 (diff) | |
| download | emacs-eb9d3eca801c1ea847956a96fafd29eef9bbe5d1.tar.gz emacs-eb9d3eca801c1ea847956a96fafd29eef9bbe5d1.zip | |
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')
| -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'." | |||
| 4514 | (defun backtrace () | 4514 | (defun backtrace () |
| 4515 | "Print a trace of Lisp function calls currently active. | 4515 | "Print a trace of Lisp function calls currently active. |
| 4516 | Output stream used is value of `standard-output'." | 4516 | Output stream used is value of `standard-output'." |
| 4517 | (let ((print-level (or print-level 8))) | 4517 | (let ((print-level (or print-level 8)) |
| 4518 | (print-escape-control-characters t)) | ||
| 4518 | (mapbacktrace #'backtrace--print-frame 'backtrace))) | 4519 | (mapbacktrace #'backtrace--print-frame 'backtrace))) |
| 4519 | 4520 | ||
| 4520 | (defun backtrace-frames (&optional base) | 4521 | (defun backtrace-frames (&optional base) |