branch: elpa/isl
commit 407edf02f03fca54ffabdc2ab304bda675134e5d
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Bind helm-occur-always-search-in-current
---
isearch-light.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/isearch-light.el b/isearch-light.el
index a33cdc757ed..52cd0418e25 100644
--- a/isearch-light.el
+++ b/isearch-light.el
@@ -32,6 +32,7 @@
(require 'cl-lib)
(declare-function helm-multi-occur-1 "ext:helm-occur.el")
+(defvar helm-occur-always-search-in-current)
;; Internals
(defvar isl-pattern "")
@@ -240,7 +241,9 @@ 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 #'helm-multi-occur-1 bufs input)
+ (run-at-time 0.1 nil (lambda ()
+ (let ((helm-occur-always-search-in-current t))
+ (helm-multi-occur-1 bufs input))))
(abort-recursive-edit)))
(defun isl-iter-circular (seq)
