From 6ad041939be794a8e325c23e41262303d288ae93 Mon Sep 17 00:00:00 2001
From: Eli Zaretskii <eliz@gnu.org>
Date: Mon, 22 May 2023 14:20:38 +0300
Subject: [PATCH] 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.
--
2.39.5