Mercurial > emacs
changeset 33533:1de3bb3a4c95
(ange-ftp-file-writable-p)
(ange-ftp-file-readable-p, ange-ftp-file-executable-p): Bind
ange-ftp-process-verbose to nil.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Thu, 16 Nov 2000 06:10:41 +0000 |
| parents | 0c77456f271c |
| children | 7010bcb8a6e0 |
| files | lisp/net/ange-ftp.el |
| diffstat | 1 files changed, 16 insertions(+), 13 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/net/ange-ftp.el Thu Nov 16 05:05:34 2000 +0000 +++ b/lisp/net/ange-ftp.el Thu Nov 16 06:10:41 2000 +0000 @@ -3373,23 +3373,26 @@ (ange-ftp-real-file-newer-than-file-p f1 f2)))) (defun ange-ftp-file-writable-p (file) - (setq file (expand-file-name file)) - (if (ange-ftp-ftp-name file) - (or (file-exists-p file) ;guess here for speed - (file-directory-p (file-name-directory file))) - (ange-ftp-real-file-writable-p file))) + (let ((ange-ftp-process-verbose nil)) + (setq file (expand-file-name file)) + (if (ange-ftp-ftp-name file) + (or (file-exists-p file) ;guess here for speed + (file-directory-p (file-name-directory file))) + (ange-ftp-real-file-writable-p file)))) (defun ange-ftp-file-readable-p (file) - (setq file (expand-file-name file)) - (if (ange-ftp-ftp-name file) - (file-exists-p file) - (ange-ftp-real-file-readable-p file))) + (let ((ange-ftp-process-verbose nil)) + (setq file (expand-file-name file)) + (if (ange-ftp-ftp-name file) + (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))) + (let ((ange-ftp-process-verbose nil)) + (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: ")