Skip folded lines with mc/edit-lines

Fixes #99
This commit is contained in:
Magnar Sveen 2013-10-31 21:38:53 +01:00
parent cfe4bd9eb3
commit 239acbfbc8
2 changed files with 4 additions and 3 deletions

View File

@ -44,11 +44,13 @@ line point is on."
(direction (if (< point-line mark-line) :up :down))) (direction (if (< point-line mark-line) :up :down)))
(deactivate-mark) (deactivate-mark)
(when (and (eq direction :up) (bolp)) (when (and (eq direction :up) (bolp))
(forward-line -1) (previous-logical-line 1 nil)
(move-to-column col)) (move-to-column col))
(while (not (eq (line-number-at-pos) point-line)) (while (not (eq (line-number-at-pos) point-line))
(mc/create-fake-cursor-at-point) (mc/create-fake-cursor-at-point)
(if (eq direction :up) (forward-line -1) (forward-line 1)) (if (eq direction :up)
(previous-logical-line 1 nil)
(next-logical-line 1 nil))
(move-to-column col)) (move-to-column col))
(multiple-cursors-mode))) (multiple-cursors-mode)))

View File

@ -130,7 +130,6 @@ highlights the entire width of the window."
mark-ring mark-ring
mark-active mark-active
yank-undo-function yank-undo-function
kill-ring-yank-pointer
autopair-action autopair-action
autopair-wrap-action autopair-wrap-action
er/history) er/history)