From: Nick Roberts <nickrob@snap.net.nz>
Date: Sat, 15 Oct 2005 22:58:11 +0000 (+0000)
Subject: (gud-tool-bar-map): Rename the images
X-Git-Tag: emacs-pretest-22.0.90~6593
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a1edf96294aa8da8098880fe29285446a1fdc1de;p=emacs.git

(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 --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index 13acc893c23..016c0905165 100644
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -209,10 +209,10 @@ Used to grey out relevant togolbar icons.")
 		     ;; 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 @@ It is saved for when this flag is not set.")
 	 ;; 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))