[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-update-threads-buffer): Use slime-eval-async.


--- /project/slime/cvsroot/slime/ChangeLog	2010/04/23 02:46:27	1.2075
+++ /project/slime/cvsroot/slime/ChangeLog	2010/04/23 03:00:20	1.2076
@@ -1,5 +1,9 @@
 2010-04-23  Stas Boukarev  <stassats at gmail.com>
 
+	* slime.el (slime-update-threads-buffer): Use slime-eval-async
+
+2010-04-23  Stas Boukarev  <stassats at gmail.com>
+
 	* slime.el (slime-inspector-buffer): Use slime-with-popup-buffer,
 	that solves the problem with keybindings shadowed by slime-mode.
 	Reported by Nathan Bird.
--- /project/slime/cvsroot/slime/slime.el	2010/04/23 02:46:28	1.1306
+++ /project/slime/cvsroot/slime/slime.el	2010/04/23 03:00:20	1.1307
@@ -6250,14 +6250,18 @@
   (setq slime-thread-index-to-id nil)
   (slime-eval-async `(swank:quit-thread-browser)))
 
+(defun slime-update-threads-buffer ()
+  (interactive)
+  (with-current-buffer slime-threads-buffer-name
+    (slime-eval-async '(swank:list-threads)
+      'slime-display-threads)))
+
 (defvar slime-thread-index-to-id nil)
 
 ;;; FIXME: the region selection is jumping
-(defun slime-update-threads-buffer ()
-  (interactive)
+(defun slime-display-threads (threads)
   (with-current-buffer slime-threads-buffer-name
     (let* ((inhibit-read-only t)
-           (threads (slime-eval '(swank:list-threads)))
            (index (get-text-property (point) 'thread-id))
            (old-thread-id (and (numberp index)
                                (elt slime-thread-index-to-id index)))