[nongnu] elpa/evil-escape e556c7a6b6 057/133: Fix line highlight flicker on escape

[ELPA Syncer]

branch: elpa/evil-escape
commit e556c7a6b65f6d171c055457b6d64be8da09be76
Author: Miles Steele <miles@milessteele.com>
Commit: syl20bnr <sylvain.benner@gmail.com>

    Fix line highlight flicker on escape
---
 evil-escape.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/evil-escape.el b/evil-escape.el
index ed8a56cab0..763e4969f7 100644
--- a/evil-escape.el
+++ b/evil-escape.el
@@ -412,9 +412,13 @@ DELETE-FUNC when calling CALLBACK. "
   (let* ((modified (buffer-modified-p))
          (fkey (elt keys 0))
          (fkeystr (char-to-string fkey))
-         (skey (elt keys 1)))
+         (skey (elt keys 1))
+         (hl-line-mode-before hl-line-mode))
     (if insert-func (funcall insert-func fkey))
+    ;; temporarily force line-mode locally to prevent flicker from read-event
+    (when (or global-hl-line-mode hl-line-mode) (hl-line-mode 1))
     (let* ((evt (read-event nil nil evil-escape-delay)))
+      (unless hl-line-mode-before (hl-line-mode -1))
       (cond
        ((null evt)
         (unless insert-func