branch: master commit ff1f8d26cfe9ff29efbfed76f2bc5f9d0a6982f8 Author: Tassilo Horn <t...@gnu.org> Commit: Tassilo Horn <t...@gnu.org>
Change "solid logic" to "correct logic" :-) --- beacon.el | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/beacon.el b/beacon.el index 0b20423..138c3ba 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)))))