Mercurial > emacs

comparison lisp/net/ange-ftp.el @ 33533:1de3bb3a4c95

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 ba9bd1bf0ef8
children ac44722a4f19
comparison
equal deleted inserted replaced
33532:0c77456f271c 33533:1de3bb3a4c95
3371 ((null f2-mt) t) 3371 ((null f2-mt) t)
3372 (t (> (float-time f1-mt) (float-time f2-mt))))) 3372 (t (> (float-time f1-mt) (float-time f2-mt)))))
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: ")
3396 (setq file (expand-file-name file)) 3399 (setq file (expand-file-name file))
3397 (let ((parsed (ange-ftp-ftp-name file))) 3400 (let ((parsed (ange-ftp-ftp-name file)))