HOME

Mini Shell 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/mwheel.elc
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; 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])
(defvar mouse-wheel-down-button 4)
(byte-code "\300\301\302\303#\210\304\302\305\306\307\310\311\312\313\314&	\207" [make-obsolete-variable mouse-wheel-down-button mouse-wheel-down-event "22.1" custom-declare-variable (if (or (featurep 'w32-win) (featurep 'ns-win)) 'wheel-up (intern (format "mouse-%s" mouse-wheel-down-button))) "Event used for scrolling down." :group mouse :type symbol :set mouse-wheel-change-button] 10)
(defvar mouse-wheel-up-button 5)
(byte-code "\300\301\302\303#\210\304\302\305\306\307\310\311\312\313\314&	\207" [make-obsolete-variable mouse-wheel-up-button mouse-wheel-up-event "22.1" custom-declare-variable (if (or (featurep 'w32-win) (featurep 'ns-win)) 'wheel-down (intern (format "mouse-%s" mouse-wheel-up-button))) "Event used for scrolling up." :group mouse :type symbol :set mouse-wheel-change-button] 10)
(defvar mouse-wheel-click-button 2)
(byte-code "\300\301\302\303#\210\304\302\305\306\307\310\311\312\313\314&	\210\304\315\316\317\307\310\311\320&\210\304\321\322\323\307\310\311\324\313\314&	\210\304\325\326\327\307\310\311\330&\210\304\331\326\332\307\310\311\330&\210\304\333\334\335\307\310\311\330\336\337&	\210\304\340\334\341\307\310\311\330\336\337&	\210\342\343!\203h\344\343M\210\202m\345\344\346\"\210\342\347!\203z\350\347M\210\202\345\350\351\"\210\334\207" [make-obsolete-variable mouse-wheel-click-button mouse-wheel-click-event "22.1" custom-declare-variable (intern (format "mouse-%s" mouse-wheel-click-button)) "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." :group mouse :type symbol :set mouse-wheel-change-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) ((control))) "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 (MODIFIERS . AMOUNT) or just AMOUNT if\nMODIFIERS 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." (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 "scroll amount" (const :tag "Full screen" :value nil) (integer :tag "Specific # of lines") (float :tag "Fraction of window")))) (repeat (cons (repeat (choice :tag "modifier" (const alt) (const control) (const hyper) (const meta) (const shift) (const super))) (choice :tag "scroll amount" (const :tag "Full screen" :value nil) (integer :tag "Specific # of lines") (float :tag "Fraction of window"))))) 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 can be slightly disconcerting, but some people prefer it." mouse-wheel-tilt-scroll nil "Enable scroll using tilting mouse wheel." :version "26.1" mouse-wheel-flip-direction "Swap direction of 'wheel-right and 'wheel-left." 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]] 10)
#@59 Timer running while mouse wheel click event is inhibited.
(defvar mwheel-inhibit-click-event-timer nil (#$ . 4808))
#@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 (#$ . 4930)])
#@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 (#$ . 5167)])
#@49 Function that does the job of scrolling upward.
(defvar mwheel-scroll-up-function 'scroll-up (#$ . 5404))
#@51 Function that does the job of scrolling downward.
(defvar mwheel-scroll-down-function 'scroll-down (#$ . 5516))
#@47 Function that does the job of scrolling left.
(defvar mwheel-scroll-left-function 'scroll-left (#$ . 5634))
#@48 Function that does the job of scrolling right.
(defvar mwheel-scroll-right-function 'scroll-right (#$ . 5748))
#@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) (#$ . 5865))
#@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) (#$ . 6069))
#@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 \3062;	\203\307\n!\202\300 \310!\205 \311\312!\313\"\314\f!\2059\315 \211@/
A0\316\317\f\320\321$+*0\206A\307\n!\2111=\205S2\242\322=\205S\323 3\324\325\324\326\324\327\330\n!\"\"\"4\33145\"61=\204x\3321\333\"\2106\203\2056A6\202\230577\211A7\242\2116:\204\211)\3346!\203\251\3356\336 _!T68\203\3216\247\203\3216\n\211:\203\313\3378\250\203\313\3378\262\202\316\340\262_66\247\203\3646\n\211:\203\356\3418\250\203\356\3418\262\202\361\340\262_6\342\216\343\n!\2119:=\203\3441;6!0\202\210\345\216; )\210\2029<=\203;\3461/=6!0\2027\210= \210\2020\210\2029>=\203[?\203@\203RA\202TB6!\210\2029C=\203{?\203@\203rB\202tA6!\210\202\347\350!\210.D\205\246E\205\246F\203\230\351F!\210\202\235\352\353\354\"\210\355E\320\356#\211F\207" [selected-window mouse-wheel-follow-mouse event window frame pos found mwheel-event-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 only window-point delq click double triple event-modifiers assoc select-window mark-for-redisplay floatp truncate window-height 2 1 3 #[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" cancel-timer add-hook pre-command-hook mwheel-filter-click-events run-with-timer mwheel-inhibit-click-timeout pos-x pos-y scroll-window transient-mark-mode old-point mods mouse-wheel-scroll-amount amt 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 (#$ . 6277) (list last-input-event)])
(put 'mwheel-scroll 'scroll-command t)
(defvar mwheel-installed-bindings nil)
#@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 '(#$ . 8881) :set 'custom-set-minor-mode :initialize 'custom-initialize-delay :group 'mouse :type 'boolean)
#@210 Toggle mouse wheel support (Mouse Wheel mode).
With a prefix argument ARG, enable Mouse Wheel mode if ARG is
positive, and disable it otherwise.  If called from Lisp, enable
the mode if ARG is omitted or nil.
(defalias 'mouse-wheel-mode #[(&optional arg) "\306 \307\304	\310=\203\311\304!?\202\312	!\313V\"\210\n\2035\n\211A\242\314\315 \"\316=\2031\317!\210)\202\f\203}
!\"#F\320$\211%\203|%@$\321\322&\"\320\211%\203r%@\323\316\"\210\nB%A\211%\204\\*%A\211%\204J*\324\325\311\304!\203\211\326\202\212\327\"\210\330\331!\203\267\332\304!\210\306 \203\242\306 \232\203\267\333'\334\335\311\304!\203\261\336\202\262\337'#\210))\340 \210\311\304!\207" [#1=#:last-message arg mwheel-installed-bindings key mouse-wheel-mode mouse-wheel-down-event current-message set-default toggle default-value prefix-numeric-value 0 lookup-key current-global-map mwheel-scroll global-unset-key nil mapcar #[(amt) "\302\303:\205	@	C\"!\207" [amt event vector append] 4] global-set-key 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 mouse-wheel-up-event mouse-wheel-right-event mouse-wheel-left-event event --dolist-tail-- mouse-wheel-scroll-amount local] 5 (#$ . 9309) (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 (#$ . 11144)])
(provide 'mwheel)