1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-24 06:20:43 -08:00

Merge pull request from alezost/bind-keys

Add bind-keys*
GitHub-reference: https://github.com/jwiegley/use-package/issues/107
This commit is contained in:
John Wiegley 2014-05-25 12:09:09 -05:00
commit 0d0e8db731

View file

@ -73,6 +73,14 @@
;; Additionally, :prefix-docstring can be specified to set
;; documentation of created :prefix-map variable.
;;
;; To bind multiple keys in a `bind-key*' way (to be sure that your bindings
;; will not be overridden by other modes), you may use `bind-keys*' macro:
;;
;; (bind-keys*
;; ("C-o" . other-window)
;; ("C-M-n" . forward-page)
;; ("C-M-p" . backward-page))
;;
;; After Emacs loads, you can see a summary of all your personal keybindings
;; currently in effect with this command:
;;
@ -194,6 +202,10 @@ function symbol (unquoted)."
,(or prefix-map map)))
key-bindings))))
(defmacro bind-keys* (&rest args)
`(bind-keys :map override-global-map
,@args))
(defun get-binding-description (elem)
(cond
((listp elem)