waiting for asynchronous processes

[Perry Smith]

I was trying to write a keyboard macro that included using grep and the first hit that it found.  The problem was that I had to wait for the grep to finish.  I'm not sure why but (sit-for 1) didn't work.

I started looking for a built in way to wait for an asynchronous command to complete and discovered that I had written one long long time ago in a galaxy far far away.

(defun wait-for-async-process ( proc )

  "Wait for PROC to finish"

  (while (null (eq (process-status proc) 'exit))

    (accept-process-output)))

I went ahead and looked for something like it in the distribution but didn't see it.

I'm curious if I overlooked it.

pedz