(dired-mode-map): Rebind `dired-flag-garbage-files' from `&' to `%&'.

Bind `&' to `dired-do-async-shell-command'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b3c7d59..6231fca 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2008-07-29  Juri Linkov  <juri@jurta.org>
+
+       * dired-aux.el (dired-do-async-shell-command): New command.
+
+       * dired.el (dired-mode-map): Rebind `dired-flag-garbage-files'
+       from `&' to `%&'.  Bind `&' to `dired-do-async-shell-command'.
+
 2008-07-29  Juri Linkov  <juri@jurta.org>
 
        * international/mule-cmds.el (ucs-names): New internal variable.

diff --git a/lisp/dired.el b/lisp/dired.el
index 311744e..afa06d1 100644 (file)
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -1195,7 +1195,6 @@ Do so according to the former subdir alist OLD-SUBDIR-ALIST."
     (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 @@ Do so according to the former subdir alist OLD-SUBDIR-ALIST."
     (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 @@ Do so according to the former subdir alist OLD-SUBDIR-ALIST."
     (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)