]> git.eshelyaron.com Git - emacs.git/commitdiff
Merge remote-tracking branch 'origin/master' into feature/android
authorPo Lu <luangruo@yahoo.com>
Sun, 6 Aug 2023 13:45:44 +0000 (21:45 +0800)
committerPo Lu <luangruo@yahoo.com>
Sun, 6 Aug 2023 13:45:44 +0000 (21:45 +0800)
1  2 
doc/lispref/frames.texi
etc/NEWS
lisp/faces.el
lisp/files.el
src/fileio.c

Simple merge
diff --cc etc/NEWS
Simple merge
diff --cc lisp/faces.el
Simple merge
diff --cc lisp/files.el
Simple merge
diff --cc src/fileio.c
index b37748b82250a92be3676b28d8343478bfd8f52c,e49a4a3836bacae7d2895de42316e3f43e9db9d6..b815a1bdd793d595401a000b331c0141f6c2e3bf
@@@ -2565,42 -2462,16 +2565,17 @@@ DEFUN ("delete-directory-internal", Fde
    return Qnil;
  }
  
- DEFUN ("delete-file", Fdelete_file, Sdelete_file, 1, 2,
-        "(list (read-file-name \
-                 (if (and delete-by-moving-to-trash (null current-prefix-arg)) \
-                     \"Move file to trash: \" \"Delete file: \") \
-                 nil default-directory (confirm-nonexistent-file-or-buffer)) \
-               (null current-prefix-arg))",
+ DEFUN ("delete-file-internal", Fdelete_file_internal, Sdelete_file_internal, 1, 1, 0,
         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.
- TRASH non-nil means to trash the file instead of deleting, provided
- `delete-by-moving-to-trash' is non-nil.
- When called interactively, TRASH is t if no prefix argument is given.
- With a prefix argument, TRASH is nil.  */)
-   (Lisp_Object filename, Lisp_Object trash)
+ If file has multiple names, it continues to exist with the other names. */)
+   (Lisp_Object filename)
  {
-   Lisp_Object handler;
    Lisp_Object encoded_file;
  
-   if (!NILP (Ffile_directory_p (filename))
-       && NILP (Ffile_symlink_p (filename)))
-     xsignal2 (Qfile_error,
-             build_string ("Removing old name: is a directory"),
-             filename);
-   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);
  
 -  if (unlink (SSDATA (encoded_file)) != 0 && errno != ENOENT)
 +  if (emacs_unlink (SSDATA (encoded_file)) != 0
 +      && errno != ENOENT)
      report_file_error ("Removing old name", filename);
    return Qnil;
  }