diff options
| author | Matthew Justin Bauer | 2018-02-25 15:03:43 -0600 |
|---|---|---|
| committer | GitHub | 2018-02-25 15:03:43 -0600 |
| commit | 2250f89ac0b8d2c19875dab67e73ac1cfe6ca3df (patch) | |
| tree | 5836caab8ea225817e488a4f685a6d844a127eea | |
| parent | 10b4dcb53abf4b2e258167fa1c1373489e194963 (diff) | |
| download | emacs-2250f89ac0b8d2c19875dab67e73ac1cfe6ca3df.tar.gz emacs-2250f89ac0b8d2c19875dab67e73ac1cfe6ca3df.zip | |
Support ":package" in use-package
bind-key supports the keyword ":package" but use-package does not know that. Adding this should be helpful. In the future, maybe we could automatically fill in with the use-package package, but that could be a breaking change.
| -rw-r--r-- | lisp/use-package/use-package-bind-key.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/use-package/use-package-bind-key.el b/lisp/use-package/use-package-bind-key.el index d8fe56dfaa5..d17ecb2cf75 100644 --- a/lisp/use-package/use-package-bind-key.el +++ b/lisp/use-package/use-package-bind-key.el | |||
| @@ -87,12 +87,14 @@ deferred until the prefix key sequence is pressed." | |||
| 87 | ;; :prefix STRING | 87 | ;; :prefix STRING |
| 88 | ;; :filter SEXP | 88 | ;; :filter SEXP |
| 89 | ;; :menu-name STRING | 89 | ;; :menu-name STRING |
| 90 | ;; :package SYMBOL | ||
| 90 | ((or (and (eq x :map) (symbolp (cadr arg))) | 91 | ((or (and (eq x :map) (symbolp (cadr arg))) |
| 91 | (and (eq x :prefix) (stringp (cadr arg))) | 92 | (and (eq x :prefix) (stringp (cadr arg))) |
| 92 | (and (eq x :prefix-map) (symbolp (cadr arg))) | 93 | (and (eq x :prefix-map) (symbolp (cadr arg))) |
| 93 | (and (eq x :prefix-docstring) (stringp (cadr arg))) | 94 | (and (eq x :prefix-docstring) (stringp (cadr arg))) |
| 94 | (eq x :filter) | 95 | (eq x :filter) |
| 95 | (and (eq x :menu-name) (stringp (cadr arg)))) | 96 | (and (eq x :menu-name) (stringp (cadr arg))) |
| 97 | (and (eq x :package) (symbolp (cadr arg)))) | ||
| 96 | (setq args* (nconc args* (list x (cadr arg)))) | 98 | (setq args* (nconc args* (list x (cadr arg)))) |
| 97 | (setq arg (cddr arg))) | 99 | (setq arg (cddr arg))) |
| 98 | ((listp x) | 100 | ((listp x) |