[Emacs-diffs] Changes to emacs/lisp/progmodes/gud.el

[Nick Roberts]

Index: emacs/lisp/progmodes/gud.el
diff -c emacs/lisp/progmodes/gud.el:1.59 emacs/lisp/progmodes/gud.el:1.60
*** emacs/lisp/progmodes/gud.el:1.59    Sat Oct 15 05:41:09 2005
--- emacs/lisp/progmodes/gud.el Sat Oct 15 22:58:11 2005
***************
*** 209,218 ****
                     ;; 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-up . "gud/up")
                     (gud-down . "gud/down")
                     (gud-goto-info . "info"))
--- 209,218 ----
                     ;; gud-s, gud-si etc. instead of gud-step,
                     ;; gud-stepi, to avoid file-name clashes on DOS
                     ;; 8+3 filesystems.
!                    (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,2581 ****
         ;; Stop displaying an arrow in a source file.
         (setq gud-overlay-arrow-position nil)
         (set-process-buffer proc nil)
!        (if (featurep 'speedbar)
             (speedbar-change-initial-expansion-list
              speedbar-previously-used-expansion-list-name))
         (if (memq gud-minor-mode-type '(gdbmi gdba))
--- 2575,2582 ----
         ;; Stop displaying an arrow in a source file.
         (setq gud-overlay-arrow-position nil)
         (set-process-buffer proc nil)
!        (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))