[nongnu] elpa/helm 2054de9d62 1/3: Simplify helm-basic-docstring-from-alist

[ELPA Syncer]

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

    Simplify helm-basic-docstring-from-alist
---
 helm-core.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/helm-core.el b/helm-core.el
index 754a132675..d387196893 100644
--- a/helm-core.el
+++ b/helm-core.el
@@ -212,12 +212,12 @@ and vectors, so don't use strings to define them."
 
 (defun helm-basic-docstring-from-alist (alist)
   (let ((osk (cl-loop for (k . v) in alist
-                      concat (format ",`%s'"
-                                     (if (numberp k) (char-to-string k) k))
-                      into ks
-                      concat (format ",`%s'" v) into kv
-                      finally return (list (substring ks 1)
-                                           (substring kv 1)))))
+                      for count from 1
+                      for sep = (if (> count 1) "," "")
+                      for key = (if (numberp k) (char-to-string k) k)
+                      concat (format "%s`%s'" sep key) into ks
+                      concat (format "%s`%s'" sep v) into kv
+                      finally return (list ks kv))))
     (format "\nBound as well %s to respectively %s."
             (car osk) (cadr osk))))