core: fix key bindings in visual state for evilified buffers
This commit is contained in:
parent
d97d2d410c
commit
3a829ce89e
|
@ -182,12 +182,13 @@ Each pair KEYn FUNCTIONn is defined in MAP after the evilification of it."
|
||||||
(defun spacemacs//evilify-wrapper (map map-symbol map-value event
|
(defun spacemacs//evilify-wrapper (map map-symbol map-value event
|
||||||
evil-value evil-event)
|
evil-value evil-event)
|
||||||
"Define a wrapper for the passed event."
|
"Define a wrapper for the passed event."
|
||||||
(eval `(defun ,(spacemacs//evilify-wrapper-name
|
(eval `(evil-define-command ,(spacemacs//evilify-wrapper-name
|
||||||
map-symbol map-value event evil-value evil-event) ()
|
map-symbol map-value event evil-value evil-event) ()
|
||||||
,(spacemacs//evilify-wrapper-documentation
|
,(spacemacs//evilify-wrapper-documentation
|
||||||
map-value event evil-value evil-event)
|
map-value event evil-value evil-event)
|
||||||
|
:keep-visual t
|
||||||
(interactive)
|
(interactive)
|
||||||
(if (eq 'evilified evil-state)
|
(if (memq evil-state '(evilified visual))
|
||||||
;; evilified state
|
;; evilified state
|
||||||
,(if evil-value
|
,(if evil-value
|
||||||
(spacemacs//evilify-call evil-value event)
|
(spacemacs//evilify-call evil-value event)
|
||||||
|
|
Loading…
Reference in a new issue