;;## Save code when changing unloaded maps
(defmacro delayed-define-key (mode key func)
  (eval `(let ((hook (intern (format "%s-mode-hook" ,mode)))
               (map  (intern (format "%s-mode-map"  ,mode)))
               (key ,key)
               (func ,func))
           `(add-hook ',hook (lambda () (define-key ,map ,key ',func))))))