Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Only print offset for byte-code functions

Browse source 
* lisp/emacs-lisp/backtrace.el (backtrace--print-flags): Check if the
function is compiled and only print the offset in that case.
This commit is contained in:
Zach Shaftel 2020-07-15 12:20:20 -04:00 committed by rocky
parent 0cb1df1edd
commit 717ac6ccd1
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/backtrace.el
View file

@ -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)