[slime-cvs] CVS slime

[CVS User heller]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv10267

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (sldb-exit): When stepping, close buffer after a delay.
(sldb-close-step-buffer): New function.

--- /project/slime/cvsroot/slime/ChangeLog	2010/05/01 06:12:30	1.2080
+++ /project/slime/cvsroot/slime/ChangeLog	2010/05/05 05:19:37	1.2081
@@ -1,3 +1,8 @@
+2010-05-05  Helmut Eller  <heller at common-lisp.net>
+
+	* slime.el (sldb-exit): When stepping, close buffer after a delay.
+	(sldb-close-step-buffer): New function.
+
 2010-05-01  Stas Boukarev  <stassats at gmail.com>
 
 	* slime.el (slime-restart-sentinel): Don't pop to the inferior
--- /project/slime/cvsroot/slime/slime.el	2010/05/01 06:12:30	1.1310
+++ /project/slime/cvsroot/slime/slime.el	2010/05/05 05:19:37	1.1311
@@ -5532,10 +5532,17 @@
   (when-let (sldb (sldb-find-buffer thread))
     (with-current-buffer sldb
       (cond (stepping
-             (setq sldb-level nil))
+             (setq sldb-level nil)
+             (run-with-timer 0.4 nil 'sldb-close-step-buffer sldb))
             (t
              (slime-popup-buffer-quit t))))))
 
+(defun sldb-close-step-buffer (buffer)
+  (when (buffer-live-p buffer)
+    (with-current-buffer buffer
+      (when (not sldb-level)
+        (slime-popup-buffer-quit t)))))
+
 
 ;;;;;; SLDB buffer insertion