Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-18 02:47:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(ange-ftp-file-writable-p)

Browse source 
(ange-ftp-file-readable-p, ange-ftp-file-executable-p): Bind
ange-ftp-process-verbose to nil.
This commit is contained in:
Gerd Moellmann 2000-11-16 06:13:09 +00:00
parent cac94de655
commit 0e14fe9f16
2 changed files with 23 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2000-11-16 Gerd Moellmann <gerd@gnu.org>
* net/ange-ftp.el (ange-ftp-file-writable-p)
(ange-ftp-file-readable-p, ange-ftp-file-executable-p): Bind
ange-ftp-process-verbose to nil.
2000-11-15 Dave Love <fx@gnu.org>
* wid-edit.el (widget-specify-field, widget-specify-button): If
@ -19,7 +25,7 @@
2000-11-15 Gerd Moellmann <gerd@gnu.org>
* faces.el (face-set-after-frame-default): If
`inhibit-default-face-x-resources' is bound, don't intiialize the
`inhibit-default-face-x-resources' is bound, don't intialize the
default face from X resources.
2000-11-15 Eli Zaretskii <eliz@is.elta.co.il>

29
lisp/net/ange-ftp.el
View file

@ -3373,23 +3373,26 @@ system TYPE.")
(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: ")