ld/multiple-cursors.el
1
0
Fork 0
mirror of https://github.com/magnars/multiple-cursors.el.git synced 2026-02-04 14:22:24 +00:00
Code Issues Packages Projects Releases Wiki Activity

mc/edit-lines: Don't include the 'invisible' line

Browse Source 
- when marking a region from bottom to top there is an invisible line
   in the region if mark is at the beginning of the line.
 - don't count that line when doing mc/edit-lines
This commit is contained in:
Magnar Sveen
2012-09-27 10:52:21 +02:00
parent d7263f21f0
commit b48e2b7682
2 changed files with 19 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
mc-edit-lines.el
View File

@@ -38,13 +38,18 @@ line point is on."
(when (not (use-region-p))
(error "Mark a set of lines first."))
(mc/remove-fake-cursors)
(let* ((point-line (line-number-at-pos))
(let* ((col (current-column))
(point-line (line-number-at-pos))
(mark-line (progn (exchange-point-and-mark) (line-number-at-pos)))
(direction (if (< point-line mark-line) :up :down)))
(deactivate-mark)
(when (and (eq direction :up) (bolp))
(forward-line -1)
(move-to-column col))
(while (not (eq (line-number-at-pos) point-line))
(mc/create-fake-cursor-at-point)
(if (eq direction :up) (forward-line -1) (forward-line 1)))
(if (eq direction :up) (forward-line -1) (forward-line 1))
(move-to-column col))
(multiple-cursors-mode)))
;;;###autoload