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

[Nick Roberts]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Nick Roberts <nickrob>  06/07/13 21:57:05

Index: gud.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/gud.el,v
retrieving revision 1.113
retrieving revision 1.114
diff -u -b -r1.113 -r1.114
--- gud.el      3 Jul 2006 23:05:49 -0000       1.113
+++ gud.el      13 Jul 2006 21:57:05 -0000      1.114
@@ -2763,7 +2763,8 @@
            (gud-find-file true-file)))
         (window (and buffer (or (get-buffer-window buffer)
                                 (if (memq gud-minor-mode '(gdbmi gdba))
-                                    (gdb-display-source-buffer buffer))
+                                    (unless (gdb-display-source-buffer buffer)
+                                      (gdb-display-buffer buffer nil)))
                                 (display-buffer buffer))))
         (pos))
     (if buffer
@@ -2793,7 +2794,10 @@
            (cond ((or (< pos (point-min)) (> pos (point-max)))
                   (widen)
                   (goto-char pos))))
-         (if window (set-window-point window gud-overlay-arrow-position))))))
+         (when window 
+           (set-window-point window gud-overlay-arrow-position)
+           (if (memq gud-minor-mode '(gdbmi gdba))
+               (setq gdb-source-window window)))))))
 
 ;; The gud-call function must do the right thing whether its invoking
 ;; keystroke is from the GUD buffer itself (via major-mode binding)