# HG changeset patch
# User Eric S. Raymond <esr@snark.thyrsus.com>
# Date 735947986 0
# Node ID e1277aec1738d5bdc9418c6d93aec29e1fbcac46
# Parent  5457416cd8170b7eddeefb4ec20f8bda033e5547
(gud-format-command): Fix %f expansuuin to send ondly the basename of
files to gdb.

diff -r 5457416cd817 -r e1277aec1738 lisp/gud.el
--- 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