Re: Waiting for 'compile' to finish

[Stefan Monnier via Users list for the GNU Emacs text editor <help-gnu-emacs@gnu.org>]

> but I found even better solution in my .emacs using
> set-process-sentinel, something like this:
>
>   (set-process-sentinel
>    (get-buffer-process (get-buffer eepitch-buffer-name))
>    (lambda (_process event)
>      (when (equal "finished\n" event)
>        (run-with-idle-timer 1 nil after))))

In the more general case, the process might already have a sentinel set
so the above could have undesirable side effects.  But you can use
`add-function` to avoid the problem:

    (add-function
     :before
     (process-sentinel
      (get-buffer-process (get-buffer eepitch-buffer-name)))
     (lambda (_process event)
       (when (equal "finished\n" event)
         (run-with-idle-timer 1 nil after))))

Adding elements (IOW, "multiplexing" the sentinel) to a process sentinel
was actually the problem that spurred the development of `nadvice.el`.
🙂


        Stefan