aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorJim Blandy1991-08-26 19:11:30 +0000
committerJim Blandy1991-08-26 19:11:30 +0000
commit349a7710a2006a3fd54f179f1535b54769506cc4 (patch)
tree2ed05d66e001f09a272c789d112ed928c0c63b4f /src
parent433ae6f6e191af1d1bc67025200ea54a08761e68 (diff)
downloademacs-349a7710a2006a3fd54f179f1535b54769506cc4.tar.gz
emacs-349a7710a2006a3fd54f179f1535b54769506cc4.zip
*** empty log message ***
Diffstat (limited to 'src')
-rw-r--r--src/fileio.c9
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
1365DEFUN ("copy-file", Fcopy_file, Scopy_file, 2, 4, 1365DEFUN ("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\
1368Signals a `file-already-exists' error if file NEWNAME already exists,\n\ 1368Signals a `file-already-exists' error if file NEWNAME already exists,\n\
1369unless a third argument OK-IF-ALREADY-EXISTS is supplied and non-nil.\n\ 1369unless a third argument OK-IF-ALREADY-EXISTS is supplied and non-nil.\n\
1370A number as third arg means request confirmation if NEWNAME already exists.\n\ 1370A number as third arg means request confirmation if NEWNAME already exists.\n\
1371This is what happens in interactive use with M-x.\n\ 1371This is what happens in interactive use with M-x.\n\
1372Fourth arg non-nil means give the new file the same last-modified time\n\ 1372Fourth arg KEEP-TIME non-nil means give the new file the same\n\
1373that the old one has. (This works on only some systems.)") 1373last-modified time as the old one. (This works on only some systems.)\n\
1374A 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)