[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/evil f631618994 3/3: Add tests for c-w yanking word in evi
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/evil f631618994 3/3: Add tests for c-w yanking word in evil search |
Date: |
Wed, 5 Oct 2022 12:58:34 -0400 (EDT) |
branch: elpa/evil
commit f631618994476a5fc7e1b0da675f54cce922e175
Author: Tom Dalziel <tom_dl@hotmail.com>
Commit: Tom Dalziel <33435574+tomdl89@users.noreply.github.com>
Add tests for c-w yanking word in evil search
Additional to #1127
---
evil-search.el | 2 +-
evil-tests.el | 10 +++++++++-
2 files changed, 10 insertions(+), 2 deletions(-)
diff --git a/evil-search.el b/evil-search.el
index ae63aeb7ba..7cd61e01b6 100644
--- a/evil-search.el
+++ b/evil-search.el
@@ -1345,7 +1345,7 @@ a :substitute command with arguments."
(with-current-buffer evil-ex-current-buffer
;; Start to initial point if C-w have never been hit.
(unless evil-ex-search-yank-point
- (if (string-empty-p minibuf-content)
+ (if (string= "" minibuf-content)
(setq evil-ex-search-yank-point evil-ex-search-start-point)
(setq evil-ex-search-yank-point (point))))
(save-excursion
diff --git a/evil-tests.el b/evil-tests.el
index a9b3a7963a..108142f7f5 100644
--- a/evil-tests.el
+++ b/evil-tests.el
@@ -7986,7 +7986,15 @@ golf h[o]>tel")))
("/\C-rb" [return])
"Alpha bravo charlie alpha [b]ravo delta bravo delta"
("w/\C-r\C-o" [return])
- "Alpha bravo charlie alpha bravo delta bravo [d]elta"))))
+ "Alpha bravo charlie alpha bravo delta bravo [d]elta"))
+ (ert-info ("Can use C-w yank-word functionality")
+ (let ((old-val evil-want-C-w-delete))
+ (custom-set-variables '(evil-want-C-w-delete nil))
+ (evil-test-buffer
+ "alpha [b]ravo charlie delta bravo echo"
+ ("/\C-w" [return])
+ "alpha bravo charlie delta [b]ravo echo")
+ (custom-set-variables `(evil-want-C-w-delete ,old-val))))))
(ert-deftest evil-test-ex-search-offset ()
"Test search offsets."