branch: elpa/isl
commit 1d4c37051c5f5f373a316a4f30306550030a5754
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Quote spaces when yanking at point
---
isearch-light.el | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/isearch-light.el b/isearch-light.el
index 69eb71925bb..ebd1f029055 100644
--- a/isearch-light.el
+++ b/isearch-light.el
@@ -254,10 +254,11 @@ the initial position i.e. the position before launching
isl."
(setq str (buffer-substring-no-properties (or isl--yank-point (point))
(save-excursion
(forward-word)
- (point))))))
- (when str
- (with-selected-window (minibuffer-window)
- (insert str)))))
+ (point))))
+ (when (string-match "\\` " str)
+ (setq str (replace-match "\\\\ " nil nil str)))
+ (with-selected-window (minibuffer-window)
+ (insert str))))))
(defun isl-matching-style ()
"Return current matching style as a string."
