diff options
| author | Case Duckworth | 2022-05-06 10:21:02 -0500 |
|---|---|---|
| committer | Case Duckworth | 2022-05-06 10:21:02 -0500 |
| commit | a8e71fa8c7be3840ce7063e3c09dc51f7119308c (patch) | |
| tree | 8a17d9965df5ddd7cfd5302c4d09dcc62402fec0 /lisp | |
| parent | Demote errors more better-er (diff) | |
| download | emacs-a8e71fa8c7be3840ce7063e3c09dc51f7119308c.tar.gz emacs-a8e71fa8c7be3840ce7063e3c09dc51f7119308c.zip | |
Add straight :needs
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/+setup.el | 7 |
1 files changed, 7 insertions, 0 deletions
| diff --git a/lisp/+setup.el b/lisp/+setup.el index d5a3a77..919e312 100644 --- a/lisp/+setup.el +++ b/lisp/+setup.el | |||
| @@ -126,6 +126,13 @@ The following keyword arguments are also recognized: | |||
| 126 | (let ((recipe (cadr sexp))) | 126 | (let ((recipe (cadr sexp))) |
| 127 | (or (car-safe recipe) recipe))))) | 127 | (or (car-safe recipe) recipe))))) |
| 128 | 128 | ||
| 129 | (setup-define :needs | ||
| 130 | (lambda (executable) | ||
| 131 | `(unless (executable-find ,executable) | ||
| 132 | ,(setup-quit))) | ||
| 133 | :documentation "If EXECUTABLE is not in the path, stop here." | ||
| 134 | :repeatable 1) | ||
| 135 | |||
| 129 | 136 | ||
| 130 | ;;; Redefines of `setup' forms | 137 | ;;; Redefines of `setup' forms |
| 131 | 138 | ||