'C' dbgr-window-undisturb-src should select the command window, not just show it...

diff --git a/dbgr/common/window.el b/dbgr/common/window.el
index 51db94964f4fb6e3eb5429bc6fcbee701c043c91..e154d2d6bdc3d3a1a0a174847bd12c1b9dbddae5 100644 (file)
--- a/dbgr/common/window.el
+++ b/dbgr/common/window.el
@@ -27,7 +27,7 @@ We assume MARKER points inside BUFFER"
 (defun dbgr-window-src ( &optional opt-buffer )
   "Make sure the source buffer is displayed in a window
 We don't care if the command buffer is also displayed.
-See also `dbgr-window-src-undistub-cmd'"
+See also `dbgr-window-src-undisturb-cmd'"
   (let* ((buffer (or opt-buffer (current-buffer)))
         (src-buffer (dbgr-get-srcbuf buffer))
         (src-window (get-buffer-window src-buffer 'visible))
@@ -58,7 +58,7 @@ See also `dbgr-window-src'"
                    ;; FIXME: generalize what to do here.
                    (if (one-window? 't) 
                        (split-window) 
-                     (next-window window))
+                     (next-window window 'no-minibuf))
                  window))
          (set-window-buffer src-window src-buffer))
        )
@@ -86,7 +86,7 @@ See also `dbgr-window-src'"
                      ;; FIXME: generalize what to do here.
                      (if (one-window? 't) 
                          (split-window) 
-                       (next-window window))
+                       (next-window window 'no-minibuf))
                    window))
            (set-window-buffer cmd-window cmd-buffer)
            )
@@ -95,6 +95,7 @@ See also `dbgr-window-src'"
                   (switch-to-buffer cmd-buffer))))
 
       )
+    (select-window cmd-window)
     src-window)
   )
 
@@ -121,7 +122,7 @@ See also `dbgr-window-src'"
                      ;; FIXME: generalize what to do here.
                      (if (one-window? 't) 
                          (split-window) 
-                       (next-window window))
+                       (next-window window 'no-minibuf))
                    window))
            (set-window-buffer bt-window bt-buffer)
            )