diff options
| author | John Wiegley <johnw@newartisans.com> | 2014-04-14 19:44:04 -0500 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2014-04-14 19:44:04 -0500 |
| commit | d63972eb29600df4c840ab86f78d2c2659b8ae24 (patch) | |
| tree | a46cc70f21c3beb8c5d5f81c879a24f90f2b37d0 | |
| parent | 978094589e8e7eb6ee2c6bd53290000f9c857ef0 (diff) | |
| parent | 9ca3690b59d0923188b168c3e6901790c7021a11 (diff) | |
| download | emacs-d63972eb29.tar.gz | |
Merge pull request from YoungFrog/keynameeval
* bind-key.el (bind-key): don't eval key-name at macro expansion time.
GitHub-reference: https://github.com/jwiegley/use-package/issues/102
| -rw-r--r-- | lisp/use-package/bind-key.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/use-package/bind-key.el b/lisp/use-package/bind-key.el index d2a21f3986b..2ddbae2f082 100644 --- a/lisp/use-package/bind-key.el +++ b/lisp/use-package/bind-key.el @@ -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) |