[nongnu] elpa/anzu a52dca6f92 010/288: Support migemo(#2)

[ELPA Syncer]

branch: elpa/anzu
commit a52dca6f924c141fe0f7150bd83afe3dae30b3c8
Author: Syohei YOSHIDA <syohex@gmail.com>
Commit: Syohei YOSHIDA <syohex@gmail.com>

    Support migemo(#2)
---
 README.md |  5 +++++
 anzu.el   | 12 ++++++++++--
 2 files changed, 15 insertions(+), 2 deletions(-)

diff --git a/README.md b/README.md
index 9edde55fd1..dda869b350 100644
--- a/README.md
+++ b/README.md
@@ -45,6 +45,11 @@ you propertize string by yourself.
 (setq anzu-mode-line-update-function 'my/update-func)
 ```
 
+#### `anzu-use-migemo`(Default is `nil`)
+
+Set non-nil` if you use [migemo](https://github.com/emacs-jp/migemo).
+
+
 ## Sample Configuration
 
 ```lisp
diff --git a/anzu.el b/anzu.el
index 73f44dfa81..54f691eb80 100644
--- a/anzu.el
+++ b/anzu.el
@@ -35,6 +35,11 @@
   :type 'string
   :group 'anzu)
 
+(defcustom anzu-use-migemo nil
+  "Flag of using migemo"
+  :type 'boolean
+  :group 'anzu)
+
 (defcustom anzu-mode-line-update-function nil
   "Function which return mode-line string"
   :type 'function
@@ -54,8 +59,11 @@
   (save-excursion
     (goto-char (point-min))
     (let ((positions '())
-          (count 0))
-      (while (re-search-forward str nil t)
+          (count 0)
+          (search-func (if (and anzu-use-migemo migemo-isearch-enable-p)
+                           'migemo-forward
+                         're-search-forward)))
+      (while (funcall search-func str nil t)
         (push (cons (match-beginning 0) (match-end 0)) positions)
         (incf count))
       (let ((result (cons count (reverse positions))))