diff --git a/src/workgroups-utils-basic.el b/src/workgroups-utils-basic.el
index e9c0698e4ffa1b20ee4753f5f6830c412342a218..52915e0286e229f0dfcb7ffba02c05b248ad301e 100644
--- a/src/workgroups-utils-basic.el
+++ b/src/workgroups-utils-basic.el
@@ -445,22 +445,12 @@ the cadr as the accessor function."
 
 ;;; misc
 
-
-(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)
-
 (defun wg-add-or-remove-hooks (remove &rest pairs)
   "Add FUNCTION to or remove it from HOOK, depending on REMOVE."
   (dolist (pair (wg-partition pairs 2))
     (funcall (if remove 'remove-hook 'add-hook)
              (car pair) (cadr pair))))
 
-
-
 (defmacro wg-set-parameter (place parameter value)
   "Set PARAMETER to VALUE at PLACE.
 This needs to be a macro to allow specification of a setf'able place."