Make `pixel-scroll-precision-scroll-up' work better with overlays

* lisp/pixel-scroll.el (pixel-scroll-precision-scroll-up):
Just set vscroll when on overlay.

diff --git a/lisp/pixel-scroll.el b/lisp/pixel-scroll.el
index 4280dc2587bb2cb1d6288b2939f5512f040d2520..888320cf1ae9e4cdf9140dfd589acb29ae9ad4fd 100644 (file)
--- a/lisp/pixel-scroll.el
+++ b/lisp/pixel-scroll.el
@@ -456,9 +456,14 @@ the height of the current window."
                                                   (window-header-line-height))))
                    (desired-start (posn-point desired-pos))
                    (desired-vscroll (cdr (posn-object-x-y desired-pos))))
-          (unless (eq (window-start) desired-start)
-            (set-window-start nil desired-start t))
-          (set-window-vscroll nil desired-vscroll t))))))
+          (let ((object (posn-object desired-pos)))
+            (if (or (consp object) (stringp object))
+                (set-window-vscroll nil (+ (window-vscroll nil t)
+                                           (- delta))
+                                    t)
+              (unless (eq (window-start) desired-start)
+                (set-window-start nil desired-start t))
+              (set-window-vscroll nil desired-vscroll t))))))))
 
 ;; FIXME: This doesn't work when there's an image above the current
 ;; line that is taller than the window.