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

[Nick Roberts]

Index: emacs/lisp/progmodes/gdb-ui.el
diff -u emacs/lisp/progmodes/gdb-ui.el:1.165 
emacs/lisp/progmodes/gdb-ui.el:1.166
--- emacs/lisp/progmodes/gdb-ui.el:1.165        Thu May  4 05:16:46 2006
+++ emacs/lisp/progmodes/gdb-ui.el      Sat May  6 00:34:11 2006
@@ -1912,7 +1912,7 @@
            (let* ((buffer (find-file-noselect
                         (if (file-exists-p file) file
                           (cdr (assoc bptno gdb-location-alist)))))
-                  (window (unless (gdb-display-source-buffer buffer)
+                  (window (or (gdb-display-source-buffer buffer)
                               (display-buffer buffer))))
              (setq gdb-source-window window)
              (with-current-buffer buffer
@@ -2754,6 +2754,7 @@
           ;; Put buffer list in window if we
           ;; can't find a source file.
           (list-buffers-noselect))))
+  (setq gdb-source-window (selected-window))
   (when gdb-use-separate-io-buffer
     (split-window-horizontally)
     (other-window 1)
@@ -2781,6 +2782,7 @@
        (if gud-last-last-frame
           (gud-find-file (car gud-last-last-frame))
         (gud-find-file gdb-main-file)))
+      (setq gdb-source-window (selected-window))
       (other-window 1))))
 
 (defun gdb-reset ()