# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1217349423 0
# Node ID 4656cbfe9954ebd488d42c57f333446efbfc329b
# Parent  535cfa18fb6d8de2a694f1df0c89439992cda51e
(dired-mode-map): Rebind `dired-flag-garbage-files' from `&' to `%&'.
Bind `&' to `dired-do-async-shell-command'.

diff -r 535cfa18fb6d -r 4656cbfe9954 lisp/dired.el
--- 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)