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

[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."



reply via email to

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