1 files changed, 6 insertions, 3 deletions

@@ -34,9 +34,12 @@ be created."
 Each of PROGRAMS can be a single string, or a list.  If it's a list then its car
 will be tested with `executable-find', and the entire list returned.  This
 enables passing arguments to a calling function."
-  (seq-find (lambda (x)
-              (executable-find (car (ensure-list x))))
-            programs))
+  (catch 'found
+    (dolist (prog programs)
+      (let ((exec (executable-find (car (ensure-list prog))))
+            (args (cdr-safe prog)))
+        (when exec
+         (throw 'found (if args (cons exec args) exec)))))))
 
 (defun file-string (file)
   "Return the contents of FILE as a string."