eros--make-result-overlay doesn't show overlay if called from callback

[abcdw]

(run-at-time
 1 nil
 (lambda ()
   (eros--make-result-overlay
       "hi"
     :format " => %s"
     :where (point)
     :duration 'command)))

I expect it to show overlay, but it doesn't (the overaly is probably instantly removed by pre-command-hook).

If I set :duration to 2 it works.

[abcdw]

The hacky solution:

(defun eros--remove-result-overlay-real ()
  "Remove result overlay from current buffer.

This function also removes itself from `pre-command-hook'."
  (remove-hook 'post-command-hook #'eros--remove-result-overlay-real 'local)
  (remove-overlays nil nil 'category 'result))

(defun eros--remove-result-overlay ()
  "Setup a callback to remove result overlay from current buffer."
  (remove-hook 'pre-command-hook #'eros--remove-result-overlay 'local)
  (add-hook 'post-command-hook #'eros--remove-result-overlay-real nil 'local))