emacs-29 6ad041939be: Support 'isearch-allow-scroll' in 'pixel-scroll-precision-mode'

[Eli Zaretskii]

branch: emacs-29
commit 6ad041939be794a8e325c23e41262303d288ae93
Author: Eli Zaretskii <eliz@gnu.org>
Commit: Eli Zaretskii <eliz@gnu.org>

    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)
---
 lisp/pixel-scroll.el | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/lisp/pixel-scroll.el b/lisp/pixel-scroll.el
index 487144144f5..5f412bf418a 100644
--- 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.