diff options
| author | Jim Blandy | 1991-08-26 19:11:30 +0000 |
|---|---|---|
| committer | Jim Blandy | 1991-08-26 19:11:30 +0000 |
| commit | 349a7710a2006a3fd54f179f1535b54769506cc4 (patch) | |
| tree | 2ed05d66e001f09a272c789d112ed928c0c63b4f /src | |
| parent | 433ae6f6e191af1d1bc67025200ea54a08761e68 (diff) | |
| download | emacs-349a7710a2006a3fd54f179f1535b54769506cc4.tar.gz emacs-349a7710a2006a3fd54f179f1535b54769506cc4.zip | |
*** empty log message ***
Diffstat (limited to 'src')
| -rw-r--r-- | src/fileio.c | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/fileio.c b/src/fileio.c index a99b77b0687..ab235fe917f 100644 --- a/src/fileio.c +++ b/src/fileio.c | |||
| @@ -1363,14 +1363,15 @@ barf_or_query_if_file_exists (absname, querystring, interactive) | |||
| 1363 | } | 1363 | } |
| 1364 | 1364 | ||
| 1365 | DEFUN ("copy-file", Fcopy_file, Scopy_file, 2, 4, | 1365 | DEFUN ("copy-file", Fcopy_file, Scopy_file, 2, 4, |
| 1366 | "fCopy file: \nFCopy %s to file: \np", | 1366 | "fCopy file: \nFCopy %s to file: \np\nP", |
| 1367 | "Copy FILE to NEWNAME. Both args must be strings.\n\ | 1367 | "Copy FILE to NEWNAME. Both args must be strings.\n\ |
| 1368 | Signals a `file-already-exists' error if file NEWNAME already exists,\n\ | 1368 | Signals a `file-already-exists' error if file NEWNAME already exists,\n\ |
| 1369 | unless a third argument OK-IF-ALREADY-EXISTS is supplied and non-nil.\n\ | 1369 | unless a third argument OK-IF-ALREADY-EXISTS is supplied and non-nil.\n\ |
| 1370 | A number as third arg means request confirmation if NEWNAME already exists.\n\ | 1370 | A number as third arg means request confirmation if NEWNAME already exists.\n\ |
| 1371 | This is what happens in interactive use with M-x.\n\ | 1371 | This is what happens in interactive use with M-x.\n\ |
| 1372 | Fourth arg non-nil means give the new file the same last-modified time\n\ | 1372 | Fourth arg KEEP-TIME non-nil means give the new file the same\n\ |
| 1373 | that the old one has. (This works on only some systems.)") | 1373 | last-modified time as the old one. (This works on only some systems.)\n\ |
| 1374 | A prefix arg makes KEEP-TIME non-nil.") | ||
| 1374 | (filename, newname, ok_if_already_exists, keep_date) | 1375 | (filename, newname, ok_if_already_exists, keep_date) |
| 1375 | Lisp_Object filename, newname, ok_if_already_exists, keep_date; | 1376 | Lisp_Object filename, newname, ok_if_already_exists, keep_date; |
| 1376 | { | 1377 | { |
| @@ -1956,7 +1957,7 @@ before the error is signaled.") | |||
| 1956 | 1957 | ||
| 1957 | #ifndef APOLLO | 1958 | #ifndef APOLLO |
| 1958 | if (stat (XSTRING (filename)->data, &st) < 0 | 1959 | if (stat (XSTRING (filename)->data, &st) < 0 |
| 1959 | || (fd = open (XSTRING (filename)->data, 0)) < 0) | 1960 | || (fd = open (XSTRING (filename)->data, 0)) < 0) |
| 1960 | #else | 1961 | #else |
| 1961 | if ((fd = open (XSTRING (filename)->data, 0)) < 0 | 1962 | if ((fd = open (XSTRING (filename)->data, 0)) < 0 |
| 1962 | || fstat (fd, &st) < 0) | 1963 | || fstat (fd, &st) < 0) |