[elpa] 29/352: Lisätään funktio wcheck-program-executable-p

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit 6fbd8b92990e1ca81c792acfde604a671c149ca1
Author: Teemu Likonen <address@hidden>
Date:   Sat May 16 17:59:59 2009 +0000

    Lisätään funktio wcheck-program-executable-p
---
 wcheck-mode.el |    7 +++++++
 1 files changed, 7 insertions(+), 0 deletions(-)

diff --git a/wcheck-mode.el b/wcheck-mode.el
index b1e0960..cae5f7d 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -511,6 +511,13 @@ ulkoista ohjelmaa. Palauttaa t tai nil."
           t)))
 
 
+(defun wcheck-program-executable-p (program)
+  (and (stringp program)
+       (file-regular-p program)
+       (file-executable-p program)
+       t))
+
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; Overlay