diff options
| author | Noam Postavsky <npostavs@gmail.com> | 2014-04-14 00:01:28 -0400 |
|---|---|---|
| committer | Noam Postavsky <npostavs@gmail.com> | 2014-04-14 00:03:35 -0400 |
| commit | 869ff53ab906e818d92656f315ad2113118ea49e (patch) | |
| tree | 2515e055dcc821acea4285050c7efadffa99253b /lisp/use-package | |
| parent | 053a1514a1ec1690b4a5e4c07618fc8c4b083359 (diff) | |
| download | emacs-869ff53ab906e818d92656f315ad2113118ea49e.tar.gz emacs-869ff53ab906e818d92656f315ad2113118ea49e.tar.bz2 emacs-869ff53ab906e818d92656f315ad2113118ea49e.zip | |
bind-keys: ,@(when map (list map)) => map
Omitting map is same as passing nil.
Diffstat (limited to 'lisp/use-package')
| -rw-r--r-- | lisp/use-package/bind-key.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/use-package/bind-key.el b/lisp/use-package/bind-key.el index bb4bf13f518..bd8aa626cba 100644 --- a/lisp/use-package/bind-key.el +++ b/lisp/use-package/bind-key.el @@ -188,12 +188,12 @@ function symbol (unquoted)." `((defvar ,prefix-map) ,@(when doc `((put ',prefix-map 'variable-documentation ,doc))) (define-prefix-command ',prefix-map) - (bind-key ,prefix ',prefix-map ,@(when map (list map))))) + (bind-key ,prefix ',prefix-map ,map))) ,@(mapcar (lambda (form) `(bind-key ,(if prefix (concat prefix " " (car form)) (car form)) ',(cdr form) - ,@(when map (list map)))) + ,map)) key-bindings)))) (defun get-binding-description (elem) |