907 |
(define-key map "*\177" 'dired-unmark-backward) |
(define-key map "*\177" 'dired-unmark-backward) |
908 |
(define-key map "*\C-n" 'dired-next-marked-file) |
(define-key map "*\C-n" 'dired-next-marked-file) |
909 |
(define-key map "*\C-p" 'dired-prev-marked-file) |
(define-key map "*\C-p" 'dired-prev-marked-file) |
910 |
(define-key map "*t" 'dired-do-toggle) |
(define-key map "*t" 'dired-toggle-marks) |
911 |
;; Lower keys for commands not operating on all the marked files |
;; Lower keys for commands not operating on all the marked files |
912 |
(define-key map "a" 'dired-find-alternate-file) |
(define-key map "a" 'dired-find-alternate-file) |
913 |
(define-key map "d" 'dired-flag-file-deletion) |
(define-key map "d" 'dired-flag-file-deletion) |
926 |
(define-key map "p" 'dired-previous-line) |
(define-key map "p" 'dired-previous-line) |
927 |
(define-key map "q" 'quit-window) |
(define-key map "q" 'quit-window) |
928 |
(define-key map "s" 'dired-sort-toggle-or-edit) |
(define-key map "s" 'dired-sort-toggle-or-edit) |
929 |
(define-key map "t" 'dired-do-toggle) |
(define-key map "t" 'dired-toggle-marks) |
930 |
(define-key map "u" 'dired-unmark) |
(define-key map "u" 'dired-unmark) |
931 |
(define-key map "v" 'dired-view-file) |
(define-key map "v" 'dired-view-file) |
932 |
(define-key map "w" 'dired-copy-filename-as-kill) |
(define-key map "w" 'dired-copy-filename-as-kill) |
1107 |
'(menu-item "Mark" dired-mark |
'(menu-item "Mark" dired-mark |
1108 |
:help "Mark current line's file for future operations")) |
:help "Mark current line's file for future operations")) |
1109 |
(define-key map [menu-bar mark toggle-marks] |
(define-key map [menu-bar mark toggle-marks] |
1110 |
'(menu-item "Toggle Marks" dired-do-toggle |
'(menu-item "Toggle Marks" dired-toggle-marks |
1111 |
:help "Mark unmarked files, unmark marked ones")) |
:help "Mark unmarked files, unmark marked ones")) |
1112 |
|
|
1113 |
(define-key map [menu-bar operate] |
(define-key map [menu-bar operate] |
2359 |
(interactive "p") |
(interactive "p") |
2360 |
(dired-unmark (- arg))) |
(dired-unmark (- arg))) |
2361 |
|
|
2362 |
(defun dired-do-toggle () |
(defun dired-toggle-marks () |
2363 |
"Toggle marks. |
"Toggle marks: marked files become unmarked, and vice versa. |
|
That is, currently marked files become unmarked and vice versa. |
|
2364 |
Files marked with other flags (such as `D') are not affected. |
Files marked with other flags (such as `D') are not affected. |
2365 |
`.' and `..' are never toggled. |
`.' and `..' are never toggled. |
2366 |
As always, hidden subdirs are not affected." |
As always, hidden subdirs are not affected." |