Mercurial > emacs
comparison src/fileio.c @ 53780:6c059bf40adc
(Fcopy_file): If NEWNAME is a directory, expand the
basename of FILE relative to it, not FILE itself.
| author | Eli Zaretskii <eliz@is.elta.co.il> |
|---|---|
| date | Mon, 02 Feb 2004 20:51:18 +0000 |
| parents | 0505a2aecd0a |
| children | 4ef1f446e4d9 |
comparison
equal
deleted
inserted
replaced
| 53779:5b728a418323 | 53780:6c059bf40adc |
|---|---|
| 2405 GCPRO4 (file, newname, encoded_file, encoded_newname); | 2405 GCPRO4 (file, newname, encoded_file, encoded_newname); |
| 2406 CHECK_STRING (file); | 2406 CHECK_STRING (file); |
| 2407 CHECK_STRING (newname); | 2407 CHECK_STRING (newname); |
| 2408 | 2408 |
| 2409 if (!NILP (Ffile_directory_p (newname))) | 2409 if (!NILP (Ffile_directory_p (newname))) |
| 2410 newname = Fexpand_file_name (file, newname); | 2410 newname = Fexpand_file_name (Ffile_name_nondirectory (file), newname); |
| 2411 else | 2411 else |
| 2412 newname = Fexpand_file_name (newname, Qnil); | 2412 newname = Fexpand_file_name (newname, Qnil); |
| 2413 | 2413 |
| 2414 file = Fexpand_file_name (file, Qnil); | 2414 file = Fexpand_file_name (file, Qnil); |
| 2415 | 2415 |