diff options
| author | Sam Steingold | 2003-12-29 01:01:48 +0000 |
|---|---|---|
| committer | Sam Steingold | 2003-12-29 01:01:48 +0000 |
| commit | c4383667201d2a2fa071c380caea36df2219261f (patch) | |
| tree | a2393e1c17ab730f3753afada9d0030976dcd1a9 /lisp/net | |
| parent | d674d13e14107bdc860391e08b724310f752235e (diff) | |
| download | emacs-c4383667201d2a2fa071c380caea36df2219261f.tar.gz emacs-c4383667201d2a2fa071c380caea36df2219261f.zip | |
(ange-ftp-file-attributes): Add new optional parameter ID-FORMAT.
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/ange-ftp.el | 4 |
1 files changed, 2 insertions, 2 deletions
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.") | |||
| 3434 | (nreverse files))) | 3434 | (nreverse files))) |
| 3435 | (apply 'ange-ftp-real-directory-files directory full match v19-args))) | 3435 | (apply 'ange-ftp-real-directory-files directory full match v19-args))) |
| 3436 | 3436 | ||
| 3437 | (defun ange-ftp-file-attributes (file) | 3437 | (defun ange-ftp-file-attributes (file &optional id-format) |
| 3438 | (setq file (expand-file-name file)) | 3438 | (setq file (expand-file-name file)) |
| 3439 | (let ((parsed (ange-ftp-ftp-name file))) | 3439 | (let ((parsed (ange-ftp-ftp-name file))) |
| 3440 | (if parsed | 3440 | (if parsed |
| @@ -3467,7 +3467,7 @@ system TYPE.") | |||
| 3467 | inode ;10 "inode number". | 3467 | inode ;10 "inode number". |
| 3468 | -1 ;11 device number [v19 only] | 3468 | -1 ;11 device number [v19 only] |
| 3469 | )))) | 3469 | )))) |
| 3470 | (ange-ftp-real-file-attributes file)))) | 3470 | (ange-ftp-real-file-attributes file id-format)))) |
| 3471 | 3471 | ||
| 3472 | (defun ange-ftp-file-newer-than-file-p (f1 f2) | 3472 | (defun ange-ftp-file-newer-than-file-p (f1 f2) |
| 3473 | (let ((f1-parsed (ange-ftp-ftp-name f1)) | 3473 | (let ((f1-parsed (ange-ftp-ftp-name f1)) |