diff options
| author | Jim Porter | 2021-05-01 12:05:37 +0200 |
|---|---|---|
| committer | Michael Albinus | 2021-05-01 12:05:37 +0200 |
| commit | ccfd2e20a985a1114469963e33b966721bb3ce29 (patch) | |
| tree | 692f5c88f3bab16dc42d12e97a6513bb39821d46 | |
| parent | e61688f87db985e8f12631d609d74f9a12e5839b (diff) | |
| download | emacs-ccfd2e20a985a1114469963e33b966721bb3ce29.tar.gz emacs-ccfd2e20a985a1114469963e33b966721bb3ce29.zip | |
Fix GUD overlay arrows in M-x gdb when debugging over Tramp. Don't merge
* 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 1b2642fae70..51a237a38e8 100644 --- a/lisp/progmodes/gdb-mi.el +++ b/lisp/progmodes/gdb-mi.el | |||
| @@ -4376,7 +4376,7 @@ overlay arrow in source buffer." | |||
| 4376 | (let ((frame (bindat-get-field (gdb-json-partial-output) 'frame))) | 4376 | (let ((frame (bindat-get-field (gdb-json-partial-output) 'frame))) |
| 4377 | (when frame | 4377 | (when frame |
| 4378 | (setq gdb-selected-frame (bindat-get-field frame 'func)) | 4378 | (setq gdb-selected-frame (bindat-get-field frame 'func)) |
| 4379 | (setq gdb-selected-file (bindat-get-field frame 'fullname)) | 4379 | (setq gdb-selected-file (file-local-name (bindat-get-field frame 'fullname))) |
| 4380 | (setq gdb-frame-number (bindat-get-field frame 'level)) | 4380 | (setq gdb-frame-number (bindat-get-field frame 'level)) |
| 4381 | (setq gdb-frame-address (bindat-get-field frame 'addr)) | 4381 | (setq gdb-frame-address (bindat-get-field frame 'addr)) |
| 4382 | (let ((line (bindat-get-field frame 'line))) | 4382 | (let ((line (bindat-get-field frame 'line))) |