From 38e590ce06c88c7447e629cb86dcc41f686ac56c Mon Sep 17 00:00:00 2001 From: Kouhei Yanagita Date: Sun, 5 Jan 2014 14:51:38 +0900 Subject: [PATCH] Fix cycle-cursor behavior. mc/cycle-forward had been skipping a cursor on (point-max). mc/cycle-backward had been skipping a cursor on (point-min). --- mc-cycle-cursors.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/mc-cycle-cursors.el b/mc-cycle-cursors.el index 4c93dc7..bb86aaa 100644 --- a/mc-cycle-cursors.el +++ b/mc-cycle-cursors.el @@ -32,7 +32,7 @@ (defun mc/next-fake-cursor-after-point () (let ((pos (point)) - (next-pos (point-max)) + (next-pos (1+ (point-max))) next) (mc/for-each-fake-cursor (let ((cursor-pos (overlay-get cursor 'point))) @@ -44,7 +44,7 @@ (defun mc/prev-fake-cursor-before-point () (let ((pos (point)) - (prev-pos (point-min)) + (prev-pos (1- (point-min))) prev) (mc/for-each-fake-cursor (let ((cursor-pos (overlay-get cursor 'point)))