Mercurial > emacs
changeset 66105:59812faf9041
(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.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Sat, 15 Oct 2005 22:58:11 +0000 |
| parents | f309eed9f854 |
| children | 9b8e76617c8c |
| files | lisp/progmodes/gud.el |
| diffstat | 1 files changed, 6 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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))