(ange-ftp-file-attributes): Add new optional parameter ID-FORMAT.

2 files changed, 9 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cf4ae2b5828..56587ae22ed 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-12-28  Sam Steingold  <sds@gnu.org>
+
+        * net/ange-ftp.el (ange-ftp-file-attributes): Add new optional
+        parameter ID-FORMAT to conform with the 2003-11-30 patch.
+
 2003-12-28  Nick Roberts  <nick@nick.uklinux.net>
 
         * progmodes/gud.el (gud-gdb-command-name): Set default to
@@ -129,7 +134,7 @@
         (group, documentation-string): Removed redundant (per 2003-10-25
         change) calls to `widget-children-value-delete'.
         (widget-choice-value-get, widget-choice-value-inline): Removed
-        functions. 
+        functions.
         (menu-choice): Updated widget.
 
 2003-12-03  Kenichi Handa  <handa@m17n.org>
@@ -1905,7 +1910,7 @@
         which does not exist in LaTeX.
         (reftex-cite-format-builtin): Added amsrefs support.
         (reftex-toc-confirm-promotion): New option
-        
+
         * reftex-toc.el
         (reftex-toc): Use `reftex-toc-split-windows-fraction'.
         (reftex-toc-demote, reftex-toc-promote)
diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index 159b276716d..b96e7f1a298 100644
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -3434,7 +3434,7 @@ system TYPE.")
           (nreverse files)))
     (apply 'ange-ftp-real-directory-files directory full match v19-args)))
 
-(defun ange-ftp-file-attributes (file)
+(defun ange-ftp-file-attributes (file &optional id-format)
   (setq file (expand-file-name file))
   (let ((parsed (ange-ftp-ftp-name file)))
     (if parsed
@@ -3467,7 +3467,7 @@ system TYPE.")
                       inode             ;10 "inode number".
                       -1                ;11 device number [v19 only]
                       ))))
-      (ange-ftp-real-file-attributes file))))
+      (ange-ftp-real-file-attributes file id-format))))
 
 (defun ange-ftp-file-newer-than-file-p (f1 f2)
   (let ((f1-parsed (ange-ftp-ftp-name f1))