Customize compile command in Emacs

customize-compile.el

(define-key c++-mode-map [(f8)] 'my-make-compile-command)
(define-key c++-mode-map [(f9)] 'my-make-g-compile-command)

(defun my-make-compile-command ()
  (interactive)
  (set (make-local-variable 'compile-command)
       (concat "make -C " default-directory))
  ;; (setq current-prefix-arg '(4))        ;C-u
  (call-interactively 'compile))

(defun my-make-g-compile-command ()
  (interactive)
  (set (make-local-variable 'compile-command)
       (concat "make BUILD_TYPE=pure exec-g -C " default-directory))
  (call-interactively 'compile))