mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-11 14:01:43 -08:00
Code Issues Projects Releases Wiki Activity

Merge pull request from YoungFrog/keynameeval

Browse source 
* bind-key.el (bind-key): don't eval key-name at macro expansion time.
GitHub-reference: https://github.com/jwiegley/use-package/issues/102
This commit is contained in:
John Wiegley 2014-04-14 19:44:04 -05:00
commit d63972eb29
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/use-package/bind-key.el
View file

@ -132,7 +132,7 @@ spelled-out keystrokes, e.g., \"C-c C-z\". See documentation of
(keyvar (make-symbol "key"))
(bindingvar (make-symbol "binding"))
(entryvar (make-symbol "entry")))
`(let* ((,namevar ,(eval key-name))
`(let* ((,namevar ,key-name)
(,keyvar (if (vectorp ,namevar) ,namevar
(read-kbd-macro ,namevar)))
(,bindingvar (lookup-key (or ,keymap global-map)