X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/c6fe19d5ddff128cc87fabcd0e7f82be6af19781..5223adaa187d2231f03f59a44473b93192bc6968:/el/mdw-multiple-cursors.el

diff --git a/el/mdw-multiple-cursors.el b/el/mdw-multiple-cursors.el
index 8107d48..d5d77a3 100644
--- a/el/mdw-multiple-cursors.el
+++ b/el/mdw-multiple-cursors.el
@@ -27,6 +27,8 @@
 ;; (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.
 
@@ -79,7 +81,7 @@ forms) to appear at the start of the wrapper function."
 ;;;--------------------------------------------------------------------------
 ;;; 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)
@@ -151,6 +153,11 @@ where:
   (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)