[elpa] externals/setup 646ed6f 01/10: Check if PATH exists for :load-from

[Stefan Monnier]

branch: externals/setup
commit 646ed6f60cfd723ae78186e8cf36afbca779ff09
Author: Philip K <philipk@posteo.net>
Commit: Philip K <philipk@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