[slime-cvs] CVS slime

[heller]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv11794

Modified Files:
	slime.el ChangeLog 
Log Message:
Fix slime-list-thread selector.
    
* slime.el (slime-list-threads): Wait for the result before
continuing.


--- /project/slime/cvsroot/slime/slime.el	2007/12/13 15:05:00	1.883
+++ /project/slime/cvsroot/slime/slime.el	2007/12/13 15:06:51	1.884
@@ -7272,19 +7272,17 @@
 (defun slime-list-threads ()
   "Display a list of threads."
   (interactive)
-  (slime-eval-async 
-   '(swank:list-threads)
-   (lambda (threads)
-      (with-current-buffer (get-buffer-create "*slime-threads*")
-       (slime-thread-control-mode)
-       (let ((inhibit-read-only t))
-         (erase-buffer)
-         (loop for idx from 0 
-               for (name status id) in threads
-               do (slime-thread-insert idx name status id))
-         (goto-char (point-min))
-         (setq buffer-read-only t)
-         (pop-to-buffer (current-buffer)))))))
+  (let ((threads (slime-eval '(swank:list-threads))))
+    (with-current-buffer (get-buffer-create "*slime-threads*")
+      (slime-thread-control-mode)
+      (let ((inhibit-read-only t))
+        (erase-buffer)
+        (loop for idx from 0 
+              for (name status id) in threads
+              do (slime-thread-insert idx name status id))
+        (goto-char (point-min))
+        (setq buffer-read-only t)
+        (pop-to-buffer (current-buffer))))))
 
 (defun slime-thread-insert (idx name summary id)
   (slime-propertize-region `(thread-id ,idx)
@@ -7813,7 +7811,6 @@
 (def-slime-selector-method ?t
   "SLIME threads buffer."
   (slime-list-threads)
-  (slime-eval `(cl:quote nil))          ;wait until slime-list-threads returns
   "*slime-threads*")
 
 (defun slime-recently-visited-buffer (mode)
--- /project/slime/cvsroot/slime/ChangeLog	2007/12/13 15:05:01	1.1255
+++ /project/slime/cvsroot/slime/ChangeLog	2007/12/13 15:06:51	1.1256
@@ -1,5 +1,12 @@
 2007-12-04  Helmut Eller  <heller at common-lisp.net>
 
+	Fix slime-list-thread selector.
+	
+	* slime.el (slime-list-threads): Wait for the result before
+	continuing.
+
+2007-12-04  Helmut Eller  <heller at common-lisp.net>
+
 	* slime.el (slime-repl-insert-result): Use slime-repl-emit-result
 	since handling of markers has changed.
 	(slime-repl-emit-result): New argument: bol.
@@ -13,7 +20,7 @@
 	(setup-server): Store open sockets in *listener-sockets*.
 
 2007-12-02  Helmut Eller  <heller at common-lisp.net>
-
+	
 	Add hook to customize the region used by C-c C-c.
 	Useful to recognize block declarations in CMUCL sources.