From: Chong Yidong Date: Sun, 13 Sep 2009 21:21:40 +0000 (+0000) Subject: * url-handlers.el (url-copy-file): Add fifth arg for compatibility X-Git-Tag: emacs-pretest-23.1.90~1334 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=120812a0ba503879347d81d8ea367f90a394a7e7;p=emacs.git * url-handlers.el (url-copy-file): Add fifth arg for compatibility with 2005-06-25 change to copy-file (Bug#4410). --- diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog index fa6ce1945b1..7b38fb7ed11 100644 --- a/lisp/url/ChangeLog +++ b/lisp/url/ChangeLog @@ -1,3 +1,8 @@ +2009-09-13 Chong Yidong + + * url-handlers.el (url-copy-file): Add fifth arg for compatibility + with 2005-06-25 change to copy-file (Bug#4410). + 2009-09-13 Glenn Morris * url-file.el (url-file): Avoid assignment to free variable `filename'. diff --git a/lisp/url/url-handlers.el b/lisp/url/url-handlers.el index c06e841b2c8..2cf88e8f202 100644 --- a/lisp/url/url-handlers.el +++ b/lisp/url/url-handlers.el @@ -215,7 +215,8 @@ the arguments that would have been passed to OPERATION." ;; The actual implementation ;;;###autoload -(defun url-copy-file (url newname &optional ok-if-already-exists keep-time) +(defun url-copy-file (url newname &optional ok-if-already-exists + keep-time preserve-uid-gid) "Copy URL to NEWNAME. Both args must be strings. Signals a `file-already-exists' error if file NEWNAME already exists, unless a third argument OK-IF-ALREADY-EXISTS is supplied and non-nil. @@ -223,6 +224,7 @@ A number as third arg means request confirmation if NEWNAME already exists. This is what happens in interactive use with M-x. Fourth arg KEEP-TIME non-nil means give the new file the same last-modified time as the old one. (This works on only some systems.) +Fifth arg PRESERVE-UID-GID is ignored. A prefix arg makes KEEP-TIME non-nil." (if (and (file-exists-p newname) (not ok-if-already-exists))