? Fallagassrini
Fallagassrini Bypass Shell

echo"Fallagassrini ";
Current Path : /usr/share/emacs/24.3/lisp/
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64
Current File : //usr/share/emacs/24.3/lisp/mwheel.elc
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:12:51 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/mwheel.el
;;; in Emacs version 24.3
;;; 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\333\334!\203N\335\334M\210\202S\336\335\337\"\210\333\340!\203`\341\340M\210\202e\336\341\342\"\210\300\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." 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) "\302!\211@)\207" [event position event-start] 3]] 10)
#@59 Timer running while mouse wheel click event is inhibited.
(defvar mwheel-inhibit-click-event-timer nil (#$ . 4702))
#@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 (#$ . 4824)])
#@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 (#$ . 5061)])
#@49 Function that does the job of scrolling upward.
(defvar mwheel-scroll-up-function 'scroll-up (#$ . 5298))
#@51 Function that does the job of scrolling downward.
(defvar mwheel-scroll-down-function 'scroll-down (#$ . 5410))
#@95 Scroll up or down according to the EVENT.
This should only be bound to mouse buttons 4 and 5.
(defalias 'mwheel-scroll #[(event) "\205\f\306 \307\310	!!\210\311\n!rq\210\f\242\312=\205`)\313\314\313\315\313\316\317	!\"\"\"0\32001\"\2112\203A2A2\202T133\211A3@\2112:\204E)\3212!\203e\3222\323 _!T24\203\2132\247\203\2132	\211:\203\206\324	8\250\203\206\324	8\202\207\325)_2\326\216\327	!\21156=\203\241\330\331\332\217\210\202\26557=\203\261\330\333\334\217\210\202\265\335\336!\210*
\203Vrq\210
`U\204U`8
b\210\3309\f\204\3269\205N:\312=\203\344\f\242\312=\202\346:\203!\337 \203!\340 \203!;\203\341\342;\"\210\330;\202!\343 \344 U\204!\345\342!\204\346\342!\204!\341\342\343 \344 {\"\2109\204>\f\347=\2048\f\242\312=\203>\fA\204>\330\211\202N\f\242\312=\203H\fA\330<\350\351!)\2108b\210))-=\205|>\205|?\203n\352?!\210\202s\353\354\355\"\210\356>\330\357#\211?\207" [mouse-wheel-follow-mouse event curwin buffer transient-mark-mode opoint selected-window select-window mwheel-event-window window-buffer only delq click double triple event-modifiers assoc floatp truncate window-height 2 1 ((byte-code "\203\301!\210\301\207" [curwin select-window] 2)) mwheel-event-button nil (funcall mwheel-scroll-down-function amt) ((beginning-of-buffer (byte-code "\301\216 \210)\302\207" [mwheel-scroll-down-function ((byte-code "\300\301 e\"\207" [set-window-start selected-window] 3)) nil] 1))) (funcall mwheel-scroll-up-function amt) ((end-of-buffer (byte-code " \210\202" [mwheel-scroll-up-function] 1))) error "Bad binding in mwheel-scroll" region-active-p display-selections-p x-set-selection PRIMARY region-beginning region-end x-selection-owner-p x-selection-exists-p lambda run-hooks deactivate-mark-hook cancel-timer add-hook pre-command-hook mwheel-filter-click-events run-with-timer mwheel-inhibit-click-timeout mods mouse-wheel-scroll-amount amt list-elt mouse-wheel-progressive-speed button mouse-wheel-down-event mouse-wheel-up-event newpoint force select-active-regions saved-region-selection mark-active mouse-wheel-click-event mouse-wheel-inhibit-click-time mwheel-inhibit-click-event-timer] 9 (#$ . 5528) (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 command `mouse-wheel-mode' 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 '(#$ . 7849) :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=\203\n?\202\310	!\311V\2030\211A@\312\313 \f\"\314=\203,\315\f!\210)\202\n\203t
D\316\211 \203s @\317\320!\"\316\211 \203i @\321\f\314\"\210\fB A\211 \204S* A\211 \204A*\322\323\n\203~\324\202\325\"\210\326\327!\203\244\330\302!\210\306 \203\227\306 \232\203\244\331\332\n\203\241\333\202\242\334\"\210)\335 \210\n\207" [#1=#:last-message arg mouse-wheel-mode mwheel-installed-bindings key mouse-wheel-down-event current-message toggle 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" "en" "dis" force-mode-line-update mouse-wheel-up-event event --dolist-tail-- mouse-wheel-scroll-amount] 4 (#$ . 8277) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n\303\211%\207" [mouse-wheel-mode-map 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 (#$ . 9661)])
(provide 'mwheel)
bypass 1.0, Devloped By El Moujahidin (the source has been moved and devloped)
Email: contact@elmoujehidin.net