[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

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

Modified Files:
	ChangeLog slime-fuzzy.el 
Log Message:
* slime.el (slime-profile-by-substring): new function for profiling
functions by matching a substring.

* swank.lisp (profile-by-substring): ditto.

* contrib/slime-fuzzy.el (slime-fuzzy-complete-symbol): change
`comint-completion-addsuffix' to not add space after completing
a filename.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2009/08/05 17:15:35	1.230
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2009/08/09 14:07:48	1.231
@@ -1,3 +1,9 @@
+2009-08-09  Stas Boukarev  <stassats at gmail.com>
+
+	* slime-fuzzy.el (slime-fuzzy-complete-symbol): change
+	`comint-completion-addsuffix' to not add space after completing
+	a filename.
+
 2009-08-05  Stas Boukarev  <stassats at gmail.com>
 
 	* swank-fancy-inspector.lisp (emacs-inspect): add buttons for removing
--- /project/slime/cvsroot/slime/contrib/slime-fuzzy.el	2009/07/22 11:25:28	1.11
+++ /project/slime/cvsroot/slime/contrib/slime-fuzzy.el	2009/08/09 14:07:48	1.12
@@ -258,10 +258,12 @@
   "Fuzzily completes the abbreviation at point into a symbol."
   (interactive)
   (when (save-excursion (re-search-backward "\"[^ \t\n]+\\=" nil t))
-    (return-from slime-fuzzy-complete-symbol 
-      (if slime-when-complete-filename-expand
-          (comint-replace-by-expanded-filename)
-        (comint-dynamic-complete-as-filename))))
+    (return-from slime-fuzzy-complete-symbol
+      ;; don't add space after completion
+      (let ((comint-completion-addsuffix '("/" . "")))
+        (if slime-when-complete-filename-expand
+            (comint-replace-by-expanded-filename)
+            (comint-dynamic-complete-as-filename)))))
   (let* ((end (move-marker (make-marker) (slime-symbol-end-pos)))
          (beg (move-marker (make-marker) (slime-symbol-start-pos)))
          (prefix (buffer-substring-no-properties beg end)))