diff options
author | Po Lu <luangruo@yahoo.com> | 2021-12-10 10:38:24 +0800 |
---|---|---|
committer | Po Lu <luangruo@yahoo.com> | 2021-12-10 10:38:24 +0800 |
commit | e8d90a3fd402c0c67bf4b4b29ac26108ead8845d (patch) | |
tree | cfe967cdd75519715b40f4dd8ced41ebe98d54c5 /lisp/pixel-scroll.el | |
parent | b867eb2216827fa90a8d3c647f80f77dc4ca3bf8 (diff) | |
download | emacs-e8d90a3fd402c0c67bf4b4b29ac26108ead8845d.tar.gz |
Remove unused let-bindings from pixel-scroll.el
* lisp/pixel-scroll.el
(pixel-scroll-precision-scroll-down-page): Remove unused
bindings.
Diffstat (limited to 'lisp/pixel-scroll.el')
-rw-r--r-- | lisp/pixel-scroll.el | 6 |
1 files changed, 1 insertions, 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 |