emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

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

Browse source
This commit is contained in:
Henrik Lissner 2017-02-13 04:44:54 -05:00
parent c845a47ecf
commit 2d0b2d9a3f
1 changed files with 90 additions and 94 deletions
Download patch file Download diff file Expand all files Collapse all files

8
core/core-lib.el
View file

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