procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
* lisp/pixel-scroll.el (pixel-scroll-precision)
(pixel-scroll-down, pixel-scroll-up): Put the 'scroll-command'
property on these commands.  (Bug#63640)
This commit is contained in:
Eli Zaretskii 2023-05-22 14:20:38 +03:00
parent ecccdc07a0
commit 6ad041939b
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/pixel-scroll.el
View file

@ -290,6 +290,10 @@ This is and alternative of `scroll-down'. Scope moves upward."
(scroll-down 1) ; relay on robust method (scroll-down 1) ; relay on robust method
(pixel-scroll-pixel-down amt)))))) (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) (defun pixel-bob-at-top-p (amt)
"Return non-nil if window-start is at beginning of the current buffer. "Return non-nil if window-start is at beginning of the current buffer.
Window must be vertically scrolled by not more than AMT pixels." Window must be vertically scrolled by not more than AMT pixels."
@ -728,6 +732,9 @@ wheel."
(message (error-message-string '(end-of-buffer)))))))))) (message (error-message-string '(end-of-buffer))))))))))
(mwheel-scroll event nil)))) (mwheel-scroll event nil))))
;; isearch-scroll support
(put 'pixel-scroll-precision 'scroll-command t)
(defun pixel-scroll-kinetic-state (&optional window) (defun pixel-scroll-kinetic-state (&optional window)
"Return the kinetic scroll state of WINDOW. "Return the kinetic scroll state of WINDOW.
If WINDOW is nil, return the state of the current window. If WINDOW is nil, return the state of the current window.