209 |
;; gud-s, gud-si etc. instead of gud-step, |
;; gud-s, gud-si etc. instead of gud-step, |
210 |
;; gud-stepi, to avoid file-name clashes on DOS |
;; gud-stepi, to avoid file-name clashes on DOS |
211 |
;; 8+3 filesystems. |
;; 8+3 filesystems. |
212 |
(gud-next . "gud/n") |
(gud-next . "gud/next") |
213 |
(gud-step . "gud/s") |
(gud-step . "gud/step") |
214 |
(gud-nexti . "gud/ni") |
(gud-nexti . "gud/nexti") |
215 |
(gud-stepi . "gud/si") |
(gud-stepi . "gud/stepi") |
216 |
(gud-up . "gud/up") |
(gud-up . "gud/up") |
217 |
(gud-down . "gud/down") |
(gud-down . "gud/down") |
218 |
(gud-goto-info . "info")) |
(gud-goto-info . "info")) |
2575 |
;; Stop displaying an arrow in a source file. |
;; Stop displaying an arrow in a source file. |
2576 |
(setq gud-overlay-arrow-position nil) |
(setq gud-overlay-arrow-position nil) |
2577 |
(set-process-buffer proc nil) |
(set-process-buffer proc nil) |
2578 |
(if (featurep 'speedbar) |
(if (and (boundp 'speedbar-frame) |
2579 |
|
(string-equal speedbar-initial-expansion-list-name "GUD")) |
2580 |
(speedbar-change-initial-expansion-list |
(speedbar-change-initial-expansion-list |
2581 |
speedbar-previously-used-expansion-list-name)) |
speedbar-previously-used-expansion-list-name)) |
2582 |
(if (memq gud-minor-mode-type '(gdbmi gdba)) |
(if (memq gud-minor-mode-type '(gdbmi gdba)) |