diff options
| author | Jim Porter | 2021-05-01 12:09:36 +0200 |
|---|---|---|
| committer | Michael Albinus | 2021-05-01 12:09:36 +0200 |
| commit | 019c70e731d0243ad3ea2d4ebb02dd4a343e868f (patch) | |
| tree | d2c050dfcf35f38b991d30cb8b9d79be8b8a39af | |
| parent | 04266a2cacc0f0705d0d1abaada464b402cc7b07 (diff) | |
| download | emacs-019c70e731d0243ad3ea2d4ebb02dd4a343e868f.tar.gz emacs-019c70e731d0243ad3ea2d4ebb02dd4a343e868f.zip | |
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'.
| -rw-r--r-- | lisp/progmodes/gdb-mi.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 4512 | (let ((frame (gdb-mi--field (gdb-mi--partial-output) 'frame))) | 4512 | (let ((frame (gdb-mi--field (gdb-mi--partial-output) 'frame))) |
| 4513 | (when frame | 4513 | (when frame |
| 4514 | (setq gdb-selected-frame (gdb-mi--field frame 'func)) | 4514 | (setq gdb-selected-frame (gdb-mi--field frame 'func)) |
| 4515 | (setq gdb-selected-file (gdb-mi--field frame 'fullname)) | 4515 | (setq gdb-selected-file (file-local-name (gdb-mi--field frame 'fullname))) |
| 4516 | (setq gdb-frame-number (gdb-mi--field frame 'level)) | 4516 | (setq gdb-frame-number (gdb-mi--field frame 'level)) |
| 4517 | (setq gdb-frame-address (gdb-mi--field frame 'addr)) | 4517 | (setq gdb-frame-address (gdb-mi--field frame 'addr)) |
| 4518 | (let ((line (gdb-mi--field frame 'line))) | 4518 | (let ((line (gdb-mi--field frame 'line))) |