changeset 69988:f4b6648f6d4f

(gdb-set-gud-minor-mode-existing-buffers): GDB 6.1+ gives full filename for "info sources" so use file-name-nondirectory.
author Nick Roberts <nickrob@snap.net.nz>
date Thu, 13 Apr 2006 01:38:24 +0000
parents 64b708bcb93a
children c3f0c8cc639e
files lisp/progmodes/gdb-ui.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/gdb-ui.el	Thu Apr 13 01:37:37 2006 +0000
+++ b/lisp/progmodes/gdb-ui.el	Thu Apr 13 01:38:24 2006 +0000
@@ -417,7 +417,8 @@
   (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