diff options
| author | Gerd Moellmann | 2000-11-16 06:13:09 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2000-11-16 06:13:09 +0000 |
| commit | 0e14fe9f166fa0680eb351c83835e1dbdc333c60 (patch) | |
| tree | 06555105bf0d1fe21d14f3e06293ba85399827ff /lisp/net | |
| parent | cac94de6556616a52265d2d41905df45822a7515 (diff) | |
| download | emacs-0e14fe9f166fa0680eb351c83835e1dbdc333c60.tar.gz emacs-0e14fe9f166fa0680eb351c83835e1dbdc333c60.zip | |
(ange-ftp-file-writable-p)
(ange-ftp-file-readable-p, ange-ftp-file-executable-p): Bind
ange-ftp-process-verbose to nil.
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/ange-ftp.el | 29 |
1 files changed, 16 insertions, 13 deletions
diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index d02f0577c45..a6b986ceba0 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el | |||
| @@ -3373,23 +3373,26 @@ system TYPE.") | |||
| 3373 | (ange-ftp-real-file-newer-than-file-p f1 f2)))) | 3373 | (ange-ftp-real-file-newer-than-file-p f1 f2)))) |
| 3374 | 3374 | ||
| 3375 | (defun ange-ftp-file-writable-p (file) | 3375 | (defun ange-ftp-file-writable-p (file) |
| 3376 | (setq file (expand-file-name file)) | 3376 | (let ((ange-ftp-process-verbose nil)) |
| 3377 | (if (ange-ftp-ftp-name file) | 3377 | (setq file (expand-file-name file)) |
| 3378 | (or (file-exists-p file) ;guess here for speed | 3378 | (if (ange-ftp-ftp-name file) |
| 3379 | (file-directory-p (file-name-directory file))) | 3379 | (or (file-exists-p file) ;guess here for speed |
| 3380 | (ange-ftp-real-file-writable-p file))) | 3380 | (file-directory-p (file-name-directory file))) |
| 3381 | (ange-ftp-real-file-writable-p file)))) | ||
| 3381 | 3382 | ||
| 3382 | (defun ange-ftp-file-readable-p (file) | 3383 | (defun ange-ftp-file-readable-p (file) |
| 3383 | (setq file (expand-file-name file)) | 3384 | (let ((ange-ftp-process-verbose nil)) |
| 3384 | (if (ange-ftp-ftp-name file) | 3385 | (setq file (expand-file-name file)) |
| 3385 | (file-exists-p file) | 3386 | (if (ange-ftp-ftp-name file) |
| 3386 | (ange-ftp-real-file-readable-p file))) | 3387 | (file-exists-p file) |
| 3388 | (ange-ftp-real-file-readable-p file)))) | ||
| 3387 | 3389 | ||
| 3388 | (defun ange-ftp-file-executable-p (file) | 3390 | (defun ange-ftp-file-executable-p (file) |
| 3389 | (setq file (expand-file-name file)) | 3391 | (let ((ange-ftp-process-verbose nil)) |
| 3390 | (if (ange-ftp-ftp-name file) | 3392 | (setq file (expand-file-name file)) |
| 3391 | (file-exists-p file) | 3393 | (if (ange-ftp-ftp-name file) |
| 3392 | (ange-ftp-real-file-executable-p file))) | 3394 | (file-exists-p file) |
| 3395 | (ange-ftp-real-file-executable-p file)))) | ||
| 3393 | 3396 | ||
| 3394 | (defun ange-ftp-delete-file (file) | 3397 | (defun ange-ftp-delete-file (file) |
| 3395 | (interactive "fDelete file: ") | 3398 | (interactive "fDelete file: ") |