Current File : //usr/local/share/emacs/27.2/lisp/pixel-scroll.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(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 (#$ . 427))
#@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 (#$ . 576))
#@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 (#$ . 1091))
#@67 Time when the last scrolling was made, in second since the epoch.
(defvar pixel-last-scroll-time 0 (#$ . 1362))
#@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 #[nil "\304 \305\306 \"\n\"\307! *\207" [now pixel-last-scroll-time pixel-dead-time scroll-in-rush-p current-time time-less-p time-subtract float-time] 4 (#$ . 1481)])
#@272 Non-nil if Pixel-Scroll mode is enabled.
See the `pixel-scroll-mode' command
for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `pixel-scroll-mode'.
(custom-declare-variable 'pixel-scroll-mode nil '(#$ . 1968) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'scrolling :type 'boolean :version "26.1")
#@290 A minor mode to scroll text pixel-by-pixel.
If called interactively, enable Pixel-Scroll mode if ARG is positive,
and disable it if ARG is zero or negative. If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
(defalias 'pixel-scroll-mode #[(&optional arg) "\306 \307\302 \310=\203 \311\302!?\202 \312 !\313V\"\210\n\203$ \314\315\202( \316\317\320\321\311\302!\2034 \322\2025 \323\"\210\324\325!\203` \326\302!\210\306 \203M \306 \232\203` \327 \330\331\311\302!\203[ \332\202\\ \333
#\210))\334 \210\311\302!\207" [#1=#:last-message arg pixel-scroll-mode mwheel-scroll-up-function mwheel-scroll-down-function local current-message set-default toggle default-value prefix-numeric-value 0 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] 4 (#$ . 2424) (list (or current-prefix-arg 'toggle))])
(defvar pixel-scroll-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\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.)" add-minor-mode pixel-scroll-mode nil boundp] 6)
#@108 Scroll text of selected window up ARG lines.
This is an alternative of `scroll-up'. Scope moves downward.
(defalias 'pixel-scroll-up #[(&optional arg) "\204 \305\306 \203 \307!\207\310 \nW\205b \203+ \250\203& \202- \311 \202- \312 \313 \203: \307\305!\210\202Z \3142U \315\f!\205T \316\305!\305Y\204> \317\314\320\"\210\202> 0\210\321\f!\210) T\211\202 *\207" [arg ii --dotimes-limit-- pixel-resolution-fine-flag amt 1 pixel-scroll-in-rush-p scroll-up 0 frame-char-height pixel-line-height pixel-eob-at-top-p no-movement pixel-point-at-top-p vertical-motion throw nil pixel-scroll-pixel-up] 4 (#$ . 3963) nil])
#@111 Scroll text of selected window down ARG lines.
This is and alternative of `scroll-down'. Scope moves upward.
(defalias 'pixel-scroll-down #[(&optional arg) "\204 \305\306 \203 \307!\207\310 \nW\205i \203+ \250\203& \202. \311 \202. \312\313! \3142J \315\f!\205I \316\313!\313X\2043 \317\314\320\"\210\2023 0\210\321\f!\204V \322 \203] \307\305!\210\202a \323\f!\210) T\211\202 *\207" [arg ii --dotimes-limit-- pixel-resolution-fine-flag amt 1 pixel-scroll-in-rush-p scroll-down 0 frame-char-height pixel-line-height -1 no-movement pixel-point-at-bottom-p vertical-motion throw nil pixel-bob-at-top-p pixel-eob-at-top-p pixel-scroll-pixel-down] 4 (#$ . 4597) nil])
#@135 Return non-nil if window-start is at beginning of the current buffer.
Window must be vertically scrolled by not more than AMT pixels.
(defalias 'pixel-bob-at-top-p #[(amt) "\301 e\232\205
\302\303\304\"W\207" [amt window-start window-vscroll nil t] 3 (#$ . 5282)])
#@54 Return non-nil if end of buffer is at top of window.
(defalias 'pixel-eob-at-top-p #[nil "\300\301 \302 \"\303X\207" [count-lines window-start window-end 2] 3 (#$ . 5555)])
#@105 Return y coordinates of point in pixels of current window.
This returns nil when horizontally scrolled.
(defalias 'pixel-posn-y-at-point #[nil "\300 \301\232\205 \212\302 \210\303 \3048\262A)\207" [window-hscroll 0 beginning-of-visual-line posn-at-point 2] 3 (#$ . 5735)])
#@163 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.
(defalias 'pixel-point-at-top-p #[(amt) "\303 \304\211\203 \211\nW\202 \305\306 `\"\307X*\207" [top-margin y amt pixel-posn-y-at-point nil count-lines window-start 1] 4 (#$ . 6018)])
#@139 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.
(defalias 'pixel-point-at-bottom-p #[(amt) "\305 \3068A@Z\307 \310\n\205 \n\311 \\Z\211\fW,\207" [edges height y bottom-margin amt window-inside-pixel-edges 3 pixel-posn-y-at-point nil pixel-visual-line-height] 4 (#$ . 6376)])
#@70 Scroll text of selected windows up AMT pixels.
Scope moves downward.
(defalias 'pixel-scroll-pixel-up #[(amt) "\301\302\303\"\\\304 Y\203 \305 Z\202 \306!\207" [amt window-vscroll nil t pixel-line-height pixel--whistlestop-line-up pixel--whistlestop-pixel-up] 3 (#$ . 6756)])
#@70 Scroll text of selected windows down AMT pixels.
Scope moves upward.
(defalias 'pixel-scroll-pixel-down #[(amt) "\303V\2058 \304\305\306\"\211\303\232\203& \307 \303V\203 \310\311!\210\312\313\311!S!\210\202- \314\305 S\306#\210S\315\n!\210)\202 \207" [amt vs 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] 5 (#$ . 7044)])
#@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 #[nil "\306\307\310\"\311 \245T\211 _\211Z \312\fS!\210\n\313
W\203< \314 \313V\2031 \315\316!\210\317\316!\210
T\211\202 *\320!\210\f-\207" [src height line dst delta ii window-vscroll nil t pixel-line-height pixel--whistlestop-pixel-up 0 window-hscroll vertical-motion 1 scroll-up sit-for --dotimes-limit-- pixel-wait] 4 (#$ . 7488)])
#@86 Scroll text upward by N pixels with each pixel whistlestopped.
Scope moves downward.
(defalias 'pixel--whistlestop-pixel-up #[(n) "\305V\205/ \306\307\310\"\311 T \\\"\307\211\205. @\312\307\n\310#\210\313\f!\210 A\211\204 \307+\207" [n vs0 vs --dolist-tail-- pixel-wait 0 window-vscroll nil t number-sequence set-window-vscroll sit-for] 5 (#$ . 8273)])
#@198 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.
(defalias 'pixel-line-height #[(&optional pos) "\204 \303 \304W\203 \305 \306\307\310\"\307\311\307\304\310#\210\212b\210\312 )\311\307\n\310#\210 *\207" [pos height vs1 window-start 0 pixel-point-at-unseen-line window-vscroll nil t set-window-vscroll pixel-visual-line-height] 4 (#$ . 8643)])
#@78 Return height in pixels of text line where cursor is in the selected window.
(defalias 'pixel-visual-line-height #[nil "\301 \211\203 \212b\210\302 )\202\" \303\304 `\"\305\232\203 \302 \202\" \306 )\207" [pos pixel-visible-pos-in-window line-pixel-height count-lines window-start 1 frame-char-height] 4 (#$ . 9150)])
#@258 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 #[nil "\212\306 \210`)\212\307 \210`)\310 \"\311 \312 8 @Z \313\211 \nB`\nB\314\n!\210\204] \n\203] \315\n@\313\316#@\211\203W \317
X\203W
\fW\203W \n@\211\2020 \nA\202. .\207" [beginning-of-visual-line-pos end-of-visual-line-pos pos-list edges width posn-x 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 visible-pos] 5 (#$ . 9479)])
#@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 #[nil "\305 \306\307\310\"\212b\210o\203 e\202& `\311\312!\n =\203$ \313\314!\210`*) \315\307\310#\210\316\307 \310#\210\f+\207" [pos0 vscroll0 tem ppos pos window-start window-vscroll nil t beginning-of-visual-line 0 vertical-motion -1 set-window-start set-window-vscroll] 4 (#$ . 10221)])
#@228 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.
(defalias 'pixel-scroll-down-and-set-window-vscroll #[(vscroll) "\301\302\303 \304#\210\305\302\304#\207" [vscroll set-window-start nil pixel-point-at-unseen-line t set-window-vscroll] 4 (#$ . 10746)])
(provide 'pixel-scroll)
Mini Shell