]> git.eshelyaron.com Git - emacs.git/commitdiff
Only print offset for byte-compiled functions
authorZach Shaftel <zshaftel@gmail.com>
Wed, 29 Apr 2020 17:54:29 +0000 (13:54 -0400)
committerZach Shaftel <zshaftel@gmail.com>
Wed, 29 Apr 2020 17:54:29 +0000 (13:54 -0400)
lisp/emacs-lisp/debug.el

index db2943b6e73c16ee64764599be6751a63be731bf..1de13ed4c535eb1f58818f2d488c53082da8eaf3 100644 (file)
@@ -337,7 +337,11 @@ That buffer should be current already and in debugger-mode."
   (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)