Support 'isearch-allow-scroll' in 'pixel-scroll-precision-mode'

* lisp/pixel-scroll.el (pixel-scroll-precision)
(pixel-scroll-down, pixel-scroll-up): Put the 'scroll-command'
property on these commands.  (Bug#63640)

diff --git a/lisp/pixel-scroll.el b/lisp/pixel-scroll.el
index 487144144f53e98827225ffb2a8e33f896be9c15..5f412bf418a8f7fc7b948ea1349d1362f5c25b02 100644 (file)
--- a/lisp/pixel-scroll.el
+++ b/lisp/pixel-scroll.el
@@ -290,6 +290,10 @@ This is and alternative of `scroll-down'.  Scope moves upward."
             (scroll-down 1)              ; relay on robust method
           (pixel-scroll-pixel-down amt))))))
 
+;; isearch-scroll support
+(put 'pixel-scroll-up 'scroll-command t)
+(put 'pixel-scroll-down 'scroll-command t)
+
 (defun pixel-bob-at-top-p (amt)
   "Return non-nil if window-start is at beginning of the current buffer.
 Window must be vertically scrolled by not more than AMT pixels."
@@ -728,6 +732,9 @@ wheel."
                      (message (error-message-string '(end-of-buffer))))))))))
       (mwheel-scroll event nil))))
 
+;; isearch-scroll support
+(put 'pixel-scroll-precision 'scroll-command t)
+
 (defun pixel-scroll-kinetic-state (&optional window)
   "Return the kinetic scroll state of WINDOW.
 If WINDOW is nil, return the state of the current window.