diff options
author | Zach Shaftel <zshaftel@gmail.com> | 2020-07-15 12:20:20 -0400 |
---|---|---|
committer | rocky <rocky@gnu.org> | 2020-07-15 13:13:59 -0400 |
commit | 717ac6ccd15115b8ec497bdd70bd1ad6d1be2d47 (patch) | |
tree | 4fecee718a818901d41c91d8b52a7408bb3e4ce8 | |
parent | 0cb1df1edd86986d5d7a3ecf607fe78af03d62a0 (diff) | |
download | emacs-feature/soc-bytecode-in-traceback.tar.gz |
Only print offset for byte-code functionsfeature/soc-bytecode-in-traceback
* lisp/emacs-lisp/backtrace.el (backtrace--print-flags): Check if the
function is compiled and only print the offset in that case.
-rw-r--r-- | lisp/emacs-lisp/backtrace.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/backtrace.el b/lisp/emacs-lisp/backtrace.el index c3f2ff0cfec..f67e1dd72ac 100644 --- a/lisp/emacs-lisp/backtrace.el +++ b/lisp/emacs-lisp/backtrace.el @@ -749,11 +749,13 @@ property for use by navigation." (source (plist-get (backtrace-frame-flags frame) :source-available)) (offset (plist-get (backtrace-frame-flags frame) :bytecode-offset)) ;; right justify and pad the offset (or the empty string) - (offset-format (format "%%%ds " (- backtrace--flags-width 3)))) + (offset-format (format "%%%ds " (- backtrace--flags-width 3))) + (fun (ignore-errors (indirect-function (backtrace-frame-fun frame))))) (when (plist-get view :show-flags) (insert (if source ">" " ")) (insert (if flag "*" " ")) - (insert (format offset-format (or offset "")))) + (insert (format offset-format + (or (and (byte-code-function-p fun) offset) "")))) (put-text-property beg (point) 'backtrace-section 'func))) (defun backtrace--print-func-and-args (frame _view) |