Mercurial > emacs
diff src/fileio.c @ 107037:6e7738cc419f
* fileio.c (Frename_file): Fix last change (Bug#5487).
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Thu, 28 Jan 2010 12:47:05 -0500 |
parents | 8b0707b50290 |
children | 56607edb3cea |
line wrap: on
line diff
--- a/src/fileio.c Thu Jan 28 12:33:28 2010 -0500 +++ b/src/fileio.c Thu Jan 28 12:47:05 2010 -0500 @@ -2289,7 +2289,7 @@ NILP (ok_if_already_exists) ? Qnil : Qt); else #endif - if (Ffile_directory_p (file)) + if (!NILP (Ffile_directory_p (file))) call4 (Qcopy_directory, file, newname, Qt, Qnil); else /* We have already prompted if it was an integer, so don't @@ -2300,7 +2300,7 @@ count = SPECPDL_INDEX (); specbind (Qdelete_by_moving_to_trash, Qnil); - if (Ffile_directory_p (file)) + if (!NILP (Ffile_directory_p (file))) call2 (Qdelete_directory, file, Qt); else Fdelete_file (file);