diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-03-02 09:13:57 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-03-02 09:13:57 -0500 |
| commit | 20596a5ca29e879ca81a9209cd57a85a4ae690f2 (patch) | |
| tree | dfaa18c5e0e5253ad6bb146e11e74dac974a6c20 | |
| parent | 6dee194535b4841714a33bb888bb94da6e1e9b1c (diff) | |
| download | emacs-20596a5ca29e879ca81a9209cd57a85a4ae690f2.tar.gz emacs-20596a5ca29e879ca81a9209cd57a85a4ae690f2.tar.bz2 emacs-20596a5ca29e879ca81a9209cd57a85a4ae690f2.zip | |
* lisp/emacs-lisp/trace.el (trace-values): Work outside of traced function
| -rw-r--r-- | lisp/emacs-lisp/trace.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/trace.el b/lisp/emacs-lisp/trace.el index fa07d622484..9354687b081 100644 --- a/lisp/emacs-lisp/trace.el +++ b/lisp/emacs-lisp/trace.el @@ -161,7 +161,7 @@ "Helper function to get internal values. You can call this function to add internal values in the trace buffer." (unless inhibit-trace - (with-current-buffer trace-buffer + (with-current-buffer (get-buffer-create trace-buffer) (goto-char (point-max)) (insert (trace-entry-message @@ -174,7 +174,7 @@ and CONTEXT is a string describing the dynamic context (e.g. values of some global variables)." (let ((print-circle t)) (format "%s%s%d -> %S%s\n" - (mapconcat 'char-to-string (make-string (1- level) ?|) " ") + (mapconcat 'char-to-string (make-string (max 0 (1- level)) ?|) " ") (if (> level 1) " " "") level ;; FIXME: Make it so we can click the function name to jump to its |