From: Alex Kost <alezost@gmail.com>
Date: Sun, 25 May 2014 09:04:00 +0000 (+0400)
Subject: Add bind-keys* macro
X-Git-Tag: emacs-29.0.90~1306^2~15^2~407^2
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c4ebcaa953ebfcf2445086d5f879f01ef03cc32e;p=emacs.git

Add bind-keys* macro
---

diff --git a/lisp/use-package/bind-key.el b/lisp/use-package/bind-key.el
index 2ddbae2f082..0e75fd567ec 100644
--- a/lisp/use-package/bind-key.el
+++ b/lisp/use-package/bind-key.el
@@ -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)