[nongnu] elpa/helm b0f34edb53 2/3: Sit-for at end of revert-buffer functions when executing-kbd-macro

[ELPA Syncer]

branch: elpa/helm
commit b0f34edb531a4600ddc8c4b79e79568b31013c66
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Sit-for at end of revert-buffer functions when executing-kbd-macro
---
 helm-grep.el  | 3 ++-
 helm-occur.el | 3 ++-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/helm-grep.el b/helm-grep.el
index 29fc526409..791d0498ff 100644
--- a/helm-grep.el
+++ b/helm-grep.el
@@ -1041,7 +1041,8 @@ Special commands:
             (linum (line-number-at-pos)))
         (with-current-buffer (next-error-find-buffer)
           (helm-grep-goto-closest-from-linum linum bufname))))
-    (message "Reverting buffer done")))
+    (message "Reverting buffer done")
+    (when executing-kbd-macro (sit-for 1))))
 
 (defun helm-grep-goto-closest-from-linum (linum bufname)
   (goto-char (point-min))
diff --git a/helm-occur.el b/helm-occur.el
index 1ead0ec5ec..3c921dafc6 100644
--- a/helm-occur.el
+++ b/helm-occur.el
@@ -653,7 +653,8 @@ numbered.  The property \\='buffer-name is added to the 
whole string."
                            "\n"))))
           (when (fboundp 'wgrep-cleanup-overlays)
             (wgrep-cleanup-overlays (point-min) (point-max)))
-          (message "Reverting buffer done"))))))
+          (message "Reverting buffer done")
+          (when executing-kbd-macro (sit-for 1)))))))
 
 (defun helm-occur-filter-one-by-one (candidate)
   "`filter-one-by-one' function for `helm-source-moccur'."