[slime-cvs] CVS slime

[heller]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-simple-completions): Bind slime-current-thread
to t so that completion is peformed in a fresh thread.

--- /project/slime/cvsroot/slime/ChangeLog	2008/08/09 19:56:59	1.1422
+++ /project/slime/cvsroot/slime/ChangeLog	2008/08/09 19:57:06	1.1423
@@ -27,7 +27,9 @@
 	(sldb-break-with-default-debugger): Invoke the native debugger
 	on top of the slime debugger.
 
-	* slime.el (sldb-setup): Always pop to the debugger buffer.
+	* slime.el (slime-simple-completions): Bind slime-current-thread
+	to t so that completion is peformed in a fresh thread.
+	(sldb-setup): Always pop to the debugger buffer.
 	(sldb-activate): Optionally select the window.
 
 	* swank-sbcl.lisp (sb-thread::get-foreground): Override this
--- /project/slime/cvsroot/slime/slime.el	2008/08/09 19:57:00	1.979
+++ /project/slime/cvsroot/slime/slime.el	2008/08/09 19:57:06	1.980
@@ -5094,7 +5094,9 @@
   (mapcar (lambda (x) (cons x nil)) list))
 
 (defun slime-simple-completions (prefix)
-  (slime-eval `(swank:simple-completions ,prefix ',(slime-current-package))))
+  (let ((slime-current-thread t))
+    (slime-eval
+     `(swank:simple-completions ,prefix ',(slime-current-package)))))
 
 
 ;;;; Edit definition