(gdb-set-gud-minor-mode-existing-buffers):

GDB 6.1+ gives full filename for "info sources" so use
file-name-nondirectory.

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