Check existence of helm-buffer (#2056)

This fixes an old error rarely reproductible:
error: "No buffer named *helm*"

* helm.el (helm-funcall-foreach): Do it.

1 files changed, 9 insertions, 5 deletions

diff --git a/helm.el b/helm.el
index 16430d19..61e4b846 100644
--- a/helm.el
+++ b/helm.el
@@ -2027,11 +2027,15 @@ Return the result of last function call."
 (defun helm-funcall-foreach (sym &optional sources)
   "Call the associated function(s) to SYM for each source if any."
   (let ((sources (or (helm-get-sources sources)
-                     ;; `helm-sources' are local to helm-buffer.
-                     (with-helm-buffer helm-sources))))
-    (cl-dolist (source sources)
-      (helm-aif (assoc-default sym source)
-          (helm-funcall-with-source source it)))))
+                     ;; Fix error no buffer named *helm... by checking
+                     ;; if helm-buffer exists.
+                     (and (buffer-live-p (get-buffer (helm-buffer-get)))
+                          ;; `helm-sources' are local to helm-buffer.
+                          (with-helm-buffer helm-sources)))))
+    (when sources
+      (cl-dolist (source sources)
+        (helm-aif (assoc-default sym source)
+            (helm-funcall-with-source source it))))))
 
 (defun helm-normalize-sources (sources)
   "If SOURCES is only one source, make a list of one element."