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

Slight optimisation

Browse Source
This commit is contained in:
Magnar Sveen 2012-06-07 07:49:46 +02:00
parent 9938acaf71
commit dfe8a2d1e8
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
multiple-cursors.el
View File

@ -223,10 +223,8 @@ mark-multiple if point and mark is on different columns."
(error "Mark a set of lines first.")) (error "Mark a set of lines first."))
(mc/remove-additional-cursors) (mc/remove-additional-cursors)
(let* ((point-line (line-number-at-pos)) (let* ((point-line (line-number-at-pos))
(mark-line (save-excursion (exchange-point-and-mark) (line-number-at-pos))) (mark-line (progn (exchange-point-and-mark) (line-number-at-pos)))
(num-cursors (abs (- point-line mark-line)))
(navigation-func (if (< point-line mark-line) 'previous-line 'next-line))) (navigation-func (if (< point-line mark-line) 'previous-line 'next-line)))
(exchange-point-and-mark)
(deactivate-mark) (deactivate-mark)
(while (not (eq (line-number-at-pos) point-line)) (while (not (eq (line-number-at-pos) point-line))
(mc/add-cursor-at-point) (mc/add-cursor-at-point)