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

private/default: fix wrong-type-argument error while byte-compiling

Browse source
This commit is contained in:
Henrik Lissner 2017-12-23 16:16:12 -05:00
parent f9e5ef2b51
commit c417d732c8
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
modules/private/default/autoload/default.el
View file

@ -9,15 +9,15 @@
(error "Couldn't find filename in current buffer"))) (error "Couldn't find filename in current buffer")))
;;;###autoload ;;;###autoload
(defmacro +default--def-browse-in! (name dir &optional prefix) (defmacro +default--def-browse-in! (name dir)
(let ((prefix (cdr (doom-module-from-path load-file-name)))) (let ((prefix (cdr (doom-module-from-path (or load-file-name byte-compile-current-file)))))
`(defun ,(intern (format "%s/browse-%s" (or prefix '+default) name)) () `(defun ,(intern (format "%s/browse-%s" prefix name)) ()
(interactive) (interactive)
(doom-project-browse ,dir)))) (doom-project-browse ,dir))))
;;;###autoload ;;;###autoload
(defmacro +default--def-find-in! (name dir) (defmacro +default--def-find-in! (name dir)
(let ((prefix (cdr (doom-module-from-path load-file-name)))) (let ((prefix (cdr (doom-module-from-path (or load-file-name byte-compile-current-file)))))
`(defun ,(intern (format "+%s/find-in-%s" prefix name)) () `(defun ,(intern (format "+%s/find-in-%s" prefix name)) ()
(interactive) (interactive)
(doom-project-find-file ,dir)))) (doom-project-find-file ,dir))))