diff options
| author | Chong Yidong | 2010-01-28 12:47:05 -0500 |
|---|---|---|
| committer | Chong Yidong | 2010-01-28 12:47:05 -0500 |
| commit | b242dbfc1b2d4dacad8d33fdd12b328a48afb8b6 (patch) | |
| tree | 3f528a5ca31d1ca0ce405aeadb8bd537520bebd3 /src | |
| parent | ca0eb7088c5df970df1528ecdaba3b146ef6de7c (diff) | |
| download | emacs-b242dbfc1b2d4dacad8d33fdd12b328a48afb8b6.tar.gz emacs-b242dbfc1b2d4dacad8d33fdd12b328a48afb8b6.zip | |
* fileio.c (Frename_file): Fix last change (Bug#5487).
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 2 | ||||
| -rw-r--r-- | src/fileio.c | 4 |
2 files changed, 4 insertions, 2 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 6c0bf66e08a..38368f33a70 100644 --- a/src/ChangeLog +++ b/src/ChangeLog | |||
| @@ -1,5 +1,7 @@ | |||
| 1 | 2010-01-28 Chong Yidong <cyd@stupidchicken.com> | 1 | 2010-01-28 Chong Yidong <cyd@stupidchicken.com> |
| 2 | 2 | ||
| 3 | * fileio.c (Frename_file): Fix last change (Bug#5487). | ||
| 4 | |||
| 3 | * m/mips.h: Remove DATA_START. Suggested by Dan Nicolaescu. | 5 | * m/mips.h: Remove DATA_START. Suggested by Dan Nicolaescu. |
| 4 | 6 | ||
| 5 | * m/alpha.h: Don't define DATA_START on NetBSD (Bug#4629). | 7 | * m/alpha.h: Don't define DATA_START on NetBSD (Bug#4629). |
diff --git a/src/fileio.c b/src/fileio.c index 36eaf7db533..72f695acb68 100644 --- a/src/fileio.c +++ b/src/fileio.c | |||
| @@ -2289,7 +2289,7 @@ This is what happens in interactive use with M-x. */) | |||
| 2289 | NILP (ok_if_already_exists) ? Qnil : Qt); | 2289 | NILP (ok_if_already_exists) ? Qnil : Qt); |
| 2290 | else | 2290 | else |
| 2291 | #endif | 2291 | #endif |
| 2292 | if (Ffile_directory_p (file)) | 2292 | if (!NILP (Ffile_directory_p (file))) |
| 2293 | call4 (Qcopy_directory, file, newname, Qt, Qnil); | 2293 | call4 (Qcopy_directory, file, newname, Qt, Qnil); |
| 2294 | else | 2294 | else |
| 2295 | /* We have already prompted if it was an integer, so don't | 2295 | /* We have already prompted if it was an integer, so don't |
| @@ -2300,7 +2300,7 @@ This is what happens in interactive use with M-x. */) | |||
| 2300 | 2300 | ||
| 2301 | count = SPECPDL_INDEX (); | 2301 | count = SPECPDL_INDEX (); |
| 2302 | specbind (Qdelete_by_moving_to_trash, Qnil); | 2302 | specbind (Qdelete_by_moving_to_trash, Qnil); |
| 2303 | if (Ffile_directory_p (file)) | 2303 | if (!NILP (Ffile_directory_p (file))) |
| 2304 | call2 (Qdelete_directory, file, Qt); | 2304 | call2 (Qdelete_directory, file, Qt); |
| 2305 | else | 2305 | else |
| 2306 | Fdelete_file (file); | 2306 | Fdelete_file (file); |