aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorNick Roberts2005-10-15 22:58:11 +0000
committerNick Roberts2005-10-15 22:58:11 +0000
commita1edf96294aa8da8098880fe29285446a1fdc1de (patch)
tree3f126b7c2f3c9e25421f21c7bd9765944b3a9f90
parent488c11cfc4ad9092348cc47e9eb2711b72a03f66 (diff)
downloademacs-a1edf96294aa8da8098880fe29285446a1fdc1de.tar.gz
emacs-a1edf96294aa8da8098880fe29285446a1fdc1de.zip
(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.
-rw-r--r--lisp/progmodes/gud.el11
1 files changed, 6 insertions, 5 deletions
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.")
209 ;; gud-s, gud-si etc. instead of gud-step, 209 ;; gud-s, gud-si etc. instead of gud-step,
210 ;; gud-stepi, to avoid file-name clashes on DOS 210 ;; gud-stepi, to avoid file-name clashes on DOS
211 ;; 8+3 filesystems. 211 ;; 8+3 filesystems.
212 (gud-next . "gud/n") 212 (gud-next . "gud/next")
213 (gud-step . "gud/s") 213 (gud-step . "gud/step")
214 (gud-nexti . "gud/ni") 214 (gud-nexti . "gud/nexti")
215 (gud-stepi . "gud/si") 215 (gud-stepi . "gud/stepi")
216 (gud-up . "gud/up") 216 (gud-up . "gud/up")
217 (gud-down . "gud/down") 217 (gud-down . "gud/down")
218 (gud-goto-info . "info")) 218 (gud-goto-info . "info"))
@@ -2575,7 +2575,8 @@ It is saved for when this flag is not set.")
2575 ;; Stop displaying an arrow in a source file. 2575 ;; Stop displaying an arrow in a source file.
2576 (setq gud-overlay-arrow-position nil) 2576 (setq gud-overlay-arrow-position nil)
2577 (set-process-buffer proc nil) 2577 (set-process-buffer proc nil)
2578 (if (featurep 'speedbar) 2578 (if (and (boundp 'speedbar-frame)
2579 (string-equal speedbar-initial-expansion-list-name "GUD"))
2579 (speedbar-change-initial-expansion-list 2580 (speedbar-change-initial-expansion-list
2580 speedbar-previously-used-expansion-list-name)) 2581 speedbar-previously-used-expansion-list-name))
2581 (if (memq gud-minor-mode-type '(gdbmi gdba)) 2582 (if (memq gud-minor-mode-type '(gdbmi gdba))