comparison src/fileio.c @ 108723:0f1244b4539c

* fileio.c (Fdelete_file): Change interative spec to use `read-file-name' like in `find-file-read-args' where the default value is `default-directory' instead of `buffer-file-name'. http://lists.gnu.org/archive/html/emacs-devel/2010-05/msg00533.html

108722:0d6255a71f15

    report_file_error ("Removing directory", list1 (directory));

  return Qnil;
}

DEFUN ("delete-file", Fdelete_file, Sdelete_file, 1, 2, "fDelete file: \nP",
       doc: /* Delete file named FILENAME.  If it is a symlink, remove the symlink.
If file has multiple names, it continues to exist with the other names.

If optional arg FORCE is non-nil, really delete the file regardless of
`delete-by-moving-to-trash'.  Otherwise, \"deleting\" actually moves

108723:0f1244b4539c

    report_file_error ("Removing directory", list1 (directory));

  return Qnil;
}

DEFUN ("delete-file", Fdelete_file, Sdelete_file, 1, 2,
       "(list (read-file-name \"Delete file: \" nil default-directory \
                (confirm-nonexistent-file-or-buffer))                 \
              current-prefix-arg)",
       doc: /* Delete file named FILENAME.  If it is a symlink, remove the symlink.
If file has multiple names, it continues to exist with the other names.

If optional arg FORCE is non-nil, really delete the file regardless of
`delete-by-moving-to-trash'.  Otherwise, \"deleting\" actually moves