From ff1f8d26cfe9ff29efbfed76f2bc5f9d0a6982f8 Mon Sep 17 00:00:00 2001 From: Tassilo Horn Date: Tue, 20 Oct 2015 10:41:05 +0200 Subject: [PATCH] Change "solid logic" to "correct logic" :-) --- beacon.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/beacon.el b/beacon.el index 0b2042381..138c3baae 100644 --- a/beacon.el +++ b/beacon.el @@ -284,13 +284,13 @@ If DELTA is nil, return nil." ;; moved using `count-screen-lines'. (let ((prev-pos (marker-position beacon--previous-place))) (catch 'movement - (when (beacon--pos-on-current-line-p (point)) + (when (beacon--pos-on-current-line-p prev-pos) (throw 'movement nil)) (dolist (inc '(1 -1)) (save-excursion (dotimes (i delta) (vertical-motion inc) - (when (beacon--pos-on-current-line-p (point)) + (when (beacon--pos-on-current-line-p prev-pos) (throw 'movement nil))))) (throw 'movement t))))) -- 2.39.2