# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1129417091 0
# Node ID 59812faf9041a24c0f58273d27bb11620deadb0a
# Parent  f309eed9f85466294e4456c281e9b2ee51657a63
(gud-tool-bar-map): Rename the images
appropriately (gud/next, gud/nexti, gud/step, gud/stepi).
(gud-sentinel): Use speedbar-frame to check for speedbar.

diff -r f309eed9f854 -r 59812faf9041 lisp/progmodes/gud.el
--- a/lisp/progmodes/gud.el	Sat Oct 15 22:56:30 2005 +0000
+++ b/lisp/progmodes/gud.el	Sat Oct 15 22:58:11 2005 +0000
@@ -209,10 +209,10 @@
 		     ;; gud-s, gud-si etc. instead of gud-step,
 		     ;; gud-stepi, to avoid file-name clashes on DOS
 		     ;; 8+3 filesystems.
-		     (gud-next . "gud/n")
-		     (gud-step . "gud/s")
-		     (gud-nexti . "gud/ni")
-		     (gud-stepi . "gud/si")
+		     (gud-next . "gud/next")
+		     (gud-step . "gud/step")
+		     (gud-nexti . "gud/nexti")
+		     (gud-stepi . "gud/stepi")
 		     (gud-up . "gud/up")
 		     (gud-down . "gud/down")
 		     (gud-goto-info . "info"))
@@ -2575,7 +2575,8 @@
 	 ;; Stop displaying an arrow in a source file.
 	 (setq gud-overlay-arrow-position nil)
 	 (set-process-buffer proc nil)
-	 (if (featurep 'speedbar)
+	 (if (and (boundp 'speedbar-frame)
+		  (string-equal speedbar-initial-expansion-list-name "GUD"))
 	     (speedbar-change-initial-expansion-list
 	      speedbar-previously-used-expansion-list-name))
 	 (if (memq gud-minor-mode-type '(gdbmi gdba))