[nongnu] elpa/scroll-on-drag 882dc94bb8 12/35: Cleanup: remove unused variables

[ELPA Syncer]

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

    Cleanup: remove unused variables
---
 scroll-on-drag.el | 24 ++++++++++--------------
 1 file changed, 10 insertions(+), 14 deletions(-)

diff --git a/scroll-on-drag.el b/scroll-on-drag.el
index 8cf82d4ee8..0a4e3d4ca7 100644
--- a/scroll-on-drag.el
+++ b/scroll-on-drag.el
@@ -1,4 +1,4 @@
-;;; scroll-on-drag.el --- Interactive scrolling. -*- lexical-binding: t -*-
+;;; scroll-on-drag.el --- Interactive scrolling -*- lexical-binding: t -*-
 
 ;; Copyright (C) 2019  Campbell Barton
 
@@ -184,7 +184,6 @@ Returns true when scrolling took place, otherwise nil."
       ;; Restoration position.
       (restore-window-start (window-start))
       (restore-point (point))
-      (restore-point-use-scroll-offset nil)
 
       ;; X11 cursor.
       (restore-x-pointer-shape (and (boundp 'x-pointer-shape) x-pointer-shape))
@@ -276,14 +275,12 @@ Returns true when scrolling took place, otherwise nil."
 
                 (if scroll-on-drag-smooth
                   ;; Smooth-Scrolling.
-                  (let
-                    (
-                      (lines-remainder
-                        (scroll-on-drag--scroll-by-pixels
-                          this-window
-                          this-frame-char-height
-                          delta-scaled
-                          t)))
+                  (progn
+                    (scroll-on-drag--scroll-by-pixels
+                      this-window
+                      this-frame-char-height
+                      delta-scaled
+                      t)
                     (when (>= (point) point-of-last-line)
                       (set-window-vscroll this-window 0 t))
                     (setq do-draw t))
@@ -298,8 +295,8 @@ Returns true when scrolling took place, otherwise nil."
                       (unless (zerop lines)
                         (setq delta-px-accum
                           (- delta-px-accum (* lines this-frame-char-height)))
-                        (let ((lines-remainder 
(scroll-on-drag--scroll-by-lines this-window lines t)))
-                          (setq do-draw t))))))
+                        (scroll-on-drag--scroll-by-lines this-window lines t)
+                        (setq do-draw t)))))
 
                 (when do-draw
                   (let
@@ -348,8 +345,7 @@ Returns true when scrolling took place, otherwise nil."
               (let
                 ((inhibit-redisplay nil))
                 (run-hooks 'scroll-on-drag-redisplay-hook)
-                (redisplay))
-              (setq restore-point-use-scroll-offset t))))))
+                (redisplay)))))))
 
     ;; Set arrow cursor (avoids annoying flicker on scroll).
     (when (display-graphic-p)