[nongnu] elpa/helm b978aee0f0 2/2: Merge pull request #2583 from mosquito-magnet/fix-docstring-error-on-meta-key

[ELPA Syncer]

branch: elpa/helm
commit b978aee0f0edce350d42122c1e6fe73f11243a19
Merge: 4e39df9ee0 0d2667db1a
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: GitHub <noreply@github.com>

    Merge pull request #2583 from 
mosquito-magnet/fix-docstring-error-on-meta-key
    
    Fix helm-define-key-with-subkeys error on keys with meta
---
 helm-core.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/helm-core.el b/helm-core.el
index 48e9a3a277..95c9fcd38e 100644
--- a/helm-core.el
+++ b/helm-core.el
@@ -350,7 +350,7 @@ i.e. the loop is not entered after running COMMAND."
           ;; COMMAND, SUBKEY and OTHER-SUBKEYS.
           (concat
            (format "Run `%s' and bound it to `%s' for subsequent calls."
-                   command (if (numberp subkey) (char-to-string subkey) 
subkey))
+                   command (if (numberp subkey) (single-key-description 
subkey) subkey))
            (if other-subkeys
                (helm-basic-docstring-from-alist other-subkeys)
              ""))))
@@ -364,7 +364,7 @@ i.e. the loop is not entered after running COMMAND."
                                         " and ")
                                        ((> count 1) ",")
                                        (t ""))
-                       for key = (if (numberp k) (char-to-string k) k)
+                       for key = (if (numberp k) (single-key-description k) k)
                        concat (format "%s`%s'" sep key) into ks
                        concat (format "%s`%s'" sep v) into kv
                        finally return (list ks kv))))