[slime-devel] [PATCH] fix off-by-one error in highlighting current fuzzy completion

[Tobias C. Rittweiler]

The currently selected completion in the *Fuzzy Completions* buffer is
highlighted with its surrounding whitespace. The following patch fixes
that.

(The patch was made against my local copy where the changes of my latest
patch (wrt Fuzzy Cleanup) is included---this should not make a
difference, though, as the attached patch touches a completely different
code segment. Appliable via patch -p0)

  -T.

-------------- next part --------------
--- ../slime-hacked/ChangeLog	2007-03-03 14:47:58.000000000 +0100
+++ ChangeLog	2007-03-03 14:54:20.000000000 +0100
@@ -1,3 +1,10 @@
+2007-03-01  Tobias C. Rittweiler <tcr at freebits.de>
+
+	* slime.el (slime-fuzzy-highlight-current-completion): Fix
+	off-by-one error that causes the currently selected 
+	completion in the *Fuzzy Completion* buffer be highlighted
+	one char too far.
+
 2007-02-26  Tobias C. Rittweiler <tcr at freebits.de>
 
 	* swank.lisp: Cleanup of parts of the fuzzy completion code.
--- ../slime-hacked/slime.el	2007-03-03 14:47:58.000000000 +0100
+++ slime.el	2007-03-03 13:56:19.000000000 +0100
@@ -6608,7 +6608,9 @@
 (defun slime-fuzzy-highlight-current-completion ()
   "Highlights the current completion, so that the user can see it on the screen."
   (let ((pos (point)))
-    (setq slime-fuzzy-current-completion-overlay (make-overlay (point) (search-forward " ") (current-buffer) t nil))
+    (setq slime-fuzzy-current-completion-overlay 
+          (make-overlay (point) (1- (search-forward " "))
+                        (current-buffer) t nil))
     (overlay-put slime-fuzzy-current-completion-overlay 'face 'secondary-selection)
     (goto-char pos)))