[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/evil c236a617ce 2/3: Support { and } marks in evil-ex-gram
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/evil c236a617ce 2/3: Support { and } marks in evil-ex-grammar (#1558) |
Date: |
Mon, 3 Jan 2022 08:58:16 -0500 (EST) |
branch: elpa/evil
commit c236a617ce7188a1065b503dbf88056d74c806be
Author: Brian Leung <29217594+leungbk@users.noreply.github.com>
Commit: GitHub <noreply@github.com>
Support { and } marks in evil-ex-grammar (#1558)
---
evil-ex.el | 2 +-
evil-tests.el | 8 ++++++++
2 files changed, 9 insertions(+), 1 deletion(-)
diff --git a/evil-ex.el b/evil-ex.el
index 19875ac0e6..488fc2034e 100644
--- a/evil-ex.el
+++ b/evil-ex.el
@@ -117,7 +117,7 @@
("\\?" "\\(?:[\\].\\|[^?]\\)+" "\\?"
#'(evil-ex-re-bwd $2)))
(marker-name
- "[]\\[-a-zA-Z_<>']")
+ "[]\\[-a-zA-Z_<>'}{]")
(next
"\\\\/" #'(evil-ex-prev-search))
(prev
diff --git a/evil-tests.el b/evil-tests.el
index 53f57761f1..609f7dd85a 100644
--- a/evil-tests.el
+++ b/evil-tests.el
@@ -7261,6 +7261,14 @@ if no previous selection")
(evil-ex-line
(evil-ex-marker "]")
nil))))
+ (should (equal (evil-ex-parse "'{,'}" nil 'range)
+ '(evil-ex-range
+ (evil-ex-line
+ (evil-ex-marker "{")
+ nil)
+ (evil-ex-line
+ (evil-ex-marker "}")
+ nil))))
(should (equal (evil-ex-parse ",']" nil 'range)
'(evil-ex-range
(evil-ex-current-line)