From b1ecd9c6d23aa6d90f6a66da42939eb0c02daf88 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 20 Jul 1993 01:11:28 +0000 Subject: [PATCH] (dired-unmark-all-files-no-query): New command. (dired-mode-map): Use that for the Unmark All item. Fix typo that made the Flag Backup Files item not show up. --- lisp/dired.el | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/lisp/dired.el b/lisp/dired.el index 971e5dbe234..9ae8ee86b42 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -807,6 +807,8 @@ If DIRNAME is already in a dired buffer, that buffer is used without refresh." '("Next Marked" . dired-next-marked-file)) (define-key dired-mode-map [menu-bar mark marks] '("Change Marks..." . dired-change-marks)) +(define-key dired-mode-map [menu-bar mark unmark-all] + '("Unmark All" . dired-unmark-all-files-no-query)) (define-key dired-mode-map [menu-bar mark symlinks] '("Mark Symlinks" . dired-mark-symlinks)) (define-key dired-mode-map [menu-bar mark directories] @@ -815,11 +817,9 @@ If DIRNAME is already in a dired buffer, that buffer is used without refresh." '("Mark Old Backups" . dired-clean-directory)) (define-key dired-mode-map [menu-bar mark executables] '("Mark Executables" . dired-mark-executables)) -(define-key dired-mode-map [menu-bar mark unmark-all] - '("Unmark All" . dired-unmark-all-files)) -(define-key dired-mode-map [menu-bar mark files] +(define-key dired-mode-map [menu-bar mark backup-files] '("Flag Backup Files" . dired-flag-backup-files)) -(define-key dired-mode-map [menu-bar mark files] +(define-key dired-mode-map [menu-bar mark auto-save-files] '("Flag Auto-save Files" . dired-flag-auto-save-files)) (define-key dired-mode-map [menu-bar mark deletion] '("Flag" . dired-flag-file-deletion)) @@ -1911,6 +1911,11 @@ OLD and NEW are both characters used to mark files." (subst-char-in-region (match-beginning 0) (match-end 0) old new)))))) +(defun dired-unmark-all-files-no-query () + "Remove all marks from all files in the Dired buffer." + (interactive) + (dired-unmark-all-files ?\r)) + (defun dired-unmark-all-files (mark &optional arg) "Remove a specific mark (or any mark) from every file. After this command, type the mark character to remove, -- 2.39.5