[nongnu] elpa/anzu 2b88e1fcbc 021/288: Improve for not regexp search commands

[ELPA Syncer]

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

    Improve for not regexp search commands
    
    anzu.el use regexp search for counting match until now.
    From now anzu.el treat its input as not regular expression.
    If user use non regexp search such as isearch-forward,
---
 anzu.el | 18 +++++++++++++++---
 1 file changed, 15 insertions(+), 3 deletions(-)

diff --git a/anzu.el b/anzu.el
index 6232b8acb4..069b3dc48d 100644
--- a/anzu.el
+++ b/anzu.el
@@ -61,6 +61,12 @@
   :type 'function
   :group 'anzu)
 
+(defcustom anzu-regexp-search-commands '(isearch-forward-regexp
+                                         isearch-backward-regexp)
+  "Search function which use regexp."
+  :type '(repeat function)
+  :group 'anzu)
+
 (defface anzu-mode-line
   '((t (:foreground "magenta" :weight bold)))
   "face of anzu modeline"
@@ -70,6 +76,7 @@
 (defvar anzu--current-posion 0)
 (defvar anzu--last-isearch-string nil)
 (defvar anzu--cached-positions nil)
+(defvar anzu--last-command nil)
 
 (defun anzu--validate-regexp (regexp)
   (condition-case err
@@ -79,6 +86,10 @@
     (invalid-regexp nil)))
 
 (defun anzu--search-all-position (str)
+  (unless anzu--last-command
+    (setq anzu--last-command last-command))
+  (unless (memq anzu--last-command anzu-regexp-search-commands)
+    (setq str (regexp-quote str)))
   (when (anzu--validate-regexp str)
     (save-excursion
       (goto-char (point-min))
@@ -127,12 +138,13 @@
     (setq mode-line-format (cons '(:eval (anzu--update-mode-line))
                                  mode-line-format))))
 
-(defsubst anzu--reset-count ()
+(defsubst anzu--reset-status ()
   (setq anzu--total-matched 0
-        anzu--current-posion 0))
+        anzu--current-posion 0
+        anzu--last-command nil))
 
 (defun anzu--reset-mode-line ()
-  (anzu--reset-count)
+  (anzu--reset-status)
   (when (and anzu-cons-mode-line-p (anzu--mode-line-not-set-p))
     (setq mode-line-format (cdr mode-line-format))))