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

Use forward-line instead of next/previous-line in lisp code.

Browse Source 
- fixes problem with smooth-scrolling (the other ones were adviced)
This commit is contained in:
Magnar Sveen 2012-08-07 19:37:14 +02:00
parent 4003aa1583
commit 491b206472
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rectangular-region-mode.el
View File

@ -68,13 +68,13 @@
(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))
(navigation-func (if (< point-line anchor-line) 'next-line 'previous-line))) (navigation-step (if (< point-line anchor-line) 1 -1)))
(move-to-column anchor-column) (move-to-column anchor-column)
(set-mark (point)) (set-mark (point))
(move-to-column point-column) (move-to-column point-column)
(mc/save-excursion (mc/save-excursion
(while (not (= anchor-line (line-number-at-pos))) (while (not (= anchor-line (line-number-at-pos)))
(funcall navigation-func) (forward-line navigation-step)
(move-to-column anchor-column) (move-to-column anchor-column)
(when (= anchor-column (current-column)) (when (= anchor-column (current-column))
(set-mark (point)) (set-mark (point))