comparison src/fileio.c @ 108818:6515310887ec

* fileio.c (Fdelete_file): Pass TRASH arg to handler call.

108817:a90103f99eea

A prefix arg makes KEEP-TIME non-nil.

If PRESERVE-UID-GID is non-nil, we try to transfer the
uid and gid of FILE to NEWNAME.

If PRESERVE-SELINUX-CONTEXT is non-nil and SELinux is enabled 
on the system, we copy the SELinux context of FILE to NEWNAME.  */)
     (file, newname, ok_if_already_exists, keep_time, preserve_uid_gid, preserve_selinux_context)
     Lisp_Object file, newname, ok_if_already_exists, keep_time;
     Lisp_Object preserve_uid_gid, preserve_selinux_context;
{

  UNGCPRO;
  filename = Fexpand_file_name (filename, Qnil);

  handler = Ffind_file_name_handler (filename, Qdelete_file);
  if (!NILP (handler))
    return call2 (handler, Qdelete_file, filename);

  if (delete_by_moving_to_trash && !NILP (trash))
    return call1 (Qmove_file_to_trash, filename);

  encoded_file = ENCODE_FILE (filename);

108818:6515310887ec

A prefix arg makes KEEP-TIME non-nil.

If PRESERVE-UID-GID is non-nil, we try to transfer the
uid and gid of FILE to NEWNAME.

If PRESERVE-SELINUX-CONTEXT is non-nil and SELinux is enabled
on the system, we copy the SELinux context of FILE to NEWNAME.  */)
     (file, newname, ok_if_already_exists, keep_time, preserve_uid_gid, preserve_selinux_context)
     Lisp_Object file, newname, ok_if_already_exists, keep_time;
     Lisp_Object preserve_uid_gid, preserve_selinux_context;
{

  UNGCPRO;
  filename = Fexpand_file_name (filename, Qnil);

  handler = Ffind_file_name_handler (filename, Qdelete_file);
  if (!NILP (handler))
    return call3 (handler, Qdelete_file, filename, trash);

  if (delete_by_moving_to_trash && !NILP (trash))
    return call1 (Qmove_file_to_trash, filename);

  encoded_file = ENCODE_FILE (filename);