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

Skip lines in rectangular-region-mode that are too short for the rectangle.

Browse Source
This commit is contained in:
Magnar Sveen 2012-07-21 08:45:51 +02:00
parent 56d037319a
commit 05125618aa
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rectangular-region-mode.el
View File

@ -39,17 +39,18 @@
(left-column (if (< point-column anchor-column) point-column anchor-column))
(right-column (if (> point-column anchor-column) point-column anchor-column))
(navigation-func (if (< point-line anchor-line) 'next-line 'previous-line)))
(move-to-column anchor-column t)
(move-to-column anchor-column)
(set-mark (point))
(move-to-column point-column t)
(move-to-column point-column)
(mc/save-excursion
(while (not (= anchor-line (line-number-at-pos)))
(funcall navigation-func)
(move-to-column right-column t)
(move-to-column anchor-column t)
(move-to-column anchor-column)
(when (= anchor-column (current-column))
(set-mark (point))
(move-to-column point-column t)
(mc/create-fake-cursor-at-point)))))
(move-to-column point-column)
(when (= point-column (current-column))
(mc/create-fake-cursor-at-point)))))))
(defun rrm/switch-to-multiple-cursors (&rest forms)
(interactive)