[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

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

Modified Files:
	ChangeLog slime-fuzzy.el 
Log Message:
* slime-fuzzy.el (slime-fuzzy-choices-buffer): XEmacs compatibility.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2010/08/21 06:40:08	1.408
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2010/08/21 21:34:12	1.409
@@ -1,3 +1,7 @@
+2010-08-21  Stas Boukarev  <stassats at gmail.com>
+
+	* slime-fuzzy.el (slime-fuzzy-choices-buffer): XEmacs compatibility.
+
 2010-08-21  Helmut Eller  <heller at common-lisp.net>
 
 	* slime-repl.el: Specify :on-unload action.
--- /project/slime/cvsroot/slime/contrib/slime-fuzzy.el	2010/05/28 14:15:30	1.20
+++ /project/slime/cvsroot/slime/contrib/slime-fuzzy.el	2010/08/21 21:34:12	1.21
@@ -367,7 +367,10 @@
       (setq buffer-quit-function 'slime-fuzzy-abort)) ; M-Esc Esc
     (when slime-fuzzy-completion-in-place
       ;; switch back to the original buffer
-      (if (minibufferp slime-fuzzy-target-buffer)
+      (if (if (featurep 'xemacs)
+              (eq (window-buffer (minibuffer-window))
+                  slime-fuzzy-target-buffer)
+              (minibufferp slime-fuzzy-target-buffer))
           (select-window (minibuffer-window))
           (switch-to-buffer-other-window slime-fuzzy-target-buffer)))))
 
@@ -581,4 +584,4 @@
 configuration was changed, we nullify our saved configuration."
   (setq slime-fuzzy-saved-window-configuration nil))
 
-(provide 'slime-fuzzy)
\ No newline at end of file
+(provide 'slime-fuzzy)