core: fix key bindings in visual state for evilified buffers

This commit is contained in:
syl20bnr 2015-09-25 00:26:37 -04:00
parent d97d2d410c
commit 3a829ce89e

View file

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