;; (autoload 'mdw-multiple-cursors-keymap "mdw-multiple-cursors.el"
;; "A keymap for Magnar Sveen's awesome multiple-cursors." nil 'keymap)
+(require 'cl-lib)
+
;;;--------------------------------------------------------------------------
;;; Some machinery for omitting key prefixes.
;;;--------------------------------------------------------------------------
;;; The multiple-cursors key bindings.
-(eval-when (load eval)
+(cl-eval-when (load eval)
(require 'multiple-cursors))
(defvar mdw-multiple-cursors-keymap (make-sparse-keymap)
(define-key map "\C-@" 'set-rectangular-region-anchor)
(define-key map [?\C- ] 'set-rectangular-region-anchor))
+;;;--------------------------------------------------------------------------
+;;; Various little tweaks.
+
+(define-key mc/keymap "\C-m" 'multiple-cursors-mode)
+
;;;----- That's all, folks --------------------------------------------------
(provide 'mdw-multiple-cursors)