awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases 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
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))))