|
|
This works great. Thanks a lot
d.
On Aug 6, 7:41 am, David Hansen <david.han...@xxxxxxx> wrote:
> On Tue, 5 Aug 2008 05:59:48 -0700 (PDT) <dejf...@xxxxxxxxx> wrote:
>
> > Thanks David for you reply, however this is exactly what I do by
> > setting up the hook:
>
> (defun dh-compile ()
> (interactive)
> (let ((finished nil))
> (flet ((set-finished (buf, str) (setq finished t)))
> (let ((compilation-finish-functions
> (cons #'set-finished compilation-finish-functions)))
> (compile "make -k")
> (while (not finished)
> (sit-for .42))
> (message "Hooray!")))))
>
> But this looks fishy and ugly.
>
> David
|
|