Add bidinng "C-c S" to go into source window from command window.

("frame 0" is lame.) Add commnd to reset source window.

diff --git a/dbgr/common/core.el b/dbgr/common/core.el
index a9ec1be4d00d02d6d41cc432ca85eed0256700ad..3284a9f1d1b383f1a9454b706da99736121d0ec3 100644 (file)
--- a/dbgr/common/core.el
+++ b/dbgr/common/core.el
@@ -128,11 +128,18 @@ which shows details of the error. The command buffer or nil is returned"
     )
   )
 
+(defun dbgr-terminate-srcbuf (&optional srcbuf)
+  "Resets source buffer."
+  (interactive "bsource buffer: ")
+  (dbgr-fringe-erase-history-arrows)
+  (dbgr-bp-remove-icons (point-min) (point-max))
+  (dbgr-short-key-mode 0)
+)
 
 (defun dbgr-terminate (&optional buf)
-  "Resets state in all buffers associated with source or command buffer BUF)
-This does things like remove fringe arrows breakpoint icons and
-resets short-key mode."
+  "Resets state in all buffers associated with source or command
+buffer BUF) This does things like remove fringe arrows breakpoint
+icons and resets short-key mode."
   (interactive "bbuffer: ")
   (let ((cmdbuf (dbgr-get-cmdbuf buf)))
     (if cmdbuf
@@ -144,10 +151,9 @@ resets short-key mode."
              (dolist (srcbuf (dbgr-cmdbuf-info-srcbuf-list dbgr-cmdbuf-info))
                (if (dbgr-srcbuf? srcbuf)
                    (with-current-buffer srcbuf
-                     (dbgr-fringe-erase-history-arrows)
-                 (dbgr-short-key-mode 0)
-                 (dbgr-bp-remove-icons (point-min) (point-max))
-                 )))
+                     (dbgr-terminate-srcbuf srcbuf)
+                     ))
+               )
            )
          )
       (error "Buffer %s does not seem to be attached to a debugger" 

diff --git a/dbgr/common/track-mode.el b/dbgr/common/track-mode.el
index 908b7695ebf9fba8204e8a3aca7f4d7b318452e0..51bee9fa1101a049727d338a03cf605cfe60110b 100644 (file)
--- a/dbgr/common/track-mode.el
+++ b/dbgr/common/track-mode.el
@@ -20,6 +20,7 @@
     (define-key map [M-print]  'dbgr-track-hist-older)
     (define-key map [M-S-down] 'dbgr-track-hist-newest)
     (define-key map [M-S-up]   'dbgr-track-hist-oldest)
+    (define-key map (kbd "C-c S") 'dbgr-window-src-undisturb-cmd)
     map)
   "Keymap used in `dbgr-track-minor-mode'.")
 

diff --git a/dbgr/common/window.el b/dbgr/common/window.el
index e154d2d6bdc3d3a1a0a174847bd12c1b9dbddae5..48a86ce4d92bd53bd46da1788a59596622201d44 100644 (file)
--- a/dbgr/common/window.el
+++ b/dbgr/common/window.el
@@ -62,6 +62,7 @@ See also `dbgr-window-src'"
                  window))
          (set-window-buffer src-window src-buffer))
        )
+    (select-window src-window)
     cmd-window)
   )