compilation interaction

[Thien-Thi Nguyen]

sometimes a compilation starts non-interactively, but requires some
input at some point (e.g., confirmation in some sub-step) and blocks.
at this time, i do:

  (process-send-string "*compilation*" "y\n")

manually, but would like to add this to compile.el to fix this generally:

  (defun compilation-send-line (line)
    (interactive "sLine: ")
    (process-send-string (buffer-name) (concat line "\n")))

  (define-key compilation-mode-map ":" 'compilation-send-line)

any objections / tweaks?

thi