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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cf4ae2b582869ac7c10d4659a7fb4c727570fec2..56587ae22ed0563c72a6b210dd54228a7c07b77b 100644 (file)
--- 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 159b276716d188ed0b520bf8d3f779d5a19e252f..b96e7f1a2984658a2c519378e5dd6c59afb2aaa2 100644 (file)
--- 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))