diff options
author | Roland McGrath <roland@gnu.org> | 1993-09-08 06:22:44 +0000 |
---|---|---|
committer | Roland McGrath <roland@gnu.org> | 1993-09-08 06:22:44 +0000 |
commit | 981e714a1507045b2d8a581987b59b04a12ab2b9 (patch) | |
tree | 8a1c127a84f8bdc1403209541a8a38f1dd92ae10 /lisp/ange-ftp.el | |
parent | 74ef7a0650a80adccb99896bdc0abc82258086bb (diff) | |
download | emacs-981e714a1507045b2d8a581987b59b04a12ab2b9.tar.gz |
(ange-ftp-file-executable-p): New function, handles file-executable-p.
Diffstat (limited to 'lisp/ange-ftp.el')
-rw-r--r-- | lisp/ange-ftp.el | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index a1b9fc26456..eb6e77cb07c 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el @@ -856,7 +856,7 @@ SIZE, if supplied, should be a prime number." ;;;; 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 @@ system TYPE.") (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 @@ NEWNAME should be the name to give the new compressed or uncompressed file.") (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 @@ NEWNAME should be the name to give the new compressed or uncompressed file.") (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))) |