# HG changeset patch
# User Eli Zaretskii <eliz@is.elta.co.il>
# Date 1075755078 0
# Node ID 6c059bf40adc8eb3f3e790437a2c3f30652f69bd
# Parent  5b728a4183238d263c061b384b480b4d8908fe7e
(Fcopy_file): If NEWNAME is a directory, expand the
basename of FILE relative to it, not FILE itself.

diff -r 5b728a418323 -r 6c059bf40adc src/fileio.c
--- a/src/fileio.c	Mon Feb 02 15:22:39 2004 +0000
+++ b/src/fileio.c	Mon Feb 02 20:51:18 2004 +0000
@@ -2407,7 +2407,7 @@
   CHECK_STRING (newname);
 
   if (!NILP (Ffile_directory_p (newname)))
-    newname = Fexpand_file_name (file, newname);
+    newname = Fexpand_file_name (Ffile_name_nondirectory (file), newname);
   else
     newname = Fexpand_file_name (newname, Qnil);