(file-executable-p): New function.

diff --git a/ChangeLog b/ChangeLog
index ba1bafd..c214a2d 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+1999-11-02  Katsumi Yamaoka   <yamaoka@jpl.org>
+
+       * poe-18.el (file-executable-p): New function.
+
+\f
 1999-10-22  Katsumi Yamaoka   <yamaoka@jpl.org>
 
        * APEL: Version 9.23 released.

diff --git a/poe-18.el b/poe-18.el
index 73403d1..8a684e3 100644 (file)
--- a/poe-18.el
+++ b/poe-18.el
@@ -25,7 +25,7 @@
 ;;; Commentary:
 
 ;; Note to developers:
-;; 
+;;
 ;; If old (v18) compiler is used, top-level macros are expanded at
 ;; *load-time*, not compile-time.  So, you cannot use macros defined
 ;; in this file using `defmacro-maybe'.  In addition, due to this
@@ -104,7 +104,7 @@ for this variable.
 (autoload 'setenv "env"
   "Set the value of the environment variable named VARIABLE to VALUE.
 VARIABLE should be a string.  VALUE is optional; if not provided or is
-`nil', the environment variable VARIABLE will be removed.  
+`nil', the environment variable VARIABLE will be removed.
 This function works by modifying `process-environment'."
   t)
 
@@ -291,7 +291,15 @@ If NOSORT is dummy for compatibility.
 \[poe-18.el; EMACS 19 emulating function]"
   (si:directory-files directory full match))
 
-    
+(defun file-executable-p (filename)
+  "Return t if FILENAME can be executed by you.
+For a directory, this means you can access files in that directory.
+\[poe-18.el; EMACS 19 emulating function]"
+  (let ((process (start-process "test" nil "test" "-x" filename)))
+    (while (eq 'run (process-status process)))
+    (zerop (process-exit-status process))))
+
+
 ;;; @ Display Features
 ;;;
 
@@ -354,7 +362,7 @@ With optional non-nil ALL, force redisplay of all mode-lines.
               (set-marker (nth posto attr-value) to))
             (setcdr (nthcdr posfrom attr-value)
                     (nthcdr posto attr-value)))))
-       
+
        (defalias 'make-overlay 'cons)
 
        (defun overlay-put (overlay prop value)