15 lines
647 B
EmacsLisp
15 lines
647 B
EmacsLisp
|
(if (not (intern-soft "cc-mode"))
|
||
|
|
(require 'cc-mode))
|
||
|
|
|
||
|
|
(global-set-key [(f9)] 'compile) ; make F9 call the compilation command
|
||
|
|
(setq compilation-window-height 8) ; make the compilation window smaller
|
||
|
|
|
||
|
|
;; Make compilation window disappear on succesful build
|
||
|
|
(setq compilation-finish-function
|
||
|
|
(lambda (buf str)
|
||
|
|
(if (string-match "exited abnormally" str)
|
||
|
|
;; there were errors
|
||
|
|
(message "compilation errors, press C-x ` to visit")
|
||
|
|
;; no errors, make the compilation window go away in 0.5 seconds
|
||
|
|
(run-at-time 0.5 nil 'delete-windows-on buf)
|
||
|
|
(message "NO COMPILATION ERRORS!"))))
|