mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-11-24 07:20:37 +00:00
Fix regression in gdb-frame-handler
* lisp/progmodes/gdb-mi.el (gdb-frame-handler): Protect against nil fullnames (bug#52196).
This commit is contained in:
parent
cd9dd26d24
commit
70c229b1fc
@ -4600,7 +4600,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)))
|
||||
|
Loading…
Reference in New Issue
Block a user