changeset 2594:e1277aec1738

(gud-format-command): Fix %f expansuuin to send ondly the basename of files to gdb.
author Eric S. Raymond <esr@snark.thyrsus.com>
date Tue, 27 Apr 1993 21:59:46 +0000
parents 5457416cd817
children 6a1ad0661928
files lisp/gud.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gud.el	Tue Apr 27 21:59:41 1993 +0000
+++ b/lisp/gud.el	Tue Apr 27 21:59:46 1993 +0000
@@ -582,9 +582,9 @@
 	(progn
 	  (setq str (concat
 		     (substring str (match-beginning 1) (match-end 1))
-		     (if insource
-			 (buffer-file-name)
-		       (car gud-last-frame))
+		     (file-name-nondirectory (if insource
+						 (buffer-file-name)
+					       (car gud-last-frame)))
 		     (substring str (match-beginning 2) (match-end 2))))))
     (if (string-match "\\(.*\\)%l\\(.*\\)" str)
 	(progn