Re: how to call compile command

[David Hansen]

On Tue, 5 Aug 2008 05:59:48 -0700 (PDT) <dejfson@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