# HG changeset patch # User Richard M. Stallman # Date 743130688 0 # Node ID 45b07ea88511e69ddca061df649ac8d8bf131026 # Parent c720be6f3fae7942308e3bb83441f002f97ec25e (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. diff -r c720be6f3fae -r 45b07ea88511 lisp/dired.el --- a/lisp/dired.el Mon Jul 19 22:46:54 1993 +0000 +++ b/lisp/dired.el Tue Jul 20 01:11:28 1993 +0000 @@ -807,6 +807,8 @@ '("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 @@ '("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 @@ (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,