diff options
| author | Richard M. Stallman | 2004-01-05 13:58:18 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2004-01-05 13:58:18 +0000 |
| commit | 836078f66a269586b0fb60dec7df7b2538f861cd (patch) | |
| tree | 82b73e91ddb76a4cdb8a6a9fd66ee47f0b5a7b1f | |
| parent | 17b337762fe7df77aa8a6dfcea0109a267bea83d (diff) | |
| download | emacs-836078f66a269586b0fb60dec7df7b2538f861cd.tar.gz emacs-836078f66a269586b0fb60dec7df7b2538f861cd.zip | |
(ange-ftp-file-attributes):
Pass 2 args to ange-ftp-real-file-attributes only if ID-FORMAT non-nil.
| -rw-r--r-- | lisp/net/ange-ftp.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index 0277bd0aabc..8e1068a5bed 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el | |||
| @@ -3468,7 +3468,9 @@ system TYPE.") | |||
| 3468 | inode ;10 "inode number". | 3468 | inode ;10 "inode number". |
| 3469 | -1 ;11 device number [v19 only] | 3469 | -1 ;11 device number [v19 only] |
| 3470 | )))) | 3470 | )))) |
| 3471 | (ange-ftp-real-file-attributes file id-format)))) | 3471 | (if id-format |
| 3472 | (ange-ftp-real-file-attributes file id-format) | ||
| 3473 | (ange-ftp-real-file-attributes file))))) | ||
| 3472 | 3474 | ||
| 3473 | (defun ange-ftp-file-newer-than-file-p (f1 f2) | 3475 | (defun ange-ftp-file-newer-than-file-p (f1 f2) |
| 3474 | (let ((f1-parsed (ange-ftp-ftp-name f1)) | 3476 | (let ((f1-parsed (ange-ftp-ftp-name f1)) |