Mercurial > emacs
changeset 53500:530a52a3971b
(ange-ftp-file-attributes):
Pass 2 args to ange-ftp-real-file-attributes only if ID-FORMAT non-nil.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 05 Jan 2004 13:58:18 +0000 |
| parents | 837280979573 |
| children | 97bc08aa2492 |
| files | lisp/net/ange-ftp.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/net/ange-ftp.el Sun Jan 04 23:00:06 2004 +0000 +++ b/lisp/net/ange-ftp.el Mon Jan 05 13:58:18 2004 +0000 @@ -3468,7 +3468,9 @@ inode ;10 "inode number". -1 ;11 device number [v19 only] )))) - (ange-ftp-real-file-attributes file id-format)))) + (if id-format + (ange-ftp-real-file-attributes file id-format) + (ange-ftp-real-file-attributes file))))) (defun ange-ftp-file-newer-than-file-p (f1 f2) (let ((f1-parsed (ange-ftp-ftp-name f1))