Merge pull request from wcy123/master

GitHub-reference: https://github.com/jwiegley/use-package/issues/822

1 files changed, 3 insertions, 2 deletions

diff --git a/lisp/use-package/bind-key.el b/lisp/use-package/bind-key.el
index a3179b297ee..df76c39ceed 100644
--- a/lisp/use-package/bind-key.el
+++ b/lisp/use-package/bind-key.el
@@ -173,8 +173,9 @@ can safely be called at any time."
         (kdescvar (make-symbol "kdesc"))
         (bindingvar (make-symbol "binding")))
     `(let* ((,namevar ,key-name)
-            (,keyvar (if (vectorp ,namevar) ,namevar
-                       (read-kbd-macro ,namevar)))
+            (,keyvar ,(if (stringp key-name) (read-kbd-macro key-name)
+                        `(if (vectorp ,namevar) ,namevar
+                           (read-kbd-macro ,namevar))))
             (,kmapvar (or (if (and ,keymap (symbolp ,keymap))
                               (symbol-value ,keymap) ,keymap)
                           global-map))