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

Fix cycle-cursor behavior.

Browse Source 
mc/cycle-forward had been skipping a cursor on (point-max).
mc/cycle-backward had been skipping a cursor on (point-min).
This commit is contained in:
Kouhei Yanagita 2014-01-05 14:51:38 +09:00
parent 238fb970f9
commit 38e590ce06
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mc-cycle-cursors.el
View File

@ -32,7 +32,7 @@
(defun mc/next-fake-cursor-after-point () (defun mc/next-fake-cursor-after-point ()
(let ((pos (point)) (let ((pos (point))
(next-pos (point-max)) (next-pos (1+ (point-max)))
next) next)
(mc/for-each-fake-cursor (mc/for-each-fake-cursor
(let ((cursor-pos (overlay-get cursor 'point))) (let ((cursor-pos (overlay-get cursor 'point)))
@ -44,7 +44,7 @@
(defun mc/prev-fake-cursor-before-point () (defun mc/prev-fake-cursor-before-point ()
(let ((pos (point)) (let ((pos (point))
(prev-pos (point-min)) (prev-pos (1- (point-min)))
prev) prev)
(mc/for-each-fake-cursor (mc/for-each-fake-cursor
(let ((cursor-pos (overlay-get cursor 'point))) (let ((cursor-pos (overlay-get cursor 'point)))