(setq backtrace-view (plist-put backtrace-view :show-flags t)
backtrace-insert-header-function
(lambda ()
- (insert (format "Byte-code offset of error: %d\n" (car (last args))))
+ (let ((final (car (last args)))
+ (fun (backtrace-frame-fun (car backtrace-frames))))
+ (and (byte-code-function-p (ignore-errors (indirect-function fun)))
+ (integerp final)
+ (insert (format "Byte-code offset of error: %d\n" final))))
(debugger--insert-header args))
backtrace-print-function debugger-print-function)
(backtrace-print)