[slime-cvs] CVS update: slime/slime.el

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv28893

Modified Files:
	slime.el 
Log Message:
(slime-init-dispatcher): Delete old debugger windows.
Date: Sat Nov  1 11:58:13 2003
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.66 slime/slime.el:1.67
--- slime/slime.el:1.66	Sat Nov  1 10:42:02 2003
+++ slime/slime.el	Sat Nov  1 11:58:13 2003
@@ -864,7 +864,8 @@
 (defun slime-init-dispatcher ()
   "Initialize the stack machine."
   (setq sldb-level 0)
-  (setq slime-state-stack (list (slime-idle-state))))
+  (setq slime-state-stack (list (slime-idle-state)))
+  (sldb-cleanup))
 
 (defun slime-activate-state ()
   "Activate the current state.
@@ -994,9 +995,6 @@
   "Idle state. The only event allowed is to make a request."
   ((activate)
    (assert (= sldb-level 0))
-   (when sldb-saved-window-configuration
-     (set-window-configuration sldb-saved-window-configuration)
-     (setq sldb-saved-window-configuration nil))
    (slime-repl-maybe-prompt))
   ((:emacs-evaluate form-string package-name continuation)
    (slime-output-evaluate-request form-string package-name)