[nongnu] elpa/evil-escape 7067e1b84d 034/133: Fix escape sequence for evil-lisp-state

[ELPA Syncer]

branch: elpa/evil-escape
commit 7067e1b84d3a40478ba5e666a0ed69b99a01fdb5
Author: Renaud Casenave-Péré <renaud@casenave-pere.fr>
Commit: syl20bnr <sylvain.benner@gmail.com>

    Fix escape sequence for evil-lisp-state
    
    The command originally bound to the first key of the
    evil-escape-sequence needs to be set as the shadowed function.
    This was not the case for evil-lisp-state.
---
 evil-escape.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/evil-escape.el b/evil-escape.el
index 404a23825b..1d313efa59 100644
--- a/evil-escape.el
+++ b/evil-escape.el
@@ -203,7 +203,12 @@ with a key sequence."
                                     :delete-func isearch-delete-char))
   ;; lisp state if installed
   (eval-after-load 'evil-lisp-state
-    '(eval '(evil-escape-define-escape "lisp-state" evil-lisp-state-map 
evil-normal-state)))
+    '(progn
+       (setq evil-escape-lisp-state-shadowed-func
+             (lookup-key evil-lisp-state-map (evil-escape--first-key)))
+       (eval `(evil-escape-define-escape "lisp-state" evil-lisp-state-map
+                                         evil-normal-state
+                                         :shadowed-func 
,evil-escape-lisp-state-shadowed-func))))
   ;; iedit state if installed
   (eval-after-load 'evil-iedit-state
     '(progn