[elpa] externals/buffer-env 96e0291bc4 1/2: Refactor buffer-env--locate-script

[ELPA Syncer]

branch: externals/buffer-env
commit 96e0291bc458f1f4c8361dc8b32ceafe5248bcef
Author: Augusto Stoffel <arstoffel@gmail.com>
Commit: Augusto Stoffel <arstoffel@gmail.com>

    Refactor buffer-env--locate-script
---
 buffer-env.el | 20 ++++++++------------
 1 file changed, 8 insertions(+), 12 deletions(-)

diff --git a/buffer-env.el b/buffer-env.el
index 34b68f229a..422717331a 100644
--- a/buffer-env.el
+++ b/buffer-env.el
@@ -147,19 +147,15 @@ Files marked as safe to execute are permanently stored in
 
 (defun buffer-env--locate-script ()
   "Locate a dominating file named `buffer-env-script-name'."
-  (cond
-   ((file-remote-p default-directory) nil)
-   ((listp buffer-env-script-name)
+  (unless (file-remote-p default-directory)
     (seq-some
-     (lambda (script-name)
-       (and-let* ((dir (locate-dominating-file default-directory
-                                              script-name)))
-        (expand-file-name script-name dir)))
-     buffer-env-script-name))
-   ((stringp buffer-env-script-name)
-    (when-let* ((dir (locate-dominating-file default-directory
-                                            buffer-env-script-name)))
-      (expand-file-name buffer-env-script-name dir)))))
+     (lambda (name)
+       (when-let ((dir (locate-dominating-file default-directory
+                                              name)))
+        (expand-file-name name dir)))
+     (if (stringp buffer-env-script-name)
+         (list buffer-env-script-name)
+       buffer-env-script-name))))
 
 ;;;###autoload
 (defun buffer-env-update (&optional file)