* progmodes/compile.el (compile):

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b2809bf00902ec9fbe3f34e5071a6a851882ede4..fa1ce50aaa75904aea3c3915b99762d09b84ae84 100644 (file)
--- 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 86db755b2341a563cc6ee92d6e4a5ee760475cc1..be69da1d7f6be5cf308f7d5fd1e9b47bd3a30abb 100644 (file)
--- 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 e1bce497224af4b3541e5e73334a9a5ae00ae1aa..6cd5c657aefce4fcaa3b02ebcebdff407a40ba2e 100644 (file)
--- 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.")