[nongnu] elpa/scroll-on-drag cf026998a8: Cleanup: use pos-bol/eol as respecting fields isn't needed

[ELPA Syncer]

branch: elpa/scroll-on-drag
commit cf026998a81097a372f1af3ca48eeb6e7d658951
Author: Campbell Barton <ideasman42@gmail.com>
Commit: Campbell Barton <ideasman42@gmail.com>

    Cleanup: use pos-bol/eol as respecting fields isn't needed
---
 scroll-on-drag.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/scroll-on-drag.el b/scroll-on-drag.el
index c49ebfe926..c173d288af 100644
--- a/scroll-on-drag.el
+++ b/scroll-on-drag.el
@@ -212,10 +212,10 @@ Returns true when scrolling took place, otherwise nil."
            (scroll-on-drag-clamp
             (cond
              ((eq (window-end) (point-max))
-              (line-beginning-position))
+              (pos-bol))
              (t
               (save-excursion
-                (goto-char (line-beginning-position))
+                (goto-char (pos-bol))
                 (let ((lines
                        (- (window-body-height)
                           ;; When the point is at the window top,
@@ -246,7 +246,7 @@ Returns true when scrolling took place, otherwise nil."
            (scroll-on-drag-smooth
             (save-excursion
               (goto-char (point-max))
-              (line-beginning-position)))
+              (pos-bol)))
            (t
             0)))
 
@@ -334,7 +334,7 @@ Returns true when scrolling took place, otherwise nil."
                     (let ((scroll-pt
                            (cond
                             ((eq restore-point (point))
-                             (line-beginning-position))
+                             (pos-bol))
                             (t
                              (point)))))
                       (cond
@@ -376,7 +376,7 @@ Returns true when scrolling took place, otherwise nil."
          ;; when the cursor is partially outside the view.
          (scroll-consrtain-point-below-window-start-fn
           (lambda ()
-            (let ((lines-from-top (count-lines (window-start) 
(line-beginning-position))))
+            (let ((lines-from-top (count-lines (window-start) (pos-bol))))
               (when (> scroll-margin lines-from-top)
                 (forward-line (- scroll-margin lines-from-top))
                 (scroll-on-drag--force-redisplay-with-hooks))))))