@map: fix no key-bindings after byte-compiling
This commit is contained in:
parent
c845a47ecf
commit
2d0b2d9a3f
1 changed files with 90 additions and 94 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue