Current File : //proc/self/root/kunden/proc/self/root/usr/share/emacs/27.2/lisp/mwheel.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\207" [require custom timer] 2)
(defalias 'mouse-wheel-change-button #[(var button) "\303	\"\210\304\302!\205\n\205\302\305!\207" [var button mouse-wheel-mode set-default boundp 1] 3])
(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\300\312\313\314\304\305\306\307\310\311&	\210\300\315\316\317\304\305\306\307\310\311&	\210\300\320\321\322\304\305\306\323&\210\300\324\325\326\304\305\306\327\310\311\330\331&\210\300\332\333\334\304\305\306\335&\210\300\336\333\337\304\305\306\335&\210\300\340\341\342\304\305\306\335\330\343&	\210\300\344\341\345\304\305\306\335\330\343&	\210\346\347!\203~\350\347M\210\202\203\351\350\352\"\210\346\353!\203\220\354\353M\210\202\225\351\354\355\"\210\341\207" [custom-declare-variable mouse-wheel-down-event (if (or (featurep 'w32-win) (featurep 'ns-win)) 'wheel-up 'mouse-4) "Event used for scrolling down." :group mouse :type symbol :set mouse-wheel-change-button mouse-wheel-up-event (if (or (featurep 'w32-win) (featurep 'ns-win)) 'wheel-down 'mouse-5) "Event used for scrolling up." mouse-wheel-click-event 'mouse-2 "Event that should be temporarily inhibited after mouse scrolling.\nThe mouse wheel is typically on the mouse-2 button, so it may easily\nhappen that text is accidentally yanked into the buffer when\nscrolling with the mouse wheel.  To prevent that, this variable can be\nset to the event sent when clicking on the mouse wheel button." mouse-wheel-inhibit-click-time 0.35 "Time in seconds to inhibit clicking on mouse wheel button after scroll." number mouse-wheel-scroll-amount '(5 ((shift) . 1) ((meta)) ((control) . text-scale)) "Amount to scroll windows by when spinning the mouse wheel.\nThis is an alist mapping the modifier key to the amount to scroll when\nthe wheel is moved with the modifier key depressed.\nElements of the list have the form (MODIFIER . AMOUNT) or just AMOUNT if\nMODIFIER is nil.\n\nAMOUNT should be the number of lines to scroll, or nil for near full\nscreen.  It can also be a floating point number, specifying the fraction of\na full screen to scroll.  A near full screen is `next-screen-context-lines'\nless than a full screen.\n\nIf AMOUNT is the symbol text-scale, this means that with\nMODIFIER, the mouse wheel will change the face height instead of\nscrolling." (cons (choice :tag "Normal" (const :tag "Full screen" :value nil) (integer :tag "Specific # of lines") (float :tag "Fraction of window") (cons (repeat (choice :tag "modifier" (const alt) (const control) (const hyper) (const meta) (const shift) (const super))) (choice :tag "action" (const :tag "Scroll full screen" :value nil) (integer :tag "Scroll specific # of lines") (float :tag "Scroll fraction of window")))) (repeat (cons (repeat (choice :tag "modifier" (const alt) (const control) (const hyper) (const meta) (const shift) (const super))) (choice :tag "action" (const :tag "Scroll full screen" :value nil) (integer :tag "Scroll specific # of lines") (float :tag "Scroll fraction of window") (const :tag "Change face size" :value text-scale))))) :version "27.1" mouse-wheel-progressive-speed t "If non-nil, the faster the user moves the wheel, the faster the scrolling.\nNote that this has no effect when `mouse-wheel-scroll-amount' specifies\na \"near full screen\" scroll or when the mouse wheel sends key instead\nof button events." boolean mouse-wheel-follow-mouse "Whether the mouse wheel should scroll the window that the mouse is over.\nThis affects both the commands for scrolling and changing the\nface height." mouse-wheel-tilt-scroll nil "Enable horizontal scrolling by tilting mouse wheel or via touchpad.\nAlso see `mouse-wheel-flip-direction'." "26.1" mouse-wheel-flip-direction "Swap direction of `wheel-right' and `wheel-left'.\nBy default, `wheel-right' scrolls the text to the right,\nand `wheel-left' scrolls in the other direction.\nIf this variable is non-nil, it inverts the direction of\nhorizontal scrolling by tilting the mouse wheel.\nAlso see `mouse-wheel-tilt-scroll'." fboundp event-button mwheel-event-button defalias #[(event) "\305!\211\306=\203AAA@\211\307W\203\202\f)\202 	)\207" [event x amount mouse-wheel-up-event mouse-wheel-down-event event-basic-type mouse-wheel 0] 3] event-window mwheel-event-window #[(event) "\301!\211@\207" [event event-start] 2]] 12)
#@59 Timer running while mouse wheel click event is inhibited.
(defvar mwheel-inhibit-click-event-timer nil (#$ . 4742))
#@49 Handler for `mwheel-inhibit-click-event-timer'.
(defalias 'mwheel-inhibit-click-timeout #[nil "\301\302\303\304\"\207" [mwheel-inhibit-click-event-timer nil remove-hook pre-command-hook mwheel-filter-click-events] 3 (#$ . 4864)])
#@62 Discard `mouse-wheel-click-event' while scrolling the mouse.
(defalias 'mwheel-filter-click-events #[nil "\303!	=\205\304\211\207" [last-input-event mouse-wheel-click-event this-command event-basic-type ignore] 2 (#$ . 5101)])
#@49 Function that does the job of scrolling upward.
(defvar mwheel-scroll-up-function 'scroll-up (#$ . 5338))
#@51 Function that does the job of scrolling downward.
(defvar mwheel-scroll-down-function 'scroll-down (#$ . 5450))
#@47 Function that does the job of scrolling left.
(defvar mwheel-scroll-left-function 'scroll-left (#$ . 5568))
#@48 Function that does the job of scrolling right.
(defvar mwheel-scroll-right-function 'scroll-right (#$ . 5682))
#@32 Event used for scrolling left.
(defvar mouse-wheel-left-event (byte-code "\300\301!\204\f\300\302!\203\303\207\304\305!\207" [featurep w32-win ns-win wheel-left intern "mouse-6"] 2) (#$ . 5799))
#@33 Event used for scrolling right.
(defvar mouse-wheel-right-event (byte-code "\300\301!\204\f\300\302!\203\303\207\304\305!\207" [featurep w32-win ns-win wheel-right intern "mouse-7"] 2) (#$ . 6003))
#@184 Return window for mouse wheel event EVENT.
If `mouse-wheel-follow-mouse' is non-nil, return the window that
the mouse pointer is over.  Otherwise, return the currently
active window.
(defalias 'mouse-wheel--get-scroll-window #[(event) "\30627\203\307	!\202\310 \311\n!\205\312\313\n!\314\"\315!\2055\316 \211@\fA\317\320\321\322$+*0\206=\307	!\207" [mouse-wheel-follow-mouse event window frame pos pos-x found mwheel-event-window selected-window window-live-p frame-parameter window-frame mouse-wheel-frame frame-live-p mouse-absolute-pixel-position walk-window-tree #[(window-1) "\304\305\306\211$\211@\nX\205*\n\307	8X\205*	A@X\205*\310	8X\205*\311\312\")\207" [window-1 edges pos-x pos-y window-edges nil t 2 3 throw found] 6] nil t pos-y] 6 (#$ . 6211)])
#@125 Scroll up or down according to the EVENT.
This should be bound only to mouse buttons 4, 5, 6, and 7 on
non-Windows systems.
(defalias 'mwheel-scroll #[(event) "\300 \306	!\211=\205\242\307=\205\310 \311\312\311\313\311\314\315	!\"\"\"\316
,\"-\317.\n=\2049\320\n\321\"\210-\203F-A-\202Y,//\211A/\242\211-:\204J)\322-!\203j\323-\324 _!T-0\203\222-\247\203\222-	\211:\203\214\325
8\250\203\214\325
8\262
\202\217\326\262
_--\247\203\265-	\211:\203\257\327
8\250\203\257\327
8\262
\202\262\326\262
_-\3301U
\3311F
\332\216\333	!\21112=\203\342\3341\3303-!0\202@
\210\335\2163 )\202@
14=\203\377\3361\3675-!0\202@
\2105 \210\202\37016=\203
7\205@
8\203
9\202
:-!\202@
1;=\203=
7\205@
8\2035
:\2027
9-!\202@
\337\340!*00\202`
0\210\341\342\343!!\210\344\211.\202`
\210\341\342\345!!\210\344\211.\210.?\205\214
<\205\214
=\205\214
>\203~
\346>!\210\202\203
\347\350\351\"\210\352=\317\353#\211>.\207" [selected-window event scroll-window transient-mark-mode old-point mods mouse-wheel--get-scroll-window only window-point delq click double triple event-modifiers assoc nil select-window mark-for-redisplay floatp truncate window-height 2 1 3 (end-of-buffer) (beginning-of-buffer) #[nil "	=\203\n\205\n\304 U?\205#\304 \nb\210\305 \210b)\207\306	\307\"\207" [scroll-window selected-window old-point new-point window-point deactivate-mark select-window t] 3] mwheel-event-button (beginning-of-buffer) #[nil "\300\301 e\"\207" [set-window-start selected-window] 3] (end-of-buffer) error "Bad binding in mwheel-scroll" message error-message-string (beginning-of-buffer) t (end-of-buffer) cancel-timer add-hook pre-command-hook mwheel-filter-click-events run-with-timer mwheel-inhibit-click-timeout mouse-wheel-scroll-amount amt saw-error list-elt mouse-wheel-progressive-speed button mouse-wheel-down-event mwheel-scroll-down-function mouse-wheel-up-event mwheel-scroll-up-function mouse-wheel-left-event mouse-wheel-tilt-scroll mouse-wheel-flip-direction mwheel-scroll-right-function mwheel-scroll-left-function mouse-wheel-right-event mouse-wheel-click-event mouse-wheel-inhibit-click-time mwheel-inhibit-click-event-timer] 9 (#$ . 7004) (list last-input-event)])
(put 'mwheel-scroll 'scroll-command t)
#@77 Increase or decrease the height of the default face according to the EVENT.
(defalias 'mouse-wheel-text-scale #[(event) "\303 \306!\307!\310\n\311\"\210\312\216	\f=\203\313\314!\202'	
=\205'\315\314!,\207" [event button scroll-window selected-window mouse-wheel-down-event mouse-wheel-up-event mouse-wheel--get-scroll-window mwheel-event-button select-window mark-for-redisplay #[nil "\301!\207" [selected-window select-window] 2] text-scale-increase 1 text-scale-decrease] 4 (#$ . 9301) (list last-input-event)])
(defvar mwheel-installed-bindings nil)
(defvar mwheel-installed-text-scale-bindings nil)
#@178 Remove key BINDINGS if they're bound to any function in FUNS.
BINDINGS is a list of key bindings, FUNS is a list of functions.
This is a helper function for `mouse-wheel-mode'.
(defalias 'mouse-wheel--remove-bindings #[(bindings funs) "\304\211\205!\n@\305\306 	\">\203\307	!\210\nA\211\204\304*\207" [bindings key --dolist-tail-- funs nil lookup-key current-global-map global-unset-key] 4 (#$ . 9921)])
#@269 Non-nil if Mouse-Wheel mode is enabled.
See the `mouse-wheel-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 `mouse-wheel-mode'.
(custom-declare-variable 'mouse-wheel-mode t '(#$ . 10343) :set 'custom-set-minor-mode :initialize 'custom-initialize-delay :group 'mouse :type 'boolean)
#@292 Toggle mouse wheel support (Mouse Wheel mode).

If called interactively, enable Mouse-Wheel 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 'mouse-wheel-mode #[(&optional arg) "\306 \307\304	\310=\203\311\304!?\202\312	!\313V\"\210\314\n\315\"\210\314\316\"\210\317\211\f\203\307
\317#\211$\203\306$@\211#:\203~#A\320=\203~%&D\317'\211$\203z$@'\321#@@'D!(\322(\323\"\210(B)$A\211$\204U*\202\275%&)*F\317'\211$\203\274$@'\321\324#:\205\240#@'C\"!(\322(\325\"\210(\nB)$A\211$\204\220*$A\211$\2045*\326\327\311\304!\203\323\330\202\324\331\"\210\332\333!\203

\334\304!\210\306 \203\354\306 \232\203

\335+\336\337\311\304!\203\373\340\202\374\341+#\210))\342 \210\311\304!\207" [#1=#:last-message arg mwheel-installed-bindings mwheel-installed-text-scale-bindings mouse-wheel-mode mouse-wheel-scroll-amount current-message set-default toggle default-value prefix-numeric-value 0 mouse-wheel--remove-bindings (mwheel-scroll) (mouse-wheel-text-scale) nil text-scale vector global-set-key mouse-wheel-text-scale append mwheel-scroll run-hooks mouse-wheel-mode-hook mouse-wheel-mode-on-hook mouse-wheel-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Mouse-Wheel mode %sabled%s" "en" "dis" force-mode-line-update binding --dolist-tail-- mouse-wheel-down-event mouse-wheel-up-event event key mouse-wheel-right-event mouse-wheel-left-event local] 5 (#$ . 10772) (list (or current-prefix-arg 'toggle))])
(defvar mouse-wheel-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\211%\207" [mouse-wheel-mode-map mouse-wheel-mode-hook variable-documentation put "Hook run after entering or leaving `mouse-wheel-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 mouse-wheel-mode nil boundp] 6)
#@29 Enable mouse wheel support.
(defalias 'mwheel-install #[(&optional uninstall) "\301\203	\302\202\n\303!\207" [uninstall mouse-wheel-mode -1 1] 2 (#$ . 12856)])
(byte-code "\300\301\302\303#\210\304\305!\207" [make-obsolete mwheel-install mouse-wheel-mode "27.1" provide mwheel] 4)