diff options
| author | John Wiegley <johnw@newartisans.com> | 2022-08-07 08:53:36 -0700 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-08-07 08:53:36 -0700 |
| commit | a0ba027ee50df6bf4e2e74ee60d3a1812bce1f25 (patch) | |
| tree | 40b543053583c3d8fe5b1c307bff20c72040bec7 | |
| parent | ca426a773289dfef07a173dc96ce9970c3b51501 (diff) | |
| parent | 9be2580f5f26cc572d68a465c2fbe1159cc89a8d (diff) | |
| download | emacs-a0ba027ee5.tar.gz | |
Merge pull request from wcy123/master
GitHub-reference: https://github.com/jwiegley/use-package/issues/822
| -rw-r--r-- | lisp/use-package/bind-key.el | 5 |
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)) |