;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(require 'mwheel)
#@110 Idle time on each step of pixel scroll specified in second.
More wait will result in slow and gentle scroll.
(defvar pixel-wait 0 (#$ . 103))
#@458 Set scrolling resolution to pixels instead of a line.
When it is t, scrolling resolution is number of pixels obtained
by `frame-char-height' instead of a line.  When it is number,
scrolling resolution is set to number of pixels specified.  In
case you need scrolling resolution of a pixel, set to 1.  After a
pixel scroll, typing \[next-line] or \[previous-line] scrolls the window to make it
fully visible, and undoes the effect of the pixel-level scroll.
(defvar pixel-resolution-fine-flag nil (#$ . 252))
#@225 Minimal interval in seconds before next smooth scrolling.
If another scrolling request arrives within this period, scrolling
will be carried out without pixel resolution.  If zero, scrolling
is always with pixel resolution.
(defvar pixel-dead-time 0.1 (#$ . 767))
#@67 Time when the last scrolling was made, in second since the epoch.
(defvar pixel-last-scroll-time 0 (#$ . 1037))
#@274 Return non-nil if next scroll should be non-smooth.
When scrolling request is delivered soon after the previous one,
user is in hurry.  When the time since last scroll is larger than
`pixel-dead-time', we are ready for another smooth scroll, and this
function returns nil.
(defalias 'pixel-scroll-in-rush-p #[0 "\302 \303\304\"	\"\305!\207" [pixel-last-scroll-time pixel-dead-time current-time time-less-p time-subtract float-time] 5 (#$ . 1156)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315\316\317&
\207" [custom-declare-variable pixel-scroll-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Pixel-Scroll mode is enabled.\nSee the `pixel-scroll-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `pixel-scroll-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group scrolling :version "26.1"] 14)
#@623 A minor mode to scroll text pixel-by-pixel.

This is a minor mode.  If called interactively, toggle the
`Pixel-Scroll mode' mode.  If the prefix argument is positive, enable
the mode, and if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `(default-value \='pixel-scroll-mode)'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

(fn &optional ARG)
(defalias 'pixel-scroll-mode #[256 "\304 \305\301\306=\203\307\301!?\202!\247\203 \310W\203 \311\202!\312\"\210\313\300!\2038\314\301\"\307\301!\2038\301B	\203C\315\316\202G\317\320\321\322\307\301!\203S\323\202T\324\"\210\325\326!\203|\327\301!\210\304 \203l\211\304 \232\203|\330\331\307\301!\203x\332\202y\333\334#\210\210\335 \210\307\301!\207" [global-minor-modes pixel-scroll-mode mwheel-scroll-up-function mwheel-scroll-down-function current-message set-default toggle default-value 1 nil t boundp delq pixel-scroll-up pixel-scroll-down scroll-up scroll-down run-hooks pixel-scroll-mode-hook pixel-scroll-mode-on-hook pixel-scroll-mode-off-hook called-interactively-p any customize-mark-as-set message "Pixel-Scroll mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 2183) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar pixel-scroll-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [pixel-scroll-mode-map pixel-scroll-mode-hook variable-documentation put "Hook run after entering or leaving `pixel-scroll-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode pixel-scroll-mode boundp] 6)
#@128 Scroll text of selected window up ARG lines.
This is an alternative of `scroll-up'.  Scope moves downward.

(fn &optional ARG)
(defalias 'pixel-scroll-up #[256 "\211\204\301\262
\302 \203\303
!\207\304\211W\205a\305\203*\250\203%\202,\306 \202,\307 \310 \2039\303\301!\266\202Z\3112T\312
!\205S\313\301!\301Y\204=\314\311\305\"\210\202=0\210\315
!\266\211T\262
\202\207" [pixel-resolution-fine-flag 1 pixel-scroll-in-rush-p scroll-up 0 nil frame-char-height pixel-line-height pixel-eob-at-top-p no-movement pixel-point-at-top-p vertical-motion throw pixel-scroll-pixel-up] 7 (#$ . 4237) nil])
#@131 Scroll text of selected window down ARG lines.
This is and alternative of `scroll-down'.  Scope moves upward.

(fn &optional ARG)
(defalias 'pixel-scroll-down #[256 "\211\204\301\262
\302 \203\303
!\207\304\211W\205h\305\203*\250\203%\202-\306 \202-\307\310!\3112H\312
!\205G\313\310!\310X\2041\314\311\305\"\210\20210\210\315
!\204T\316 \203\\\303\301!\266\202a\317
!\266\211T\262
\202\207" [pixel-resolution-fine-flag 1 pixel-scroll-in-rush-p scroll-down 0 nil frame-char-height pixel-line-height -1 no-movement pixel-point-at-bottom-p vertical-motion throw pixel-bob-at-top-p pixel-eob-at-top-p pixel-scroll-pixel-down] 7 (#$ . 4860) nil])
#@145 Return non-nil if window-start is at beginning of the current buffer.
Window must be vertically scrolled by not more than AMT pixels.

(fn AMT)
(defalias 'pixel-bob-at-top-p #[257 "\300 e\232\205
\301\302\303\"
W\207" [window-start window-vscroll nil t] 4 (#$ . 5534)])
#@54 Return non-nil if end of buffer is at top of window.
(defalias 'pixel-eob-at-top-p #[0 "\300\301 \302 \"\303X\207" [count-lines window-start window-end 2] 3 (#$ . 5811)])
#@105 Return y coordinates of point in pixels of current window.
This returns nil when horizontally scrolled.
(defalias 'pixel-posn-y-at-point #[0 "\300 \301=\205\212\302 \210\303 \304
8\262
A)\207" [window-hscroll 0 beginning-of-visual-line posn-at-point 2] 3 (#$ . 5989)])
#@173 Return if point is located at top of a window on coming scroll of AMT pixels.
When location of point was not obtained, this returns if point is at top
of window.

(fn AMT)
(defalias 'pixel-point-at-top-p #[257 "\300 \301
\203
\262
\211W\207\302\303 `\"\304X\207" [pixel-posn-y-at-point nil count-lines window-start 1] 6 (#$ . 6267)])
#@149 Return if point is located at bottom of window on coming scroll of AMT pixels.
When location of point was not obtained, this returns nil.

(fn AMT)
(defalias 'pixel-point-at-bottom-p #[257 "\300 \301
8
A@Z\302 \303
\205\304 \\Z\262
\211W\207" [window-inside-pixel-edges 3 pixel-posn-y-at-point nil pixel-visual-line-height] 8 (#$ . 6611)])
#@80 Scroll text of selected windows up AMT pixels.
Scope moves downward.

(fn AMT)
(defalias 'pixel-scroll-pixel-up #[257 "\300\301\302\"
\\\303 Y\203\211\304 Z\262
\202\305
!\207" [window-vscroll nil t pixel-line-height pixel--whistlestop-line-up pixel--whistlestop-pixel-up] 4 (#$ . 6962)])
#@80 Scroll text of selected windows down AMT pixels.
Scope moves upward.

(fn AMT)
(defalias 'pixel-scroll-pixel-down #[257 "\211\301V\2058\302\303\304\"\211\301=\203%\305 \301V\203\306\307!\210\310\311\307!S!\210\202,\312\303S\304#\210
S\262\313!\266\202\207" [pixel-wait 0 window-vscroll nil t window-hscroll vertical-motion -1 pixel-scroll-down-and-set-window-vscroll pixel-line-height set-window-vscroll sit-for] 6 (#$ . 7261)])
#@389 Scroll text upward a line with each pixel whistlestopped.
When `vscroll' is non-zero, complete scrolling a line.  When
`vscroll' is larger than height of multiple lines, for example
88, this flushes multiple lines.  At the end, `vscroll' will be
zero.  This assumes that the lines are with the same height.
Scope moves downward.  This function returns number of pixels
that was scrolled.
(defalias 'pixel--whistlestop-line-up #[0 "\301\302\303\"\304 

\245T\211_\211Z\305
S!\210\306\211W\2034\302\307 \306V\203(\310\311!\210\312\311!\266\211T\262
\202\210\313!\210\207" [pixel-wait window-vscroll nil t pixel-line-height pixel--whistlestop-pixel-up 0 window-hscroll vertical-motion 1 scroll-up sit-for] 9 (#$ . 7708)])
#@94 Scroll text upward by N pixels with each pixel whistlestopped.
Scope moves downward.

(fn N)
(defalias 'pixel--whistlestop-pixel-up #[257 "\211\301V\205,\302\303\304\"\305
T\\\"\211\205(\211@\306\303\304#\210\307!\210
A\266\202\202\262
\262
\207" [pixel-wait 0 window-vscroll nil t number-sequence set-window-vscroll sit-for] 8 (#$ . 8442)])
#@218 Return height in pixels of text line at POS in the selected window.
When POS is nil or negative, height of the first line or the coming
unseen line above the first line, respectively, is provided.

(fn &optional POS)
(defalias 'pixel-line-height #[256 "\211\204\300 \262
\211\301W\203\302 \262
\303\304\305\"\304\306\304\301\305#\210\212b\210\307 \262
)\306\304\305#\210\207" [window-start 0 pixel-point-at-unseen-line window-vscroll nil t set-window-vscroll pixel-visual-line-height] 7 (#$ . 8799)])
#@78 Return height in pixels of text line where cursor is in the selected window.
(defalias 'pixel-visual-line-height #[0 "\300 \211\203\212\211b\210\301 )\207\302\303 `\"\304=\203\301 \207\305 \207" [pixel-visible-pos-in-window line-pixel-height count-lines window-start 1 frame-char-height] 4 (#$ . 9312)])
#@264 Return position shown on text line where cursor is in the selected window.
This will look for positions of point and `end-of-visual-line',
then positions from `beginning-of-visual-line' to
`end-of-visual-line'.  When no char in a line is shown, this
returns nil.
(defalias 'pixel-visible-pos-in-window #[0 "\212\300 \210`)\212\301 \210`)\302\"\303 \304
8
@Z\305\211B\262`B\262\306!\210\211\204W\203W\307@\305\310#@\262
\203P\311X\203P
W\203P@\262
\202(A\262\202(\207" [beginning-of-visual-line end-of-visual-line number-sequence window-inside-pixel-edges 2 nil delete-dups pos-visible-in-window-p t 0] 11 (#$ . 9627)])
#@183 Return the character position of line above the selected window.
The returned value is the position of the first character on the
unseen line just above the scope of current window.
(defalias 'pixel-point-at-unseen-line #[0 "\300 \301\302\303\"\212
b\210o\203e\202#`\304\305!\211=\203 \306\307!\210`\266\202)\310\302\303#\210\311\302\303#\210\207" [window-start window-vscroll nil t beginning-of-visual-line 0 vertical-motion -1 set-window-start set-window-vscroll] 7 (#$ . 10276)])
#@242 Scroll down a line and set VSCROLL in pixels.
It is important to call `set-window-start' to force the display
engine use that particular position as the window-start point.
Otherwise, redisplay will reset the window's vscroll.

(fn VSCROLL)
(defalias 'pixel-scroll-down-and-set-window-vscroll #[257 "\300\301\302 \303#\210\304\301\303#\207" [set-window-start nil pixel-point-at-unseen-line t set-window-vscroll] 5 (#$ . 10773)])
(provide 'pixel-scroll)