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

[Nick Roberts]

CVSROOT:        /sources/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Nick Roberts <nickrob>  07/10/01 11:28:21

Index: gud.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/gud.el,v
retrieving revision 1.129.2.7
retrieving revision 1.129.2.8
diff -u -b -r1.129.2.7 -r1.129.2.8
--- gud.el      13 Sep 2007 06:26:20 -0000      1.129.2.7
+++ gud.el      1 Oct 2007 11:28:21 -0000       1.129.2.8
@@ -2630,7 +2630,7 @@
           ;;  process-buffer is current-buffer
           (unwind-protect
               (progn
-                ;; Write something in *compilation* and hack its mode line,
+                ;; Write something in the GUD buffer and hack its mode line,
                 (set-buffer (process-buffer proc))
                 ;; Fix the mode line.
                 (setq mode-line-process
@@ -2686,10 +2686,13 @@
         (buffer
          (with-current-buffer gud-comint-buffer
            (gud-find-file true-file)))
-        (window (and buffer (or (get-buffer-window buffer)
+        (window (and buffer
+                     (or (get-buffer-window buffer)
                                 (if (memq gud-minor-mode '(gdbmi gdba))
+                             (or (if (get-buffer-window buffer 0)
+                                     (display-buffer buffer nil 0))
                                     (unless (gdb-display-source-buffer buffer)
-                                      (gdb-display-buffer buffer nil)))
+                                   (gdb-display-buffer buffer nil))))
                                 (display-buffer buffer))))
         (pos))
     (if buffer