cc-modeでmakeを呼び出す

コマンドってなかったっけ。いちいちC-x & makeって打つの面倒だし。

(add-hook '*c++-mode-hook* 'cc-init)
(define-key ed::*c++-mode-map* '(#\C-c #\C-c) 'c-call-make)
(define-key ed::*c++-mode-map* '(#\C-c #\C-m) 'c-call-make-bind)

(defun cc-init ()
  (make-local-variable 'make-command)
  (setq make-command "make"))

(defun c-call-make ()
  (interactive)
  (save-buffer)
  (execute-subprocess make-command))

(defun c-call-make-bind (cmd)
  (interactive "scmd: " :default0 make-command)
  (save-buffer)
  (setq make-command cmd)
  (execute-subprocess cmd))