Use evil-delay when translating minor mode keys
This commit is contained in:
parent
646fbe11c8
commit
ff9ae709ca
|
@ -611,9 +611,18 @@ invocation."
|
||||||
(not (null states)))
|
(not (null states)))
|
||||||
(setq states (list states)))
|
(setq states (list states)))
|
||||||
(dolist (mode-symbol modes)
|
(dolist (mode-symbol modes)
|
||||||
(dolist (state states)
|
(let ((keymap-symbol (intern (format "%S-map" mode-symbol))))
|
||||||
(evil-collection--translate-minor-mode-key
|
(dolist (state states)
|
||||||
state mode-symbol translations destructive))))
|
(evil-delay `(and (boundp ',keymap-symbol)
|
||||||
|
(keymapp ,keymap-symbol))
|
||||||
|
`(evil-collection--translate-minor-mode-key
|
||||||
|
',state
|
||||||
|
',mode-symbol
|
||||||
|
',translations
|
||||||
|
,destructive)
|
||||||
|
'after-load-functions t nil
|
||||||
|
(symbol-name (cl-gensym (format "evil-collection-translate-key-in-%s"
|
||||||
|
keymap-symbol))))))))
|
||||||
|
|
||||||
(defun evil-collection--translate-minor-mode-key (state
|
(defun evil-collection--translate-minor-mode-key (state
|
||||||
mode-symbol
|
mode-symbol
|
||||||
|
|
Loading…
Reference in New Issue