# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 974355041 0
# Node ID 1de3bb3a4c954209c0eb1695abf58813a1ba6d24
# Parent  0c77456f271c3119567bc9e202186de4a18496e6
(ange-ftp-file-writable-p)
(ange-ftp-file-readable-p, ange-ftp-file-executable-p): Bind
ange-ftp-process-verbose to nil.

diff -r 0c77456f271c -r 1de3bb3a4c95 lisp/net/ange-ftp.el
--- 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: ")