Re: How do I wait, or sit-for, until a hook is run?

[Emanuel Berg]

(defun add-one-shot-hook (hook fun)
  (let ((name (cl-gensym)))
    (setf (symbol-function name)
      (lambda (&rest _)
        (remove-hook hook name)
        (funcall fun) ))
    (add-hook hook name) ))

By Pascal Bourguignon.

-- 
underground experts united
https://dataswamp.org/~incal