aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/dired.el13
1 files 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."
807 '("Next Marked" . dired-next-marked-file)) 807 '("Next Marked" . dired-next-marked-file))
808(define-key dired-mode-map [menu-bar mark marks] 808(define-key dired-mode-map [menu-bar mark marks]
809 '("Change Marks..." . dired-change-marks)) 809 '("Change Marks..." . dired-change-marks))
810(define-key dired-mode-map [menu-bar mark unmark-all]
811 '("Unmark All" . dired-unmark-all-files-no-query))
810(define-key dired-mode-map [menu-bar mark symlinks] 812(define-key dired-mode-map [menu-bar mark symlinks]
811 '("Mark Symlinks" . dired-mark-symlinks)) 813 '("Mark Symlinks" . dired-mark-symlinks))
812(define-key dired-mode-map [menu-bar mark directories] 814(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."
815 '("Mark Old Backups" . dired-clean-directory)) 817 '("Mark Old Backups" . dired-clean-directory))
816(define-key dired-mode-map [menu-bar mark executables] 818(define-key dired-mode-map [menu-bar mark executables]
817 '("Mark Executables" . dired-mark-executables)) 819 '("Mark Executables" . dired-mark-executables))
818(define-key dired-mode-map [menu-bar mark unmark-all] 820(define-key dired-mode-map [menu-bar mark backup-files]
819 '("Unmark All" . dired-unmark-all-files))
820(define-key dired-mode-map [menu-bar mark files]
821 '("Flag Backup Files" . dired-flag-backup-files)) 821 '("Flag Backup Files" . dired-flag-backup-files))
822(define-key dired-mode-map [menu-bar mark files] 822(define-key dired-mode-map [menu-bar mark auto-save-files]
823 '("Flag Auto-save Files" . dired-flag-auto-save-files)) 823 '("Flag Auto-save Files" . dired-flag-auto-save-files))
824(define-key dired-mode-map [menu-bar mark deletion] 824(define-key dired-mode-map [menu-bar mark deletion]
825 '("Flag" . dired-flag-file-deletion)) 825 '("Flag" . dired-flag-file-deletion))
@@ -1911,6 +1911,11 @@ OLD and NEW are both characters used to mark files."
1911 (subst-char-in-region (match-beginning 0) 1911 (subst-char-in-region (match-beginning 0)
1912 (match-end 0) old new)))))) 1912 (match-end 0) old new))))))
1913 1913
1914(defun dired-unmark-all-files-no-query ()
1915 "Remove all marks from all files in the Dired buffer."
1916 (interactive)
1917 (dired-unmark-all-files ?\r))
1918
1914(defun dired-unmark-all-files (mark &optional arg) 1919(defun dired-unmark-all-files (mark &optional arg)
1915 "Remove a specific mark (or any mark) from every file. 1920 "Remove a specific mark (or any mark) from every file.
1916After this command, type the mark character to remove, 1921After this command, type the mark character to remove,