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.
This commit is contained in:
Renaud Casenave-Péré 2015-02-11 08:57:50 +01:00 committed by syl20bnr
parent 6c1bc8dca6
commit ae162c9e04

View file

@ -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