diff options
| author | Richard M. Stallman <rms@gnu.org> | 2004-01-05 13:58:18 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2004-01-05 13:58:18 +0000 |
| commit | 836078f66a269586b0fb60dec7df7b2538f861cd (patch) | |
| tree | 82b73e91ddb76a4cdb8a6a9fd66ee47f0b5a7b1f /lisp | |
| parent | 17b337762fe7df77aa8a6dfcea0109a267bea83d (diff) | |
| download | emacs-836078f66a269586b0fb60dec7df7b2538f861cd.tar.gz emacs-836078f66a269586b0fb60dec7df7b2538f861cd.tar.bz2 emacs-836078f66a269586b0fb60dec7df7b2538f861cd.zip | |
(ange-ftp-file-attributes):
Pass 2 args to ange-ftp-real-file-attributes only if ID-FORMAT non-nil.
Diffstat (limited to 'lisp')
| -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.") 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)) |