branch: elpa/isl
commit eb4422a39559f0d5fdba6e29cd4eef4258fa3915
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Add comments
---
isearch-light.el | 9 ++++++---
1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/isearch-light.el b/isearch-light.el
index 52cd0418e25..afbe01f49f4 100644
--- a/isearch-light.el
+++ b/isearch-light.el
@@ -241,9 +241,12 @@ the initial position i.e. the position before launching
isl."
(cl-assert (require 'helm-occur nil t))
(let ((input isl-pattern)
(bufs (list isl-current-buffer)))
- (run-at-time 0.1 nil (lambda ()
- (let ((helm-occur-always-search-in-current t))
- (helm-multi-occur-1 bufs input))))
+ (run-at-time 0.1 nil
+ (lambda ()
+ ;; Use `helm-occur-always-search-in-current' as a
+ ;; flag for `helm-occur--select-closest-candidate'.
+ (let ((helm-occur-always-search-in-current t))
+ (helm-multi-occur-1 bufs input))))
(abort-recursive-edit)))
(defun isl-iter-circular (seq)
