branch: externals/setup
commit 646ed6f60cfd723ae78186e8cf36afbca779ff09
Author: Philip K <phil...@posteo.net>
Commit: Philip K <phil...@posteo.net>
Check if PATH exists for :load-from
---
setup.el | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/setup.el b/setup.el
index a92b691..c564083 100644
--- a/setup.el
+++ b/setup.el
@@ -498,10 +498,13 @@ the first PACKAGE."
(setup-define :load-from
(lambda (path)
- `(add-to-list 'load-path (expand-file-name ,path)))
+ `(if (file-exists-p ,path)
+ (add-to-list 'load-path (expand-file-name ,path))
+ (throw 'setup-exit t)))
:documentation "Add PATH to load path.
This macro can be used as HEAD, and it will replace itself with
-the nondirectory part of PATH."
+the nondirectory part of PATH.
+If PATH does not exist, abort the evaluation."
:shorthand (lambda (args) (intern (file-name-nondirectory (cadr args)))))
(setup-define :file-match
