[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

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

Modified Files:
	ChangeLog slime-fuzzy.el swank-fuzzy.lisp 
Log Message:
* swank-fuzzy.lisp (fuzzy-convert-matching-for-emacs): format
floats on the lisp side, because Emacs doesn't accept d0 or s0,
which could get there as a result of *read-default-float-format*
modification.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2009/07/21 11:02:42	1.228
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2009/07/22 11:25:28	1.229
@@ -1,3 +1,12 @@
+2009-07-22  Stas Boukarev  <stassats at gmail.com>
+
+	* swank-fuzzy.lisp (fuzzy-convert-matching-for-emacs): format
+	floats on the lisp side, because Emacs doesn't accept d0 or s0,
+	which could get there as a result of *read-default-float-format*
+	modification.
+
+	* slime-fuzzy.el (slime-fuzzy-insert-completion-choice): ditto.
+
 2009-07-15  Tobias C. Rittweiler  <tcr at freebits.de>
 
 	* swank-sbcl-exts.lisp (compute-enriched-decoded-arglist): Filter
--- /project/slime/cvsroot/slime/contrib/slime-fuzzy.el	2009/06/28 08:51:18	1.10
+++ /project/slime/cvsroot/slime/contrib/slime-fuzzy.el	2009/07/22 11:25:28	1.11
@@ -313,10 +313,9 @@
       (put-text-property start (point) 'mouse-face 'highlight)
       (dotimes (i (- max-length (- end start)))
 	(insert " "))
-      (insert (format " %s %-8.2f"
+      (insert (format " %s %s\n"
 		      classification-string
-		      score))
-      (insert "\n")
+                      score))
       (put-text-property start (point) 'completion completion))))
 
 (defun slime-fuzzy-insert (text)
--- /project/slime/cvsroot/slime/contrib/swank-fuzzy.lisp	2008/03/14 14:31:52	1.8
+++ /project/slime/cvsroot/slime/contrib/swank-fuzzy.lisp	2009/07/22 11:25:28	1.9
@@ -140,7 +140,7 @@
     (multiple-value-bind (name added-length)
 	(fuzzy-format-matching fuzzy-matching user-input-string)
       (list name
-	    score
+            (format nil "~,2f" score)
 	    (append package-chunks
 		    (mapcar #'(lambda (chunk)
 				;; Fix up chunk positions to account for possible