[slime-cvs] CVS slime

[CVS User trittweiler]

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

Modified Files:
	slime.el ChangeLog 
Log Message:

Modeline wouldn't display {debugged..} after `slime-interrupt'.

* slime.el (slime-debugged-connection-p): Can't rely on
  `sldb-debugged-continuations' to be non-null in every SLDB buffer.


--- /project/slime/cvsroot/slime/slime.el	2008/11/23 22:11:36	1.1065
+++ /project/slime/cvsroot/slime/slime.el	2008/12/02 21:14:13	1.1066
@@ -2352,7 +2352,12 @@
   (not (memq conn slime-net-processes)))
 
 (defun slime-debugged-connection-p (conn)
-  (and (sldb-debugged-continuations conn) t))
+  ;; This previously was (AND (SLDB-DEBUGGED-CONTINUATIONS CONN) T),
+  ;; but an SLDB buffer may exist without having continuations
+  ;; attached to it, e.g. the one resulting from `slime-interrupt'.
+  (loop for b in (sldb-buffers)
+        thereis (with-current-buffer b
+                  (eq slime-buffer-connection conn))))
 
 (defun slime-busy-p (&optional conn)
   "True if Lisp has outstanding requests.
--- /project/slime/cvsroot/slime/ChangeLog	2008/11/23 22:11:36	1.1587
+++ /project/slime/cvsroot/slime/ChangeLog	2008/12/02 21:14:13	1.1588
@@ -1,3 +1,10 @@
+2008-12-02  Tobias C. Rittweiler  <tcr at freebits.de>
+
+	Modeline wouldn't display {debugged..} after `slime-interrupt'.
+
+	* slime.el (slime-debugged-connection-p): Can't rely on
+	`sldb-debugged-continuations' to be non-null in every SLDB buffer.
+
 2008-11-23  Helmut Eller  <heller at common-lisp.net>
 
 	`q' in temp buffers should only delete the window if it was newly