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

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

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