mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-01 08:17:38 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Sam Steingold 2003-12-29 01:01:48 +00:00
parent d674d13e14
commit c438366720
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/ChangeLog
View File

@ -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)

4
lisp/net/ange-ftp.el
View File

@ -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))