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

Fix rectangular-region-mode when adding cursors over hidden areas of the buffer.

Browse Source
This commit is contained in:
Magnar Sveen 2012-07-21 08:42:08 +02:00
parent 092b0a1017
commit 56d037319a
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rectangular-region-mode.el
View File

@ -38,14 +38,12 @@
(anchor-line (save-excursion (goto-char rrm/anchor) (line-number-at-pos))) (anchor-line (save-excursion (goto-char rrm/anchor) (line-number-at-pos)))
(left-column (if (< point-column anchor-column) point-column anchor-column)) (left-column (if (< point-column anchor-column) point-column anchor-column))
(right-column (if (> point-column anchor-column) point-column anchor-column)) (right-column (if (> point-column anchor-column) point-column anchor-column))
(num-mirrors (abs (- point-line anchor-line)))
(num-chars (- right-column left-column))
(navigation-func (if (< point-line anchor-line) 'next-line 'previous-line))) (navigation-func (if (< point-line anchor-line) 'next-line 'previous-line)))
(move-to-column anchor-column t) (move-to-column anchor-column t)
(set-mark (point)) (set-mark (point))
(move-to-column point-column t) (move-to-column point-column t)
(mc/save-excursion (mc/save-excursion
(dotimes (i num-mirrors) (while (not (= anchor-line (line-number-at-pos)))
(funcall navigation-func) (funcall navigation-func)
(move-to-column right-column t) (move-to-column right-column t)
(move-to-column anchor-column t) (move-to-column anchor-column t)