Change "solid logic" to "correct logic" :-)

diff --git a/beacon.el b/beacon.el
index 0b2042381be8ce034ce320131a72d621fc4119a0..138c3baae401ceb7b308d52a4d9da6c9990dc65c 100644 (file)
--- 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)))))