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

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

View file

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