* 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 fa6ce1945b14ed2c7b88f8d3b0a6412a54823345..7b38fb7ed1157f07874e4b134097d109dcac778d 100644 (file)
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,8 @@
+2009-09-13  Chong Yidong  <cyd@stupidchicken.com>
+
+       * 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  <rgm@gnu.org>
 
        * 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 c06e841b2c87cc5e298436e442d3062b8e94a46e..2cf88e8f202b926109b8c9d9025ec09c662f4f8c 100644 (file)
--- 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))