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