From: Eli Zaretskii <eliz@gnu.org>
Date: Mon, 22 May 2023 11:20:38 +0000 (+0300)
Subject: Support 'isearch-allow-scroll' in 'pixel-scroll-precision-mode'
X-Git-Tag: emacs-29.0.92~115
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6ad041939be794a8e325c23e41262303d288ae93;p=emacs.git

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 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.