Mercurial > emacs
changeset 4674:8db3c141cb62
(ange-ftp-file-executable-p): New function, handles file-executable-p.
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Wed, 08 Sep 1993 06:22:44 +0000 |
| parents | 047e8f8469d9 |
| children | f4ab5299a1e4 |
| files | lisp/ange-ftp.el |
| diffstat | 1 files changed, 11 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)))