From 935683608dc3e9ab0d607fb5cdf0eca3d50b280d Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Mon, 24 Aug 2020 02:17:52 +0200 Subject: [PATCH] Add "Delete" submenu to Dired "Mark" menu * lisp/dired.el (dired-mode-map): Add "Delete" submenu. (Bug#41524) --- lisp/dired.el | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/lisp/dired.el b/lisp/dired.el index aad44a6d69..7d70f4288e 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -2065,6 +2065,16 @@ dired-mode-map :help "Replace marker with another character")) (define-key map [menu-bar mark unmark-all] '(menu-item "Unmark All" dired-unmark-all-marks)) + (define-key map [menu-bar mark delete] + `(menu-item "Delete" + ,(let ((menu (make-sparse-keymap "Delete"))) + (define-key menu [delete-flagged] + '(menu-item "Delete Flagged Files" dired-do-flagged-delete + :help "Delete all files flagged for deletion (D)")) + (define-key menu [delete-marked] + '(menu-item "Delete Marked (Not Flagged) Files" dired-do-delete + :help "Delete current file or all marked files (not flagged files)")) + menu))) (define-key map [menu-bar mark symlinks] '(menu-item "Mark Symlinks" dired-mark-symlinks :visible (fboundp 'make-symbolic-link) -- 2.28.0