mirror of
https://github.com/masscollaborationlabs/emacs.git
synced 2025-07-06 12:19:37 +00:00
Merge pull request from wcy123/master
GitHub-reference: https://github.com/jwiegley/use-package/issues/822
This commit is contained in:
commit
a0ba027ee5
1 changed files with 3 additions and 2 deletions
|
@ -173,8 +173,9 @@ can safely be called at any time."
|
||||||
(kdescvar (make-symbol "kdesc"))
|
(kdescvar (make-symbol "kdesc"))
|
||||||
(bindingvar (make-symbol "binding")))
|
(bindingvar (make-symbol "binding")))
|
||||||
`(let* ((,namevar ,key-name)
|
`(let* ((,namevar ,key-name)
|
||||||
(,keyvar (if (vectorp ,namevar) ,namevar
|
(,keyvar ,(if (stringp key-name) (read-kbd-macro key-name)
|
||||||
(read-kbd-macro ,namevar)))
|
`(if (vectorp ,namevar) ,namevar
|
||||||
|
(read-kbd-macro ,namevar))))
|
||||||
(,kmapvar (or (if (and ,keymap (symbolp ,keymap))
|
(,kmapvar (or (if (and ,keymap (symbolp ,keymap))
|
||||||
(symbol-value ,keymap) ,keymap)
|
(symbol-value ,keymap) ,keymap)
|
||||||
global-map))
|
global-map))
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue