Mercurial > emacs
changeset 97088:4656cbfe9954
(dired-mode-map): Rebind `dired-flag-garbage-files' from `&' to `%&'.
Bind `&' to `dired-do-async-shell-command'.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Tue, 29 Jul 2008 16:37:03 +0000 |
| parents | 535cfa18fb6d |
| children | ac911725e689 |
| files | lisp/dired.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/dired.el Tue Jul 29 16:36:42 2008 +0000 +++ b/lisp/dired.el Tue Jul 29 16:37:03 2008 +0000 @@ -1195,7 +1195,6 @@ (define-key map "#" 'dired-flag-auto-save-files) (define-key map "." 'dired-clean-directory) (define-key map "~" 'dired-flag-backup-files) - (define-key map "&" 'dired-flag-garbage-files) ;; Upper case keys (except !) for operating on the marked files (define-key map "A" 'dired-do-search) (define-key map "C" 'dired-do-copy) @@ -1214,6 +1213,7 @@ (define-key map "X" 'dired-do-shell-command) (define-key map "Z" 'dired-do-compress) (define-key map "!" 'dired-do-shell-command) + (define-key map "&" 'dired-do-async-shell-command) ;; Comparison commands (define-key map "=" 'dired-diff) (define-key map "\M-=" 'dired-backup-diff) @@ -1241,6 +1241,7 @@ (define-key map "%H" 'dired-do-hardlink-regexp) (define-key map "%R" 'dired-do-rename-regexp) (define-key map "%S" 'dired-do-symlink-regexp) + (define-key map "%&" 'dired-flag-garbage-files) ;; Commands for marking and unmarking. (define-key map "*" nil) (define-key map "**" 'dired-mark-executables)