Relax a path normalization check

This commit is contained in:
John Wiegley 2015-03-15 21:23:40 -05:00
parent a203028871
commit 5c85433fac

View file

@ -228,10 +228,7 @@ the user specified.")
(let ((path (if (file-name-absolute-p arg)
arg
(expand-file-name arg user-emacs-directory))))
(if (file-directory-p path)
(list path)
(use-package-error
(concat label " wants a directory path, or list of paths")))))
(list path)))
((and (not recursed) (listp arg) (listp (cdr arg)))
(mapcar #'(lambda (x)
(car (use-package-normalize-paths label x t))) arg))