branch: elpa/isl
commit a954b731a9bf362e06266ec08d2f58ea62b343b8
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Reorder no code change
---
isearch-light.el | 17 ++++++++---------
1 file changed, 8 insertions(+), 9 deletions(-)
diff --git a/isearch-light.el b/isearch-light.el
index 4ecd2c292ed..4f7b248507f 100644
--- a/isearch-light.el
+++ b/isearch-light.el
@@ -233,6 +233,14 @@ the initial position i.e. the position before launching
isl."
(sit-for 1)))
(isl-setup-mode-line)))
+(defun isl-jump-to-helm-occur ()
+ "Invoke `helm-occur' from isl."
+ (interactive)
+ (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)
+ (abort-recursive-edit)))
(defun isl-iter-circular (seq)
"Infinite iteration on SEQ."
@@ -402,15 +410,6 @@ appended at end."
(isl-cleanup))
(quit (goto-char isl-initial-pos))))
-(defun isl-jump-to-helm-occur ()
- "Invoke `helm-occur' from isl."
- (interactive)
- (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)
- (abort-recursive-edit)))
-
;;;###autoload
(defun isl-narrow-to-defun ()
"Start incremental searching in current defun."
