From 27c9dce3cf49bb3714820d4485bdade8c70434e0 Mon Sep 17 00:00:00 2001
From: Tom Dalziel <tom_dl@hotmail.com>
Date: Sat, 13 Apr 2024 23:29:25 +0200
Subject: [PATCH] Add keyboard escape quit to commands which exit visual state

Fixes #1886
---
 evil-states.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/evil-states.el b/evil-states.el
index c15b963d..402ea85e 100644
--- a/evil-states.el
+++ b/evil-states.el
@@ -345,7 +345,7 @@ otherwise exit Visual state."
   (when (evil-visual-state-p)
     (setq command (or command this-command))
     (if (or quit-flag
-            (eq command #'keyboard-quit)
+            (memq command '(keyboard-quit keyboard-escape-quit))
             ;; Is `mark-active' nil for an unexpanded region?
             deactivate-mark
             (and (not evil-visual-region-expanded)