ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/mwheel.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.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])
(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=\203 AAA@\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 (#$ . 4552))
#@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 (#$ . 4674)])
#@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 (#$ . 4911)])
#@49 Function that does the job of scrolling upward.
(defvar mwheel-scroll-up-function 'scroll-up (#$ . 5148))
#@51 Function that does the job of scrolling downward.
(defvar mwheel-scroll-down-function 'scroll-down (#$ . 5260))
#@118 Scroll up or down according to the EVENT.
This should be bound only to mouse buttons 4 and 5 on non-Windows
systems.
(defalias 'mwheel-scroll #[(event) "\205\f \306 \307\310 !!\210\311\n!r q\210\f\242\312=\205 `) \313\314\313\315\313\316\317 !\"\"\" %\320%&\"\211 '\203A 'A'\202T & ((\211A(\242\211':\204E )\321'!\203e \322'\323 _!T')\203\215 '\247\203\215 ' \211:\203\207 \3248\250\203\207 \3248\262\202\212 \325\262_'\326\216\327 !\211 *+=\203\263 \3301\250 ,'!0\202\257 \210\331\216, )\210\202\330 *-=\203\324 \3321\310 .'!0\202\320 \210. \210\202\311 \210\202\330 \333\334!\210*
\203\366 r q\210
`U\204\365 ` /
b\210\335 \210/b\210))-0\205 1\205 2\203\3362!\210\202\337\340\341\"\210\3421\343\344#\2112\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 #[nil "\205 \301!\207" [curwin select-window] 2] 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" deactivate-mark cancel-timer add-hook pre-command-hook mwheel-filter-click-events run-with-timer nil mwheel-inhibit-click-timeout 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 newpoint mouse-wheel-click-event mouse-wheel-inhibit-click-time mwheel-inhibit-click-event-timer] 9 (#$ . 5379) (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 '(#$ . 7101) :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\203y
!D\320 \"\211 #\203x #@\"\321\322$\"\320\211 #\203n #@\323 \316\"\210 \nB#A\211#\204X *#A\211#\204F *\324\325\311\304!\203\205 \326\202\206 \327\"\210\330\331!\203\263 \332\304!\210\306 \203\236 \306 \232\203\263 \333 %\334\335\311\304!\203\255 \336\202\256 \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 event --dolist-tail-- mouse-wheel-scroll-amount local] 5 (#$ . 7529) (list (or current-prefix-arg 'toggle))])
#@181 Hook run after entering or leaving `mouse-wheel-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar mouse-wheel-mode-hook nil (#$ . 8885))
(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 (#$ . 9243)])
(provide 'mwheel)
Kontol Shell Bypass