branch: elpa/slime
commit 5e234b45c6fcc3fc99ff75a62f489163e59f42bc
Author: Stas Boukarev <stass...@gmail.com>
Commit: Stas Boukarev <stass...@gmail.com>
slime-fuzzy-complete-symbol: don't search beyond slime-repl-input-start-mark
---
contrib/slime-fuzzy.el | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/contrib/slime-fuzzy.el b/contrib/slime-fuzzy.el
index 7207adf7a6..2ce38ec9b1 100644
--- a/contrib/slime-fuzzy.el
+++ b/contrib/slime-fuzzy.el
@@ -251,7 +251,13 @@ most recently enclosed macro or function."
(defun slime-fuzzy-complete-symbol ()
"Fuzzily completes the abbreviation at point into a symbol."
(interactive)
- (if (save-excursion (re-search-backward "\"[^ \t\n]+\\=" nil t))
+ (if (save-excursion (re-search-backward "\"[^ \t\n]+\\="
+ (when slime-repl-input-start-mark
+ (let ((start
+ (marker-position
slime-repl-input-start-mark)))
+ (when (> (point) start)
+ start)))
+ t))
;; don't add space after completion
(let ((comint-completion-addsuffix '("/" . "")))
(if slime-when-complete-filename-expand
