diff options
| author | Po Lu <luangruo@yahoo.com> | 2021-12-01 15:20:08 +0800 |
|---|---|---|
| committer | Po Lu <luangruo@yahoo.com> | 2021-12-01 15:20:08 +0800 |
| commit | 5477b929da886c1aea70e1b2ac17b80df8d0015b (patch) | |
| tree | 62a98b0bc2532fe9e06fab3dca0d5caaec369e8a /lisp/progmodes/gdb-mi.el | |
| parent | b463dc8921aaebb429192fcb5b54743660483505 (diff) | |
| parent | 9fa15463bd849f1ae34812183b2bf5285b8b0a67 (diff) | |
| download | emacs-5477b929da886c1aea70e1b2ac17b80df8d0015b.tar.gz emacs-5477b929da886c1aea70e1b2ac17b80df8d0015b.tar.bz2 emacs-5477b929da886c1aea70e1b2ac17b80df8d0015b.zip | |
Merge remote-tracking branch 'origin/master' into feature/pgtk
Diffstat (limited to 'lisp/progmodes/gdb-mi.el')
| -rw-r--r-- | lisp/progmodes/gdb-mi.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el index 39fcfd341cb..cf1d62d3695 100644 --- a/lisp/progmodes/gdb-mi.el +++ b/lisp/progmodes/gdb-mi.el @@ -4611,7 +4611,9 @@ 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 (file-local-name (gdb-mi--field frame 'fullname))) + (setq gdb-selected-file + (when-let ((full (gdb-mi--field frame 'fullname))) + (file-local-name full))) (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))) |