From: Sam Steingold Date: Mon, 29 Dec 2003 01:01:48 +0000 (+0000) Subject: (ange-ftp-file-attributes): Add new optional parameter ID-FORMAT. X-Git-Tag: ttn-vms-21-2-B4~8127 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c4383667201d2a2fa071c380caea36df2219261f;p=emacs.git (ange-ftp-file-attributes): Add new optional parameter ID-FORMAT. --- 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 + + * 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 * 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 @@ -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))