From: Jim Porter <jporterbugs@gmail.com>
Date: Sat, 1 May 2021 10:09:36 +0000 (+0200)
Subject: Fix GUD overlay arrows in gdb-mi when debugging over Tramp
X-Git-Tag: emacs-28.0.90~2661
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=019c70e731d0243ad3ea2d4ebb02dd4a343e868f;p=emacs.git

Fix GUD overlay arrows in gdb-mi when debugging over Tramp

* lisp/progmodes/gdb-mi.el (gdb-frame-handler): Use local part of
file name when setting `gud-last-frame'.
---

diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el
index 1a96755bcf0..8e6ce3d2696 100644
--- a/lisp/progmodes/gdb-mi.el
+++ b/lisp/progmodes/gdb-mi.el
@@ -4512,7 +4512,7 @@ overlay arrow in source buffer."
   (let ((frame (gdb-mi--field (gdb-mi--partial-output) 'frame)))
     (when frame
       (setq gdb-selected-frame (gdb-mi--field frame 'func))
-      (setq gdb-selected-file (gdb-mi--field frame 'fullname))
+      (setq gdb-selected-file (file-local-name (gdb-mi--field frame 'fullname)))
       (setq gdb-frame-number (gdb-mi--field frame 'level))
       (setq gdb-frame-address (gdb-mi--field frame 'addr))
       (let ((line (gdb-mi--field frame 'line)))