On Wed, 19 Feb 2003, Diez B. Roggisch wrote:
> Hi,
>
> Javier S. Lopez wrote:
> > The method jde-compile-finish-kill-buffer takes care of removing the
> > compilation window from the screen.
> > if you add this lines:
> > (run-at-time
> > "3 sec" nil 'kill-buffer
> > (get-buffer-create "*compilation*"))
> > to your jde-compile-finish-kill-buffer method after the lines:
> > (get-buffer-create "*compilation*)
>
> I created this function:
>
>
> (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))))
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
>
> However, its not working the way I wanted it to: it kills the buffer,
> but now the frame split persits :(
>
> Any suggestions?
>
> Regards,
>
> Diez
--
Klaus Berndl mailto: [EMAIL PROTECTED]
sd&m AG http://www.sdm.de
software design & management
Thomas-Dehler-Str. 27, 81737 München, Germany
Tel +49 89 63812-392, Fax -220
