diff options
| -rw-r--r-- | lisp/dired.el | 13 |
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. |
| 1916 | After this command, type the mark character to remove, | 1921 | After this command, type the mark character to remove, |