Mercurial > emacs
comparison lisp/progmodes/compile.el @ 93114:57fa8ebfd227
* progmodes/compile.el (compile):
* progmodes/grep.el (grep, grep-find): Use read-shell-command.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 20 Mar 2008 19:56:58 +0000 |
| parents | 402ee2cfca27 |
| children | 6598459f3056 |
comparison
equal
deleted
inserted
replaced
| 93113:c0af5c9f100b | 93114:57fa8ebfd227 |
|---|---|
| 1029 to a function that generates a unique name." | 1029 to a function that generates a unique name." |
| 1030 (interactive | 1030 (interactive |
| 1031 (list | 1031 (list |
| 1032 (let ((command (eval compile-command))) | 1032 (let ((command (eval compile-command))) |
| 1033 (if (or compilation-read-command current-prefix-arg) | 1033 (if (or compilation-read-command current-prefix-arg) |
| 1034 (read-from-minibuffer "Compile command: " | 1034 (read-shell-command "Compile command: " command |
| 1035 command nil nil | 1035 (if (equal (car compile-history) command) |
| 1036 (if (equal (car compile-history) command) | 1036 '(compile-history . 1) |
| 1037 '(compile-history . 1) | 1037 'compile-history)) |
| 1038 'compile-history)) | |
| 1039 command)) | 1038 command)) |
| 1040 (consp current-prefix-arg))) | 1039 (consp current-prefix-arg))) |
| 1041 (unless (equal command (eval compile-command)) | 1040 (unless (equal command (eval compile-command)) |
| 1042 (setq compile-command command)) | 1041 (setq compile-command command)) |
| 1043 (save-some-buffers (not compilation-ask-about-save) nil) | 1042 (save-some-buffers (not compilation-ask-about-save) nil) |