# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 747469364 0
# Node ID 8db3c141cb626f4febeea385c1ab9b3888198d8e
# Parent  047e8f8469d9fd07dc337ee9d40da976a635a344
(ange-ftp-file-executable-p): New function, handles file-executable-p.

diff -r 047e8f8469d9 -r 8db3c141cb62 lisp/ange-ftp.el
--- a/lisp/ange-ftp.el	Tue Sep 07 10:41:05 1993 +0000
+++ b/lisp/ange-ftp.el	Wed Sep 08 06:22:44 1993 +0000
@@ -856,7 +856,7 @@
 ;;;; Internal variables.
 ;;;; ------------------------------------------------------------
 
-(defconst ange-ftp-version "$Revision: 1.31 $")
+(defconst ange-ftp-version "$Revision: 1.32 $")
 
 (defvar ange-ftp-data-buffer-name " *ftp data*"
   "Buffer name to hold directory listing data received from ftp process.")
@@ -3081,6 +3081,12 @@
       (file-exists-p file)
     (ange-ftp-real-file-readable-p file)))
 
+(defun ange-ftp-file-executable-p (file)
+  (setq file (expand-file-name file))
+  (if (ange-ftp-ftp-name file)
+      (file-exists-p file)
+    (ange-ftp-real-file-executable-p file)))
+
 (defun ange-ftp-delete-file (file)
   (interactive "fDelete file: ")
   (setq file (expand-file-name file))
@@ -3788,6 +3794,7 @@
 (put 'file-directory-p 'ange-ftp 'ange-ftp-file-directory-p)
 (put 'file-writable-p 'ange-ftp 'ange-ftp-file-writable-p)
 (put 'file-readable-p 'ange-ftp 'ange-ftp-file-readable-p)
+(put 'file-executable-p 'ange-ftp 'ange-ftp-file-executable-p)
 (put 'file-symlink-p 'ange-ftp 'ange-ftp-file-symlink-p)
 (put 'delete-file 'ange-ftp 'ange-ftp-delete-file)
 (put 'read-file-name-internal 'ange-ftp 'ange-ftp-read-file-name-internal)
@@ -3857,6 +3864,9 @@
 (defun ange-ftp-real-file-readable-p (&rest args)
   (let (file-name-handler-alist)
     (apply 'file-readable-p args)))
+(defun ange-ftp-real-file-executable-p (&rest args)
+  (let (file-name-handler-alist)
+    (apply 'file-executable-p args)))
 (defun ange-ftp-real-file-symlink-p (&rest args)
   (let (file-name-handler-alist)
     (apply 'file-symlink-p args)))