(defun compile-utf8 (arg) (interactive "p") (let ((coding-system-for-read 'utf-8-unix)) (call-interactively 'compile))) (global-set-key [f9] 'compile-utf8)