[nongnu] elpa/helm 0d2667db1a 1/2: Fix helm-define-key-with-subkeys error on keys with meta

[ELPA Syncer]

branch: elpa/helm
commit 0d2667db1ab87c7a153406fff4e59ab83c3fc6a2
Author: mosquito-magnet <24659697+mosquito-magnet@users.noreply.github.com>
Commit: mosquito-magnet <24659697+mosquito-magnet@users.noreply.github.com>

    Fix helm-define-key-with-subkeys error on keys with meta
    
    char-to-string fails on key combinations including the meta/alt key,
    e.g. C-M-u, use single-key-description instead.
---
 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))))