[emacs]Закрывать буфер компиляции

;;----------------------------------------------------------------------;
;;                           COMPILATION-MODE                           ;
;;----------------------------------------------------------------------;
(defun my-compilation-mode-hook()
  (setq compilation-finish-function
        '(lambda (buf status)
           (if (string-match "finished" status)
               (save-excursion
                 (delete-windows-on buf)
                 (kill-buffer buf)
                 (message "Compilation finished successfully.")))))
  )

(add-hook 'compilation-mode-hook 'my-compilation-mode-hook)