Mercurial > emacs
diff lisp/cus-start.el @ 96489:b76b9628d74f
Changes from Toru Tsuneyoshi for using Trash can when deleting files.
* files.el (backup-extract-version): Handle versioned directories.
(trash-directory): New variable.
(move-file-to-trash): New function.
* cus-start.el (delete-by-moving-to-trash): Declare for custom.
* lisp.h (Qdelete_file, Qdelete_directory): Declare extern.
* fileio.c (delete_by_moving_to_trash, Qmove_file_to_trash): New vars.
(syms_of_fileio): Initialize and export them.
(Fdelete_directory, Fdelete_file): Optionally delete via trash.
* w32fns.c (FOF_NO_CONNECTED_ELEMENTS): Define if not already.
(Fsystem_move_file_to_trash): New function.
(syms_of_w32fns): Export it to lisp.
author | Jason Rumney <jasonr@gnu.org> |
---|---|
date | Wed, 02 Jul 2008 13:19:07 +0000 |
parents | b877913c0692 |
children | 9592c50233ab |
line wrap: on
line diff
--- a/lisp/cus-start.el Wed Jul 02 13:17:41 2008 +0000 +++ b/lisp/cus-start.el Wed Jul 02 13:19:07 2008 +0000 @@ -164,6 +164,8 @@ :value (nil) (symbol :format "%v")) (const :tag "always" t))) + ;; fileio.c + (delete-by-moving-to-trash auto-save boolean "23.1") ;; fns.c (use-dialog-box menu boolean "21.1") (use-file-dialog menu boolean "22.1")