emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/evil 6e22e2b7f3: Fix searching for literal < and > with ve


From: ELPA Syncer
Subject: [nongnu] elpa/evil 6e22e2b7f3: Fix searching for literal < and > with very-magic
Date: Wed, 17 May 2023 08:00:58 -0400 (EDT)

branch: elpa/evil
commit 6e22e2b7f353f16df5e117ab220d89c0450b44b9
Author: Tom Dalziel <tom_dl@hotmail.com>
Commit: Tom Dalziel <33435574+tomdl89@users.noreply.github.com>

    Fix searching for literal < and > with very-magic
---
 evil-search.el |  4 ++--
 evil-tests.el  | 14 ++++++++++++++
 2 files changed, 16 insertions(+), 2 deletions(-)

diff --git a/evil-search.el b/evil-search.el
index b42d924eef..e26325c666 100644
--- a/evil-search.el
+++ b/evil-search.el
@@ -435,8 +435,8 @@ expression and is not transformed."
     ;; possibly transform regular expression from vim-style to
     ;; Emacs-style.
     (if (and evil-ex-search-vim-style-regexp
-             (not (or (string-match-p "\\`\\\\_?<" regexp)
-                      (string-match-p "\\\\_?>\\'" regexp))))
+             (not (or (string-match-p "\\`\\\\_<" regexp)
+                      (string-match-p "\\\\_>\\'" regexp))))
         (setq re (evil-transform-vim-style-regexp re))
       ;; Even for Emacs regular expressions we translate certain
       ;; whitespace sequences
diff --git a/evil-tests.el b/evil-tests.el
index fbf1cd4a6d..e9ca224dc5 100644
--- a/evil-tests.el
+++ b/evil-tests.el
@@ -8056,6 +8056,20 @@ golf h[o]>tel")))
         "start\nline 2\nline [3]\n\n"
         ("n")
         "start\nline 2\nline 3\n[]\n"))
+    (ert-info ("Can search for start/end of symbol")
+      (let ((evil-magic 'very-magic))
+        (evil-test-buffer
+          "[a]lpha bravo bra charlie"
+          ("/bra\\_>" [return])
+          "alpha bravo [b]ra charlie")))
+    (ert-info ("Can search for literal < and >")
+      (let ((evil-magic 'very-magic))
+        (evil-test-buffer
+          :visual-start "«"
+          :visual-end "»"
+          "[a]lpha bravo <bravo> charlie"
+          ("/<bravo>" [return])
+          "alpha bravo [<]bravo> charlie")))
     (ert-info ("Can paste from register in ex-search")
       (evil-test-buffer
        "Alpha [b]ravo charlie alpha bravo delta bravo delta"



reply via email to

[Prev in Thread] Current Thread [Next in Thread]