1 files changed, 8 insertions, 0 deletions
diff --git a/lisp/acdw.el b/lisp/acdw.el
index 3ae480d..c9a2d9f 100644
--- a/lisp/acdw.el
+++ b/lisp/acdw.el

@@ -205,6 +205,14 @@ The following keywords are recognized:
    `(progn
       ,@command-list)))
+(defmacro acdw/binds (bindings)
+  "Bind multiple keys at once."
+  (let (bind-list)
+    (dolist (bind bindings)
+      (push `(acdw/bind ,@bind) bind-list))
+    `(progn
+       ,@bind-list)))
 ;; convenience
 (defmacro acdw/bind-after-map (file keymap bindings)
  "Wrap multiple calls of `acdw/bind' after FILE and with KEYMAP.

diff --git a/lisp/acdw.el b/lisp/acdw.el index 3ae480d..c9a2d9f 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el
@@ -205,6 +205,14 @@ The following keywords are recognized:
205	`(progn	205	`(progn
206	,@command-list)))	206	,@command-list)))
207		207
		208	(defmacro acdw/binds (bindings)
		209	"Bind multiple keys at once."
		210	(let (bind-list)
		211	(dolist (bind bindings)
		212	(push `(acdw/bind ,@bind) bind-list))
		213	`(progn
		214	,@bind-list)))
		215
208	;; convenience	216	;; convenience
209	(defmacro acdw/bind-after-map (file keymap bindings)	217	(defmacro acdw/bind-after-map (file keymap bindings)
210	"Wrap multiple calls of `acdw/bind' after FILE and with KEYMAP.	218	"Wrap multiple calls of `acdw/bind' after FILE and with KEYMAP.