diff options
| author | Kenichi Handa | 2007-03-22 12:15:04 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2007-03-22 12:15:04 +0000 |
| commit | 2f868094f45bbcad7b3e3e2943a9ba13e56b9660 (patch) | |
| tree | 9cbf3decb5351fe8d907d9a6350598ca48f73aa2 /src | |
| parent | 28a419dd4600db69758c82633f0def217f233b00 (diff) | |
| download | emacs-2f868094f45bbcad7b3e3e2943a9ba13e56b9660.tar.gz emacs-2f868094f45bbcad7b3e3e2943a9ba13e56b9660.zip | |
(Fcopy_file): Call barf_or_query_if_file_exists with
non-encoded file name.
(Frename_file): Likewise.
(Fadd_name_to_file): Likewise.
(Fmake_symbolic_link): Likewise.
Diffstat (limited to 'src')
| -rw-r--r-- | src/fileio.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/fileio.c b/src/fileio.c index 3523c5cb487..7156f22f57e 100644 --- a/src/fileio.c +++ b/src/fileio.c | |||
| @@ -2471,7 +2471,7 @@ uid and gid of FILE to NEWNAME. */) | |||
| 2471 | 2471 | ||
| 2472 | if (NILP (ok_if_already_exists) | 2472 | if (NILP (ok_if_already_exists) |
| 2473 | || INTEGERP (ok_if_already_exists)) | 2473 | || INTEGERP (ok_if_already_exists)) |
| 2474 | barf_or_query_if_file_exists (encoded_newname, "copy to it", | 2474 | barf_or_query_if_file_exists (newname, "copy to it", |
| 2475 | INTEGERP (ok_if_already_exists), &out_st, 0); | 2475 | INTEGERP (ok_if_already_exists), &out_st, 0); |
| 2476 | else if (stat (SDATA (encoded_newname), &out_st) < 0) | 2476 | else if (stat (SDATA (encoded_newname), &out_st) < 0) |
| 2477 | out_st.st_mode = 0; | 2477 | out_st.st_mode = 0; |
| @@ -2780,7 +2780,7 @@ This is what happens in interactive use with M-x. */) | |||
| 2780 | #endif | 2780 | #endif |
| 2781 | if (NILP (ok_if_already_exists) | 2781 | if (NILP (ok_if_already_exists) |
| 2782 | || INTEGERP (ok_if_already_exists)) | 2782 | || INTEGERP (ok_if_already_exists)) |
| 2783 | barf_or_query_if_file_exists (encoded_newname, "rename to it", | 2783 | barf_or_query_if_file_exists (newname, "rename to it", |
| 2784 | INTEGERP (ok_if_already_exists), 0, 0); | 2784 | INTEGERP (ok_if_already_exists), 0, 0); |
| 2785 | #ifndef BSD4_1 | 2785 | #ifndef BSD4_1 |
| 2786 | if (0 > rename (SDATA (encoded_file), SDATA (encoded_newname))) | 2786 | if (0 > rename (SDATA (encoded_file), SDATA (encoded_newname))) |
| @@ -2857,7 +2857,7 @@ This is what happens in interactive use with M-x. */) | |||
| 2857 | 2857 | ||
| 2858 | if (NILP (ok_if_already_exists) | 2858 | if (NILP (ok_if_already_exists) |
| 2859 | || INTEGERP (ok_if_already_exists)) | 2859 | || INTEGERP (ok_if_already_exists)) |
| 2860 | barf_or_query_if_file_exists (encoded_newname, "make it a new name", | 2860 | barf_or_query_if_file_exists (newname, "make it a new name", |
| 2861 | INTEGERP (ok_if_already_exists), 0, 0); | 2861 | INTEGERP (ok_if_already_exists), 0, 0); |
| 2862 | 2862 | ||
| 2863 | unlink (SDATA (newname)); | 2863 | unlink (SDATA (newname)); |
| @@ -2918,7 +2918,7 @@ This happens for interactive use with M-x. */) | |||
| 2918 | 2918 | ||
| 2919 | if (NILP (ok_if_already_exists) | 2919 | if (NILP (ok_if_already_exists) |
| 2920 | || INTEGERP (ok_if_already_exists)) | 2920 | || INTEGERP (ok_if_already_exists)) |
| 2921 | barf_or_query_if_file_exists (encoded_linkname, "make it a link", | 2921 | barf_or_query_if_file_exists (linkname, "make it a link", |
| 2922 | INTEGERP (ok_if_already_exists), 0, 0); | 2922 | INTEGERP (ok_if_already_exists), 0, 0); |
| 2923 | if (0 > symlink (SDATA (encoded_filename), | 2923 | if (0 > symlink (SDATA (encoded_filename), |
| 2924 | SDATA (encoded_linkname))) | 2924 | SDATA (encoded_linkname))) |