From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 5 Jan 2004 13:58:18 +0000 (+0000)
Subject: (ange-ftp-file-attributes):
X-Git-Tag: ttn-vms-21-2-B4~8003
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=836078f66a269586b0fb60dec7df7b2538f861cd;p=emacs.git

(ange-ftp-file-attributes):
Pass 2 args to ange-ftp-real-file-attributes only if ID-FORMAT non-nil.
---

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))