Merge commit 'eeac41976bc7b1aa5e732fb476d24ab4c2890712'

[gnu-emacs-elpa] / packages / beacon / beacon.el

diff --git a/packages/beacon/beacon.el b/packages/beacon/beacon.el
index 777e809985bf90754e8aedb908b345b1e7e2ccd9..800c95858d7d45e0c5fe7d707fb85bf1ea9e24db 100644 (file)
--- a/packages/beacon/beacon.el
+++ b/packages/beacon/beacon.el
@@ -279,10 +279,11 @@ If DELTA is nil, return nil."
        ;; lines. `count-screen-lines' is too slow if the movement had
        ;; thousands of lines.
        (save-excursion
-         (goto-char (min beacon--previous-place (point)))
-         (vertical-motion delta)
-         (> (max (point) beacon--previous-place)
-            (line-beginning-position)))))
+         (let ((p (point)))
+           (goto-char (min beacon--previous-place p))
+           (vertical-motion delta)
+           (> (max p beacon--previous-place)
+              (line-beginning-position))))))
 
 (defun beacon--maybe-push-mark ()
   "Push mark if it seems to be safe."