From: Juri Linkov <juri@jurta.org>
Date: Tue, 29 Jul 2008 16:37:31 +0000 (+0000)
Subject: (dired-mode-map): Rebind `dired-flag-garbage-files' from `&' to `%&'.
X-Git-Tag: emacs-pretest-23.0.90~3818
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=48e740bfe455a962c1f667a3b3922cf7d1fff95c;p=emacs.git

(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 b3c7d59a49d..6231fcac187 100644
--- 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 311744eeca0..afa06d11edd 100644
--- 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)