mc/mark-lines: Mark by logical lines.

This commit is contained in:
Akinori MUSHA 2013-08-01 17:00:03 +09:00
parent 66ceb0b0d4
commit 2186e1b6e5

View File

@ -173,9 +173,9 @@ With zero ARG, skip the last one and mark next."
(dotimes (i num-lines) (dotimes (i num-lines)
(mc/create-fake-cursor-at-point) (mc/create-fake-cursor-at-point)
(ecase direction (ecase direction
(forwards (loop do (next-line 1 nil) (forwards (loop do (next-logical-line 1 nil)
while (mc/all-fake-cursors (point) (1+ (point))))) while (mc/all-fake-cursors (point) (1+ (point)))))
(backwards (loop do (previous-line 1 nil) (backwards (loop do (previous-logical-line 1 nil)
while (mc/all-fake-cursors (point) (1+ (point)))))))) while (mc/all-fake-cursors (point) (1+ (point))))))))
;;;###autoload ;;;###autoload