from-cvs/files/emacs_quicker-compile.el

   1 ; Fixup of compile so it doesn't ask unless you want it to.
   2
   3 (require 'compile)
   4 (provide 'quicker-compile)
   5
   6 (defun quicker-compile (prompt-for-command)
   7   "Runs compile. Will prompt for the compile command only if given
   8 a prefix argument."
   9   (interactive "P")
  10   (if prompt-for-command
  11       (setq compile-command (read-string "Compile command: " compile-command)))
  12   (compile compile-command))