1 ; Fixup of compile so it doesn't ask unless you want it to.
4 (provide 'quicker-compile)
6 (defun quicker-compile (prompt-for-command)
7 "Runs compile. Will prompt for the compile command only if given
10 (if prompt-for-command
11 (setq compile-command (read-string "Compile command: " compile-command)))
12 (compile compile-command))