aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorKenichi Handa2007-03-22 12:15:04 +0000
committerKenichi Handa2007-03-22 12:15:04 +0000
commit2f868094f45bbcad7b3e3e2943a9ba13e56b9660 (patch)
tree9cbf3decb5351fe8d907d9a6350598ca48f73aa2 /src
parent28a419dd4600db69758c82633f0def217f233b00 (diff)
downloademacs-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.c8
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)))