`recompile' lacks comint option

[Lluís]

After getting `compile' to properly work with the comint option from a function
of my own, I realized that `recompile' lacks such support.

My target is to make this always use the "comint" feature, so that
compiling/recompiling will be able to handle sudo prompts:

#v+
(defun my-dwim-compile (arg)
  "DWIM compilation.
If compilation is running, use `kill-compilation'.
Otherwise, use `recompile'.

If ARG is not nil, force a call to `compile'."
  (interactive "P")
  (if arg
      (call-interactively 'compile nil (vector (list 4)))
    (condition-case nil
        (call-interactively 'kill-compilation)
      (error (call-interactively 'recompile))))
  nil)
#v-


Thanks,
  Lluis

-- 
 "And it's much the same thing with knowledge, for whenever you learn
 something new, the whole world becomes that much richer."
 -- The Princess of Pure Reason, as told by Norton Juster in The Phantom
 Tollbooth