[nongnu] elpa/evil 840084f1ce: Fix evil-select-paren #1673 for regexp special chars (#1696)

[ELPA Syncer]

branch: elpa/evil
commit 840084f1ce208388b0e36b560763420cc16886dd
Author: marcolgl <marco-9-6-96@hotmail.it>
Commit: GitHub <noreply@github.com>

    Fix evil-select-paren #1673 for regexp special chars (#1696)
---
 evil-common.el |  2 +-
 evil-tests.el  | 14 ++++++++++----
 2 files changed, 11 insertions(+), 5 deletions(-)

diff --git a/evil-common.el b/evil-common.el
index cb5e23a292..d6617836ea 100644
--- a/evil-common.el
+++ b/evil-common.el
@@ -3456,7 +3456,7 @@ is ignored."
      (save-match-data
        (goto-char (or (if (and count (> 0 count)) end beg)
                       (point)))
-       (let ((re (if (characterp open) (string open) open)))
+       (let ((re (if (characterp open) (regexp-quote (string open)) open)))
          (if (and (not (looking-at-p re))
                   (re-search-forward re nil t count))
              (progn
diff --git a/evil-tests.el b/evil-tests.el
index 108142f7f5..88667d3983 100644
--- a/evil-tests.el
+++ b/evil-tests.el
@@ -9540,10 +9540,16 @@ when an error stops the execution of the macro"
       "alpha ([b]ravo) charlie "
       ("$p")
       "alpha (bravo) charlie brav[o]")
-      (evil-test-buffer
-        "[a]lpha (bravo (charlie))"
-        ("2di(")
-        "alpha (bravo ([)]")
+    (evil-test-buffer
+     "[a]lpha (bravo (charlie))"
+     ("2di(")
+     "alpha (bravo ([)]")
+    (evil-test-buffer
+      :point-start "("
+      :point-end ")"
+     "(a)lpha [bravo [charlie]] [bravo]"
+     ("3di[")
+     "alpha [bravo [charlie]] [(])")
     (evil-test-buffer
 "[#]include \"stdlib.h\"
 main(argc, argv) char **argv; {