* progmodes/compile.el (compile):

* progmodes/grep.el (grep, grep-find): Use read-shell-command.

3 files changed, 19 insertions, 13 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b2809bf0090..fa1ce50aaa7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2008-03-20  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * progmodes/compile.el (compile):
+        * progmodes/grep.el (grep, grep-find): Use read-shell-command.
+
+        * simple.el     (minibuffer-local-shell-command-map): New var.
+        (minibuffer-complete-shell-command, read-shell-command): New funs.
+        (shell-command, shell-command-on-region): Use them.
+
 2008-03-20  Dan Nicolaescu  <dann@ics.uci.edu>
 
         * vc.el (vc-status-mark-buffer-changed): New function to implement
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 86db755b234..be69da1d7f6 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -1031,11 +1031,10 @@ to a function that generates a unique name."
    (list
     (let ((command (eval compile-command)))
       (if (or compilation-read-command current-prefix-arg)
-          (read-from-minibuffer "Compile command: "
-                                command nil nil
-                                (if (equal (car compile-history) command)
-                                    '(compile-history . 1)
-                                  'compile-history))
+          (read-shell-command "Compile command: " command
+                              (if (equal (car compile-history) command)
+                                  '(compile-history . 1)
+                                'compile-history))
         command))
     (consp current-prefix-arg)))
   (unless (equal command (eval compile-command))
diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el
index e1bce497224..6cd5c657aef 100644
--- a/lisp/progmodes/grep.el
+++ b/lisp/progmodes/grep.el
@@ -644,11 +644,10 @@ list is empty)."
    (progn
      (grep-compute-defaults)
      (let ((default (grep-default-command)))
-       (list (read-from-minibuffer "Run grep (like this): "
-                                   (if current-prefix-arg
-                                       default grep-command)
-                                   nil nil 'grep-history
-                                   (if current-prefix-arg nil default))))))
+       (list (read-shell-command "Run grep (like this): "
+                                 (if current-prefix-arg default grep-command)
+                                 'grep-history
+                                 (if current-prefix-arg nil default))))))
 
   ;; Setting process-setup-function makes exit-message-function work
   ;; even when async processes aren't supported.
@@ -671,9 +670,8 @@ easily repeat a find command."
    (progn
      (grep-compute-defaults)
      (if grep-find-command
-         (list (read-from-minibuffer "Run find (like this): "
-                                     grep-find-command nil nil
-                                     'grep-find-history))
+         (list (read-shell-command "Run find (like this): "
+                                   grep-find-command 'grep-find-history))
        ;; No default was set
        (read-string
         "compile.el: No `grep-find-command' command available. Press RET.")