el/dot-emacs.el: Add hack for running programs from Dired buffers.

Idea from Ian Jackson's dotfiles.

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index 59f47f2b8d50274001f150245eed4b9983e2c594..769686c0f261662f8f83b3b896a50b1e6ba21178 100644 (file)
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -768,6 +768,17 @@ (defadvice dired-maybe-insert-subdir
       (ad-set-arg 0 dir)
       ad-do-it)))
 
+(defun mdw-dired-run (args &optional syncp)
+  (interactive (let ((file (dired-get-filename t)))
+                (list (read-string (format "Arguments for %s: " file))
+                      current-prefix-arg)))
+  (funcall (if syncp 'shell-command 'async-shell-command)
+          (concat (shell-quote-argument (dired-get-filename nil))
+                  " " args)))
+
+(eval-after-load "dired"
+  '(define-key dired-mode-map "X" 'mdw-dired-run))
+
 ;;;--------------------------------------------------------------------------
 ;;; URL viewing.