TakeV/spacemacs
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Fix evil-map

Browse source
This commit is contained in:
syl20bnr 2015-04-23 01:14:09 -04:00
parent 5decda16b2
commit c036dfc843
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
spacemacs/packages.el
View file

@ -669,14 +669,14 @@
"Map for a given STATE a KEY to a sequence SEQ of keys. "Map for a given STATE a KEY to a sequence SEQ of keys.
Can handle recursive definition only if KEY is the first key of SEQ. Can handle recursive definition only if KEY is the first key of SEQ.
Example: (evil-map normal \"<\" \"<gv\")" Example: (evil-map visual \"<\" \"<gv\")"
(let ((map (intern (format "evil-%S-state-map" state)))) (let ((map (intern (format "evil-%S-state-map" state))))
`(define-key ,map ,key `(define-key ,map ,key
(lambda () (lambda ()
(interactive) (interactive)
,(if (string-equal key (substring seq 0 1)) ,(if (string-equal key (substring seq 0 1))
`(progn `(progn
(call-interactively ',(lookup-key (eval map) key)) (call-interactively ',(lookup-key evil-normal-state-map key))
(execute-kbd-macro ,(substring seq 1))) (execute-kbd-macro ,(substring seq 1)))
(execute-kbd-macro ,seq)))))) (execute-kbd-macro ,seq))))))