diff --git a/src/workgroups-keys.el b/src/workgroups-keys.el
index bfa5e19bc7e9877feae96def261844a575a74efb..77001219ac0a8afd38c96d0738a27e96b07bb01c 100644
--- a/src/workgroups-keys.el
+++ b/src/workgroups-keys.el
@@ -16,6 +16,13 @@ off and then on again to take effect."
 (defvar workgroups-mode-map nil
   "Workgroups Mode's keymap.")
 
+(defun wg-fill-keymap (keymap &rest binds)
+  "Return KEYMAP after defining in it all keybindings in BINDS."
+  (while binds
+    (define-key keymap (car binds) (cadr binds))
+    (setq binds (cddr binds)))
+  keymap)
+
 (defvar wg-prefixed-map
   (wg-fill-keymap
    (make-sparse-keymap)