[elpa] externals/wcheck-mode e07dd1d 21/39: Different logic for wcheck--program-executable-p

[Teemu Likonen]

branch: externals/wcheck-mode
commit e07dd1d0c3e034360d08c3856471496273a340da
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Teemu Likonen <tlikonen@iki.fi>

    Different logic for wcheck--program-executable-p
---
 wcheck-mode.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/wcheck-mode.el b/wcheck-mode.el
index 25a8a09..e099305 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -2021,10 +2021,10 @@ a (valid) value for the KEY then query the value from
 
 (defun wcheck--program-executable-p (program)
   "Return non-nil if PROGRAM is executable regular file."
-  (and (stringp program)
-       (or (and (file-regular-p program)
-                (file-executable-p program))
-           (executable-find program))))
+  (when (stringp program)
+    (let ((f (executable-find program)))
+      (and (file-regular-p f)
+           (file-executable-p f)))))
 
 
 (defun wcheck--program-configured-p (language)