785 |
to a function that generates a unique name." |
to a function that generates a unique name." |
786 |
(interactive |
(interactive |
787 |
(list |
(list |
788 |
(if (or compilation-read-command current-prefix-arg) |
(let ((command (eval compile-command))) |
789 |
(read-from-minibuffer "Compile command: " |
(if (or compilation-read-command current-prefix-arg) |
790 |
(eval compile-command) nil nil |
(read-from-minibuffer "Compile command: " |
791 |
'(compile-history . 1)) |
command nil nil |
792 |
(eval compile-command)) |
(if (equal (car compile-history) command) |
793 |
|
'(compile-history . 1) |
794 |
|
'compile-history)) |
795 |
|
command)) |
796 |
(consp current-prefix-arg))) |
(consp current-prefix-arg))) |
797 |
(unless (equal command (eval compile-command)) |
(unless (equal command (eval compile-command)) |
798 |
(setq compile-command command)) |
(setq compile-command command)) |