Re: Waiting on compilation to finish before executing another function

[Rami A]

Ok. I fixed it:

(setq compilevar "Bad")  
(defun compile-hgpull ()
  (interactive)
  (save-all-buffers)
  (setq compilevar "Good")
  (compile-pkg "hg pull -u"))

(defun notify-compilation-result ()
  (if (string-match "Good" compilevar)
    (progn (setq compilevar "Bad")
     (revert-all-buffers))))
(add-to-list 'compilation-finish-functions
             'notify-compilation-result)