陷入人类输出

Question

我想挂钩man输出（来自man.el），但命令是异步运行的。有谁知道如何设置man命令的进程标记，或者挂钩函数的替代方法？

例如，如何在sit-for完成处理时使用回调替换以下代码段中的man？

(defun get-some-help (cmd &optional num)
  (let ((buf (man (concat (number-to-string (or num 3)) " " cmd))))
    (sit-for 0.1)                       ;how to replace this?
    (unless (buffer-live-p buf)
      (message "Do something else instead"))))

(get-some-help "wait4")