2730 |
internal_delete_file (filename) |
internal_delete_file (filename) |
2731 |
Lisp_Object filename; |
Lisp_Object filename; |
2732 |
{ |
{ |
2733 |
return NILP (internal_condition_case_1 (Fdelete_file, filename, |
Lisp_Object tem; |
2734 |
Qt, internal_delete_file_1)); |
tem = internal_condition_case_1 (Fdelete_file, filename, |
2735 |
|
Qt, internal_delete_file_1); |
2736 |
|
return NILP (tem); |
2737 |
} |
} |
2738 |
|
|
2739 |
DEFUN ("rename-file", Frename_file, Srename_file, 2, 3, |
DEFUN ("rename-file", Frename_file, Srename_file, 2, 3, |
6236 |
#endif |
#endif |
6237 |
{ |
{ |
6238 |
/* Must do it the hard (and slow) way. */ |
/* Must do it the hard (and slow) way. */ |
6239 |
|
Lisp_Object tem; |
6240 |
GCPRO3 (all, comp, specdir); |
GCPRO3 (all, comp, specdir); |
6241 |
count = SPECPDL_INDEX (); |
count = SPECPDL_INDEX (); |
6242 |
record_unwind_protect (read_file_name_cleanup, current_buffer->directory); |
record_unwind_protect (read_file_name_cleanup, current_buffer->directory); |
6243 |
current_buffer->directory = realdir; |
current_buffer->directory = realdir; |
6244 |
for (comp = Qnil; CONSP (all); all = XCDR (all)) |
for (comp = Qnil; CONSP (all); all = XCDR (all)) |
6245 |
if (!NILP (call1 (Vread_file_name_predicate, XCAR (all)))) |
{ |
6246 |
comp = Fcons (XCAR (all), comp); |
tem = call1 (Vread_file_name_predicate, XCAR (all)); |
6247 |
|
if (!NILP (tem)) |
6248 |
|
comp = Fcons (XCAR (all), comp); |
6249 |
|
} |
6250 |
unbind_to (count, Qnil); |
unbind_to (count, Qnil); |
6251 |
UNGCPRO; |
UNGCPRO; |
6252 |
} |
} |