(file-executable-p): Returns nil if the file does not exist.

diff --git a/ChangeLog b/ChangeLog
index 237fcf9..8780a58 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+1999-11-09  Katsumi Yamaoka   <yamaoka@jpl.org>
+
+       * poe-18.el (file-executable-p): Returns nil if the file does not
+       exist.
+

 1999-11-08  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * poe-18.el (put-text-property, next-property-change, 
 1999-11-08  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * poe-18.el (put-text-property, next-property-change, 

diff --git a/poe-18.el b/poe-18.el
index 4e7047f..2ca24e6 100644 (file)
--- a/poe-18.el
+++ b/poe-18.el
@@ -304,9 +304,10 @@ If NOSORT is dummy for compatibility.
   "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]"
   "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))))
+  (if (file-exists-p filename)
+      (let ((process (start-process "test" nil "test" "-x" filename)))
+       (while (eq 'run (process-status process)))
+       (zerop (process-exit-status process)))))

 
 
 ;;; @ Display Features
 
 
 ;;; @ Display Features