Merge pull request from wcy123/master

GitHub-reference: https://github.com/jwiegley/use-package/issues/822
This commit is contained in:
John Wiegley 2022-08-07 08:53:36 -07:00 committed by GitHub
commit a0ba027ee5

View file

@ -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))