ld/multiple-cursors.el
1
0
Fork 0
mirror of https://github.com/magnars/multiple-cursors.el.git synced 2025-10-13 21:03:05 +00:00
Code Issues Packages Projects Releases Wiki Activity

Switch to multiple-cursors-mode from rectangular-region with <return>

Browse Source
This commit is contained in:
Magnar Sveen 2012-07-20 08:38:33 +02:00
parent 4c56cb8b78
commit 4078570320
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rectangular-region-mode.el
View File

@ -7,6 +7,7 @@
"Keymap for rectangular region is mainly for rebinding C-g") "Keymap for rectangular region is mainly for rebinding C-g")
(define-key rectangular-region-mode-map (kbd "C-g") 'rrm/keyboard-quit) (define-key rectangular-region-mode-map (kbd "C-g") 'rrm/keyboard-quit)
(define-key rectangular-region-mode-map (kbd "<return>") 'rrm/switch-to-multiple-cursors)
(defun rrm/keyboard-quit () (defun rrm/keyboard-quit ()
(interactive) (interactive)
@ -52,7 +53,8 @@
(move-to-column point-column t) (move-to-column point-column t)
(mc/create-fake-cursor-at-point))))) (mc/create-fake-cursor-at-point)))))
(defun rrm/execute-change (&rest forms) (defun rrm/switch-to-multiple-cursors (&rest forms)
(interactive)
(rectangular-region-mode 0) (rectangular-region-mode 0)
(multiple-cursors-mode 1)) (multiple-cursors-mode 1))
@ -61,9 +63,9 @@
nil " rr" rectangular-region-mode-map nil " rr" rectangular-region-mode-map
(if rectangular-region-mode (if rectangular-region-mode
(progn (progn
(add-hook 'after-change-functions 'rrm/execute-change t t) (add-hook 'after-change-functions 'rrm/switch-to-multiple-cursors t t)
(add-hook 'post-command-hook 'rrm/repaint t t)) (add-hook 'post-command-hook 'rrm/repaint t t))
(remove-hook 'after-change-functions 'rrm/execute-change t) (remove-hook 'after-change-functions 'rrm/switch-to-multiple-cursors t)
(remove-hook 'post-command-hook 'rrm/repaint t) (remove-hook 'post-command-hook 'rrm/repaint t)
(set-marker rrm/anchor nil))) (set-marker rrm/anchor nil)))