diff options
| author | Nick Roberts | 2005-10-15 22:58:11 +0000 |
|---|---|---|
| committer | Nick Roberts | 2005-10-15 22:58:11 +0000 |
| commit | a1edf96294aa8da8098880fe29285446a1fdc1de (patch) | |
| tree | 3f126b7c2f3c9e25421f21c7bd9765944b3a9f90 | |
| parent | 488c11cfc4ad9092348cc47e9eb2711b72a03f66 (diff) | |
| download | emacs-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.el | 11 |
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)) |