Various tweaks & clean up

This commit is contained in:
Henrik Lissner 2017-05-01 14:52:29 -04:00
parent 312371fc26
commit d651311d1d
5 changed files with 9 additions and 7 deletions

View file

@ -299,9 +299,9 @@ throw an error if the file doesn't exist."
((stringp path) path)
((listp path) (eval path))))
(and load-file-name (file-name-directory load-file-name))
(and buffer-file-name (file-name-directory buffer-file-name))
(and (bound-and-true-p byte-compile-current-file)
(file-name-directory byte-compile-current-file)))))
(file-name-directory byte-compile-current-file))
(and buffer-file-name (file-name-directory buffer-file-name)))))
(unless path
(error "Could not find %s" filesym))
(let ((file (expand-file-name (concat (symbol-name filesym) ".el") path)))