diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-11-30 14:09:19 +0100 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-11-30 14:09:19 +0100 |
commit | 70c229b1fc4f2eb66b5a173cfc8473e4b7ce48f0 (patch) | |
tree | 0a6550fc3cb512e1a9d0854fa6c0709d545c0e6d | |
parent | cd9dd26d24c0e97b980fba44c2f8f9e1d6c919a5 (diff) | |
download | emacs-70c229b1fc4f2eb66b5a173cfc8473e4b7ce48f0.tar.gz |
Fix regression in gdb-frame-handler
* lisp/progmodes/gdb-mi.el (gdb-frame-handler): Protect against
nil fullnames (bug#52196).
-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 fa54f511608..66adc4e9ef8 100644 --- a/lisp/progmodes/gdb-mi.el +++ b/lisp/progmodes/gdb-mi.el @@ -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))) |