[nongnu] elpa/helm 4c3abcd8ea 2/2: Prevent following while updating in helm-find-files

[ELPA Syncer]

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

    Prevent following while updating in helm-find-files
    
    This fix an issue when browsing images while thumbnails and follow are 
enabled.
---
 helm-core.el  | 7 +++++--
 helm-files.el | 4 ++++
 2 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/helm-core.el b/helm-core.el
index e506c95196..e9b982bcad 100644
--- a/helm-core.el
+++ b/helm-core.el
@@ -7733,8 +7733,11 @@ source or `helm-follow-input-idle-delay' or
                  helm-follow-input-idle-delay
                  (or (and helm-input-idle-delay
                           (max helm-input-idle-delay 0.01))
-                     0.01))))
-    (when (and (not helm--in-update) ; Wait end of update.
+                     0.01)))
+         (suspend (and helm--in-update
+                       ;; Specific to helm-find-files.
+                       (assoc-default 'suspend-follow-in-update src))))
+    (when (and (not suspend)
                (not (get-buffer-window helm-action-buffer 'visible))
                (not (helm-pos-header-line-p))
                (or (helm-follow-mode-p src)
diff --git a/helm-files.el b/helm-files.el
index a0a5b8ffb4..25bfe8d9d2 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -1045,6 +1045,10 @@ Should not be used among other sources.")
    (nohighlight :initform (progn helm-ff-nohighlight-matches))
    (keymap :initform 'helm-find-files-map)
    (candidate-number-limit :initform 'helm-ff-candidate-number-limit)
+   (suspend-follow-in-update
+    :initarg :suspend-follow-in-update
+    :initform t
+    :documentation "Prevent following candidate when updating.")
    (completing-file-name
     :initarg :completing-file-name :initform t
     :documentation "Flag to notify `helm-resume' we are completing filenames.")