Mercurial > emacs
changeset 410:7812e9efc1af
*** empty log message ***
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Mon, 26 Aug 1991 19:11:30 +0000 |
| parents | 671fceb3316b |
| children | cb75ab565260 |
| files | src/fileio.c |
| diffstat | 1 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/src/fileio.c Sun Aug 25 21:47:10 1991 +0000 +++ b/src/fileio.c Mon Aug 26 19:11:30 1991 +0000 @@ -1363,14 +1363,15 @@ } DEFUN ("copy-file", Fcopy_file, Scopy_file, 2, 4, - "fCopy file: \nFCopy %s to file: \np", + "fCopy file: \nFCopy %s to file: \np\nP", "Copy FILE to NEWNAME. Both args must be strings.\n\ Signals a `file-already-exists' error if file NEWNAME already exists,\n\ unless a third argument OK-IF-ALREADY-EXISTS is supplied and non-nil.\n\ A number as third arg means request confirmation if NEWNAME already exists.\n\ This is what happens in interactive use with M-x.\n\ -Fourth arg non-nil means give the new file the same last-modified time\n\ -that the old one has. (This works on only some systems.)") +Fourth arg KEEP-TIME non-nil means give the new file the same\n\ +last-modified time as the old one. (This works on only some systems.)\n\ +A prefix arg makes KEEP-TIME non-nil.") (filename, newname, ok_if_already_exists, keep_date) Lisp_Object filename, newname, ok_if_already_exists, keep_date; { @@ -1956,7 +1957,7 @@ #ifndef APOLLO if (stat (XSTRING (filename)->data, &st) < 0 - || (fd = open (XSTRING (filename)->data, 0)) < 0) + || (fd = open (XSTRING (filename)->data, 0)) < 0) #else if ((fd = open (XSTRING (filename)->data, 0)) < 0 || fstat (fd, &st) < 0)