changeset 53351:d3b9902eacfe

(ange-ftp-file-attributes): Add new optional parameter ID-FORMAT.
author Sam Steingold <sds@gnu.org>
date Mon, 29 Dec 2003 01:01:48 +0000
parents 89a24e997838
children 958aea5e5a05 1747ce67f759
files lisp/ChangeLog lisp/net/ange-ftp.el
diffstat 2 files changed, 9 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Sun Dec 28 22:16:57 2003 +0000
+++ b/lisp/ChangeLog	Mon Dec 29 01:01:48 2003 +0000
@@ -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)
--- a/lisp/net/ange-ftp.el	Sun Dec 28 22:16:57 2003 +0000
+++ b/lisp/net/ange-ftp.el	Mon Dec 29 01:01:48 2003 +0000
@@ -3434,7 +3434,7 @@
 	  (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 @@
 		      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))