[nongnu] elpa/evil 3045e425e9: Clear `evil-this-register` when leaving visual state

[ELPA Syncer]

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

    Clear `evil-this-register` when leaving visual state
    
    Fixes #1645
---
 evil-states.el | 1 +
 evil-tests.el  | 7 ++++++-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/evil-states.el b/evil-states.el
index 9615bf2cce..8e3f9c328b 100644
--- a/evil-states.el
+++ b/evil-states.el
@@ -420,6 +420,7 @@ If LATER is non-nil, exit after the current command."
           (setq deactivate-mark t)
         (when evil-visual-region-expanded
           (evil-visual-contract-region))
+        (setq evil-this-register nil)
         (evil-change-to-previous-state)))))
 
 (defun evil-visual-tag (&optional selection)
diff --git a/evil-tests.el b/evil-tests.el
index fd73abad7e..2136a5a64e 100644
--- a/evil-tests.el
+++ b/evil-tests.el
@@ -3058,7 +3058,12 @@ word3[]"))
       ("yiw" "w" "R" "\C-r0")
       "alpha alpha[ ]charlie"
       ([backspace] [backspace] [backspace])
-      "alpha al[a]vo charlie")))
+      "alpha al[a]vo charlie"))
+  (ert-info ("Normal delete after visual delete doesn't clobber register")
+    (evil-test-buffer
+      "[a]lpha bravo charlie delta"
+      ("vf \"xd" "dw" ";\"xp")
+      "charlie alpha delta")))
 
 (ert-deftest evil-test-last-insert-register ()
   "Test last insertion register."