From e8d90a3fd402c0c67bf4b4b29ac26108ead8845d Mon Sep 17 00:00:00 2001 From: Po Lu Date: Fri, 10 Dec 2021 10:38:24 +0800 Subject: [PATCH] Remove unused let-bindings from pixel-scroll.el * lisp/pixel-scroll.el (pixel-scroll-precision-scroll-down-page): Remove unused bindings. --- lisp/pixel-scroll.el | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/lisp/pixel-scroll.el b/lisp/pixel-scroll.el index d7ce0bcdd9f..813fbb0711b 100644 --- a/lisp/pixel-scroll.el +++ b/lisp/pixel-scroll.el @@ -436,7 +436,6 @@ the height of the current window." (let* ((desired-pos (posn-at-x-y 0 (+ delta (window-tab-line-height) (window-header-line-height)))) - (object (posn-object desired-pos)) (desired-start (posn-point desired-pos)) (current-vs (window-vscroll nil t)) (start-posn (unless (eq desired-start (window-start)) @@ -451,10 +450,7 @@ the height of the current window." (goto-char desired-start) (when (zerop (vertical-motion (1+ scroll-margin))) (signal 'end-of-buffer nil)) - (point))) - (end-pos (posn-at-x-y 0 (+ usable-height - (window-tab-line-height) - (window-header-line-height))))) + (point)))) (when (and (or (< (point) next-pos)) (let ((pos-visibility (pos-visible-in-window-p next-pos nil t))) (and pos-visibility -- 2.39.5