branch: elpa/isl
commit 8e1f3bcd4afaba8846bf33c9021dc230a5e78288
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Fix yanking from point
---
isearch-light.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/isearch-light.el b/isearch-light.el
index b418cd63eb0..2399fb9dce9 100644
--- a/isearch-light.el
+++ b/isearch-light.el
@@ -173,9 +173,9 @@ the initial position i.e. the position before launching
isl."
(interactive)
(let (str)
(with-current-buffer isl-current-buffer
- (when (or (memq (char-syntax (or (char-after) 0)) '(?w))
+ (when (or (memq (char-syntax (or (char-after) 0)) '(?w ?_))
(memq (char-syntax (or (char-after (1+ (point))) 0))
- '(?w)))
+ '(?w ?_)))
(setq str (buffer-substring-no-properties (or isl--yank-point (point))
(save-excursion
(forward-word)
