diff options
| author | Nick Roberts <nickrob@snap.net.nz> | 2006-04-13 01:38:24 +0000 |
|---|---|---|
| committer | Nick Roberts <nickrob@snap.net.nz> | 2006-04-13 01:38:24 +0000 |
| commit | 12c83f528cc92d786663ae702c20a549dc45e83b (patch) | |
| tree | 8543b439651801823b48c19abd96bdfc7bcc3a58 /lisp/progmodes/gdb-ui.el | |
| parent | 25acaa6c71298f950b72ea32f1ec6dc768500627 (diff) | |
| download | emacs-12c83f528cc92d786663ae702c20a549dc45e83b.tar.gz | |
(gdb-set-gud-minor-mode-existing-buffers):
GDB 6.1+ gives full filename for "info sources" so use
file-name-nondirectory.
Diffstat (limited to 'lisp/progmodes/gdb-ui.el')
| -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." (goto-char (point-min)) (when (search-forward "read in on demand:" nil t) (while (re-search-forward gdb-source-file-regexp nil t) - (push (or (match-string 1) (match-string 2)) gdb-source-file-list)) + (push (file-name-nondirectory (or (match-string 1) (match-string 2))) + gdb-source-file-list)) (dolist (buffer (buffer-list)) (with-current-buffer buffer (when (and buffer-file-name |