>I created this function: I think it has to be:
(defun jde-compile-finish-kill-buffer (buf msg) "Removes the jde-compile window after a few seconds if no errors." (save-excursion (set-buffer buf) (if (null (or (string-match ".*exited abnormally.*" msg) (string-match ".*BUILD FAILED.*" (buffer-string)))) ;;no errors, make the compilation window go away in a few seconds (progn (run-at-time "2 sec" nil 'delete-windows-on (get-buffer-create "*compilation*")) (run-at-time "2 sec" nil 'kill-buffer (get-buffer-create "*compilation*")) (message "No compilation errors")) ;;there were errors, so jump to the first error (next-error)))) Klaus