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)))))
 

Reply via email to