]> git.eshelyaron.com Git - emacs.git/commitdiff
Fix GUD overlay arrows in M-x gdb when debugging over Tramp. Don't merge
authorJim Porter <jporterbugs@gmail.com>
Sat, 1 May 2021 10:05:37 +0000 (12:05 +0200)
committerMichael Albinus <michael.albinus@gmx.de>
Sat, 1 May 2021 10:05:37 +0000 (12:05 +0200)
* lisp/progmodes/gdb-mi.el (gdb-frame-handler): Use local part of
file name when setting `gud-last-frame'.

lisp/progmodes/gdb-mi.el

index 1b2642fae70e79ff70b1676bde013e7b9124def3..51a237a38e868989b7f7d69b613aae294db16379 100644 (file)
@@ -4376,7 +4376,7 @@ overlay arrow in source buffer."
   (let ((frame (bindat-get-field (gdb-json-partial-output) 'frame)))
     (when frame
       (setq gdb-selected-frame (bindat-get-field frame 'func))
-      (setq gdb-selected-file (bindat-get-field frame 'fullname))
+      (setq gdb-selected-file (file-local-name (bindat-get-field frame 'fullname)))
       (setq gdb-frame-number (bindat-get-field frame 'level))
       (setq gdb-frame-address (bindat-get-field frame 'addr))
       (let ((line (bindat-get-field frame 'line)))