[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

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

Modified Files:
	ChangeLog slime-fuzzy.el 
Log Message:
* contrib/slime-fuzzy.el (slime-fuzzy-choices-buffer): Make connection buffer-local, otherwise
`swank:fuzzy-completion-selected' will be sent to the default connection.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2010/02/18 18:46:07	1.346
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2010/02/19 10:38:07	1.347
@@ -1,3 +1,8 @@
+2010-02-19  Stas Boukarev  <stassats at gmail.com>
+
+	* slime-fuzzy.el (slime-fuzzy-choices-buffer): Make connection buffer-local, otherwise
+	`swank:fuzzy-completion-selected' will be sent to the default connection.
+
 2010-02-17  Helmut Eller  <heller at common-lisp.net>
 
 	Fix bugs when *inferior-buffers* doesn't exist.
--- /project/slime/cvsroot/slime/contrib/slime-fuzzy.el	2010/02/15 21:42:37	1.15
+++ /project/slime/cvsroot/slime/contrib/slime-fuzzy.el	2010/02/19 10:38:07	1.16
@@ -346,7 +346,8 @@
 `end'.  This saves the window configuration before popping the
 buffer so that it can possibly be restored when the user is
 done."
-  (let ((new-completion-buffer (not slime-fuzzy-target-buffer)))
+  (let ((new-completion-buffer (not slime-fuzzy-target-buffer))
+        (connection (slime-connection)))
     (when new-completion-buffer
       (setq slime-fuzzy-saved-window-configuration
             (current-window-configuration)))
@@ -359,6 +360,7 @@
     (setq slime-fuzzy-text slime-fuzzy-original-text)
     (slime-fuzzy-fill-completions-buffer completions interrupted-p)
     (pop-to-buffer (slime-get-fuzzy-buffer))
+    (setq slime-buffer-connection connection)
     (when new-completion-buffer
       ;; Hook to nullify window-config restoration if the user changes
       ;; the window configuration himself.