mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-10 00:00:39 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
GDB 6.1+ gives full filename for "info sources" so use
file-name-nondirectory.
This commit is contained in:
Nick Roberts 2006-04-13 01:38:24 +00:00
parent 25acaa6c71
commit 12c83f528c
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/progmodes/gdb-ui.el
View file

@ -417,7 +417,8 @@ With arg, use separate IO iff arg is positive."
(goto-char (point-min)) (goto-char (point-min))
(when (search-forward "read in on demand:" nil t) (when (search-forward "read in on demand:" nil t)
(while (re-search-forward gdb-source-file-regexp 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)) (dolist (buffer (buffer-list))
(with-current-buffer buffer (with-current-buffer buffer
(when (and buffer-file-name (when (and buffer-file-name