Fix void macro errors after byte-compiling

This commit is contained in:
Henrik Lissner 2018-05-15 03:24:30 +02:00
parent 1320d83834
commit 9a2c4f297c
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 14 additions and 12 deletions

View file

@ -76,10 +76,11 @@
(defvar +default-repeat-forward-key ";") (defvar +default-repeat-forward-key ";")
(defvar +default-repeat-backward-key ",") (defvar +default-repeat-backward-key ",")
(eval-and-compile (eval-when-compile
;; Makes ; and , the universal repeat-keys in evil-mode
(defmacro do-repeat! (command next-func prev-func) (defmacro do-repeat! (command next-func prev-func)
"Repeat motions with ;/," "Makes ; and , the universal repeat-keys in evil-mode. These keys can be
customized by changing `+default-repeat-forward-key' and
`+default-repeat-backward-key'."
(let ((fn-sym (intern (format "+evil*repeat-%s" (doom-unquote command))))) (let ((fn-sym (intern (format "+evil*repeat-%s" (doom-unquote command)))))
`(progn `(progn
(defun ,fn-sym (&rest _) (defun ,fn-sym (&rest _)

View file

@ -206,6 +206,7 @@ unfold to point on startup."
(unless (file-remote-p path) (unless (file-remote-p path)
(if (file-exists-p path) 'org-link 'error)))) (if (file-exists-p path) 'org-link 'error))))
(eval-when-compile
(defmacro def-org-file-link! (key dir) (defmacro def-org-file-link! (key dir)
`(org-link-set-parameters `(org-link-set-parameters
,key ,key
@ -214,7 +215,7 @@ unfold to point on startup."
:face (lambda (link) :face (lambda (link)
(if (file-exists-p (expand-file-name link ,dir)) (if (file-exists-p (expand-file-name link ,dir))
'org-link 'org-link
'error)))) 'error)))))
(def-org-file-link! "org" +org-dir) (def-org-file-link! "org" +org-dir)
(def-org-file-link! "doom" doom-emacs-dir) (def-org-file-link! "doom" doom-emacs-dir)