Question

I currently bind compile to C-x c. I know I can run compile in comint mode by using C-u C-x c but I’d prefer to just bind it to C-x c directly. I can’t fathom how to do this without copying the whole of the compile function from compile.el, tweaking it and binding that. Is there a better way?

Edit: To clarify my sloppy language, I don’t wish to bind C-x c whilst in comint mode. I wish to cause C-x c to run ‘compile using comint mode. I currently have C-x bound to ‘compile. I can do what I want by typing C-u C-x c but I’d prefer to just be able to type C-x c to do that.

Answer 1

I think this works…

(defun c-w-c ()
  (interactive)
  (call-interactively 'compile t (vector 21 (this-command-keys-vector))))

(global-set-key (kbd "C-x c") 'c-w-c)

the ’21’ prepended into the vector is the ctrl-u prefix key, and it seems to fool the compile function into thinking it was called with C-u C-x c.

Edit:

It didn’t work, but this does:

(defun c-w-c ()
  (interactive)
  (setq current-prefix-arg '(4))
  (call-interactively 'compile))