dbgr-terminate, dbg-terminate-srcbuf Coerce string buffer name into a buffer.

diff --git a/dbgr/common/core.el b/dbgr/common/core.el
index 7527e69be825a14d5521c116c0beef29fcc35e59..6fa64738532e081999605d61db526a4e8cdf8e36 100644 (file)
--- a/dbgr/common/core.el
+++ b/dbgr/common/core.el
@@ -131,6 +131,7 @@ 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: ")
+  (if (stringp srcbuf) (setq srcbuf (get-buffer srcbuf)))
   (with-current-buffer srcbuf
     (dbgr-fringe-erase-history-arrows)
     (dbgr-bp-remove-icons (point-min) (point-max))
@@ -146,6 +147,7 @@ which shows details of the error. The command buffer or nil is returned"
 buffer BUF) This does things like remove fringe arrows breakpoint
 icons and resets short-key mode."
   (interactive "bbuffer: ")
+  (if (stringp buf) (setq buf (get-buffer buf)))
   (let ((cmdbuf (dbgr-get-cmdbuf buf)))
     (if cmdbuf
        (with-current-buffer cmdbuf