diff options
| -rw-r--r-- | lisp/progmodes/gdb-ui.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el index 244570170fa..d6854d091fe 100644 --- a/lisp/progmodes/gdb-ui.el +++ b/lisp/progmodes/gdb-ui.el | |||
| @@ -417,7 +417,8 @@ With arg, use separate IO iff arg is positive." | |||
| 417 | (goto-char (point-min)) | 417 | (goto-char (point-min)) |
| 418 | (when (search-forward "read in on demand:" nil t) | 418 | (when (search-forward "read in on demand:" nil t) |
| 419 | (while (re-search-forward gdb-source-file-regexp nil t) | 419 | (while (re-search-forward gdb-source-file-regexp nil t) |
| 420 | (push (or (match-string 1) (match-string 2)) gdb-source-file-list)) | 420 | (push (file-name-nondirectory (or (match-string 1) (match-string 2))) |
| 421 | gdb-source-file-list)) | ||
| 421 | (dolist (buffer (buffer-list)) | 422 | (dolist (buffer (buffer-list)) |
| 422 | (with-current-buffer buffer | 423 | (with-current-buffer buffer |
| 423 | (when (and buffer-file-name | 424 | (when (and buffer-file-name |