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

General docstring+idempotency refactor

Browse source
This commit is contained in:
Henrik Lissner 2017-06-11 00:59:02 +02:00
parent 7c20a43be6
commit 2097498f3e
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
7 changed files with 35 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

9
core/core-packages.el
View file

@ -334,11 +334,10 @@ ignore any `def-package!' blocks for PACKAGE."
"Loads a file relative to the current module (or PATH). FILESYM is a file path
as a symbol. PATH is a directory to prefix it with. If NOERROR is non-nil, don't
throw an error if the file doesn't exist."
(let ((path (or (and path
(cond ((symbolp path) (symbol-value path))
((stringp path) path)
((listp path) (eval path))))
(and load-file-name (file-name-directory load-file-name))
(let ((path (or (and path (or (and (symbolp path) (symbol-value path))
(and (stringp path) path)
(and (listp path) (eval path))))
(and load-file-name (file-name-directory load-file-name))
(and (bound-and-true-p byte-compile-current-file)
(file-name-directory byte-compile-current-file))
(and buffer-file-name (file-name-directory buffer-file-name)))))