[nongnu] elpa/helm dd80517f41: Fix multiline insertion on first candidate in async sources

[ELPA Syncer]

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

    Fix multiline insertion on first candidate in async sources
---
 helm-core.el | 42 +++++++++++++++++++++++-------------------
 1 file changed, 23 insertions(+), 19 deletions(-)

diff --git a/helm-core.el b/helm-core.el
index 3cd32930bf..182f3b2052 100644
--- a/helm-core.el
+++ b/helm-core.el
@@ -5554,25 +5554,29 @@ This will work only in Emacs-26+, i.e. Emacs versions 
that have
     (helm-output-filter--post-process)))
 
 (defun helm-output-filter--process-source (process output source limit)
-  (cl-dolist (candidate (helm-transform-candidates
-                         (split-string output
-                                       
helm-process-output-split-string-separator t)
-                         source t))
-    (let ((count 0)
-          (ml    (assq 'multiline source))
-          (start (point)))
-      (setq candidate
-            (helm--maybe-process-filter-one-by-one-candidate candidate source))
-      (and ml (helm-insert-candidate-separator))
-      (helm-insert-match candidate 'insert-before-markers
-                         (1+ count) source)
-      (and ml (put-text-property start (point) 'helm-multiline t))
-      (cl-incf count)
-      (when (>= count limit)
-        (helm-kill-async-process process)
-        (helm-log-run-hook "helm-output-filter--process-source"
-                           'helm-async-outer-limit-hook)
-        (cl-return)))))
+  (let (separate)
+    (cl-dolist (candidate (helm-transform-candidates
+                           (split-string output
+                                         
helm-process-output-split-string-separator t)
+                           source t))
+      (let ((count 0)
+            (ml    (assq 'multiline source))
+            (start (point)))
+        (setq candidate
+              (helm--maybe-process-filter-one-by-one-candidate candidate 
source))
+        (when ml
+          (if separate
+              (helm-insert-candidate-separator)
+            (setq separate t)))
+        (helm-insert-match candidate 'insert-before-markers
+                           (1+ count) source)
+        (and ml (put-text-property start (point) 'helm-multiline t))
+        (cl-incf count)
+        (when (>= count limit)
+          (helm-kill-async-process process)
+          (helm-log-run-hook "helm-output-filter--process-source"
+                             'helm-async-outer-limit-hook)
+          (cl-return))))))
 
 (defun helm-output-filter--post-process ()
   (helm-aif (get-buffer-window helm-buffer 'visible)