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

Properly align offset in backtrace

Browse source 
* lisp/emacs-lisp/backtrace.el (backtrace--print-flags): Use format
width specifier to line up the flags and offset nicely.
This commit is contained in:
Zach Shaftel 2020-06-05 15:06:29 -04:00 committed by rocky
parent afa6a9733e
commit 58e112fe18
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -257,7 +257,7 @@ frames where the source code location is known.")
map)
"Local keymap for `backtrace-mode' buffers.")
(defconst backtrace--flags-width 6
(defconst backtrace--flags-width 7
"Width in characters of the flags for a backtrace frame.")
;;; Navigation and Text Properties
@ -747,12 +747,13 @@ property for use by navigation."
(let ((beg (point))
(flag (plist-get (backtrace-frame-flags frame) :debug-on-exit))
(source (plist-get (backtrace-frame-flags frame) :source-available))
(off (plist-get (backtrace-frame-flags frame) :bytecode-offset)))
(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))))
(when (plist-get view :show-flags)
(when source (insert ">"))
(when flag (insert "*"))
(when off (insert (number-to-string off))))
(insert (make-string (- backtrace--flags-width (- (point) beg)) ?\s))
(insert (if source ">" " "))
(insert (if flag "*" " "))
(insert (format offset-format (or offset ""))))
(put-text-property beg (point) 'backtrace-section 'func)))
(defun backtrace--print-func-and-args (frame _view)