~mdw
/
profile
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
el/dot-emacs.el: Fix C comment indentation.
[profile]
/
el
/
mdw-multiple-cursors.el
diff --git
a/el/mdw-multiple-cursors.el
b/el/mdw-multiple-cursors.el
index
8107d48
..
d5d77a3
100644
(file)
--- 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)
;; (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.
;;;--------------------------------------------------------------------------
;;; 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.
;;;--------------------------------------------------------------------------
;;; 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)
(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))
(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)
;;;----- That's all, folks --------------------------------------------------
(provide 'mdw-multiple-cursors)