@map: fix no key-bindings after byte-compiling

This commit is contained in:
Henrik Lissner 2017-02-13 04:44:54 -05:00
parent c845a47ecf
commit 2d0b2d9a3f

View file

@ -193,7 +193,6 @@ Example
(:when IS-MAC
:n \"M-s\" 'some-fn
:i \"M-o\" (lambda (interactive) (message \"Hi\"))))"
(unless noninteractive
(let ((keymaps (if (boundp 'keymaps) keymaps))
(prefix (if (boundp 'prefix) prefix))
(state-map '(("n" . normal)
@ -214,14 +213,11 @@ Example
;; it's a flag
((keywordp key)
(when (memq key '(:leader :localleader))
(if (not (featurep '+evil))
(setq rest nil
key :ignore)
(cond ((eq key :leader)
(push '+evil-leader rest))
((eq key :localleader)
(push '+evil-localleader rest)))
(setq key :prefix)))
(setq key :prefix))
(pcase key
(:ignore)
(:prefix
@ -289,7 +285,7 @@ Example
local nil)))
(t (user-error "Invalid key %s" key))))
`(progn ,@(reverse forms)))))
`(progn ,@(reverse forms))))
(provide 'core-lib)
;;; core-lib.el ends here