diff lisp/progmodes/grep.el @ 93114:57fa8ebfd227

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

--- a/lisp/progmodes/grep.el	Thu Mar 20 19:52:30 2008 +0000
+++ b/lisp/progmodes/grep.el	Thu Mar 20 19:56:58 2008 +0000
@@ -644,11 +644,10 @@
    (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 @@
    (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.")