Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
calc	[ DIR ]	drwxr-xr-x
calendar	[ DIR ]	drwxr-xr-x
cedet	[ DIR ]	drwxr-xr-x
emacs-lisp	[ DIR ]	drwxr-xr-x
emulation	[ DIR ]	drwxr-xr-x
erc	[ DIR ]	drwxr-xr-x
eshell	[ DIR ]	drwxr-xr-x
gnus	[ DIR ]	drwxr-xr-x
image	[ DIR ]	drwxr-xr-x
international	[ DIR ]	drwxr-xr-x
language	[ DIR ]	drwxr-xr-x
leim	[ DIR ]	drwxr-xr-x
mail	[ DIR ]	drwxr-xr-x
mh-e	[ DIR ]	drwxr-xr-x
net	[ DIR ]	drwxr-xr-x
nxml	[ DIR ]	drwxr-xr-x
obsolete	[ DIR ]	drwxr-xr-x
org	[ DIR ]	drwxr-xr-x
play	[ DIR ]	drwxr-xr-x
progmodes	[ DIR ]	drwxr-xr-x
term	[ DIR ]	drwxr-xr-x
textmodes	[ DIR ]	drwxr-xr-x
url	[ DIR ]	drwxr-xr-x
vc	[ DIR ]	drwxr-xr-x
COPYING	34.32 KB	-rw-r--r--
README	537 B	-rw-r--r--
abbrev.elc	34.55 KB	-rw-r--r--
align.elc	39.88 KB	-rw-r--r--
allout-widgets.elc	62.37 KB	-rw-r--r--
allout.elc	203.33 KB	-rw-r--r--
ansi-color.elc	17.12 KB	-rw-r--r--
apropos.elc	37.42 KB	-rw-r--r--
arc-mode.elc	58.06 KB	-rw-r--r--
array.elc	27.07 KB	-rw-r--r--
auth-source-pass.elc	11.68 KB	-rw-r--r--
auth-source.elc	64.32 KB	-rw-r--r--
autoarg.elc	6.63 KB	-rw-r--r--
autoinsert.elc	13.41 KB	-rw-r--r--
autorevert.elc	30.71 KB	-rw-r--r--
avoid.elc	11.62 KB	-rw-r--r--
battery.elc	24.42 KB	-rw-r--r--
bindings.elc	42.76 KB	-rw-r--r--
bookmark.elc	77.09 KB	-rw-r--r--
bs.elc	49.32 KB	-rw-r--r--
buff-menu.elc	27.02 KB	-rw-r--r--
button.elc	14.97 KB	-rw-r--r--
calculator.elc	53.9 KB	-rw-r--r--
case-table.elc	4.99 KB	-rw-r--r--
cdl.elc	1.07 KB	-rw-r--r--
char-fold.elc	311.81 KB	-rw-r--r--
chistory.elc	8.16 KB	-rw-r--r--
cmuscheme.elc	18.07 KB	-rw-r--r--
color.elc	12.83 KB	-rw-r--r--
comint.elc	114.46 KB	-rw-r--r--
completion.elc	41.12 KB	-rw-r--r--
composite.elc	27.94 KB	-rw-r--r--
cus-dep.elc	6.42 KB	-rw-r--r--
cus-edit.elc	139.04 KB	-rw-r--r--
cus-face.elc	10.54 KB	-rw-r--r--
cus-load.el	85.19 KB	-rw-r--r--
cus-start.elc	21.92 KB	-rw-r--r--
cus-theme.elc	25.05 KB	-rw-r--r--
custom.elc	47.41 KB	-rw-r--r--
dabbrev.elc	22.28 KB	-rw-r--r--
delim-col.elc	8.95 KB	-rw-r--r--
delsel.elc	9.2 KB	-rw-r--r--
descr-text.elc	26.87 KB	-rw-r--r--
desktop.elc	47.64 KB	-rw-r--r--
dframe.elc	19.92 KB	-rw-r--r--
dired-aux.elc	85.75 KB	-rw-r--r--
dired-loaddefs.el	22.29 KB	-rw-r--r--
dired-x.elc	44.53 KB	-rw-r--r--
dired.elc	127.27 KB	-rw-r--r--
dirtrack.elc	7.75 KB	-rw-r--r--
disp-table.elc	8.76 KB	-rw-r--r--
display-fill-column-indicator....	8.32 KB	-rw-r--r--
display-line-numbers.elc	8.67 KB	-rw-r--r--
dnd.elc	7.13 KB	-rw-r--r--
doc-view.elc	65.25 KB	-rw-r--r--
dom.elc	7.36 KB	-rw-r--r--
dos-fns.elc	6.14 KB	-rw-r--r--
dos-vars.elc	1.1 KB	-rw-r--r--
dos-w32.elc	11.67 KB	-rw-r--r--
double.elc	4.34 KB	-rw-r--r--
dynamic-setting.elc	2.2 KB	-rw-r--r--
ebuff-menu.elc	10.46 KB	-rw-r--r--
echistory.elc	4.75 KB	-rw-r--r--
ecomplete.elc	7.1 KB	-rw-r--r--
edmacro.elc	19.94 KB	-rw-r--r--
ehelp.elc	11.32 KB	-rw-r--r--
elec-pair.elc	21.41 KB	-rw-r--r--
electric.elc	23.69 KB	-rw-r--r--
elide-head.elc	2.65 KB	-rw-r--r--
emacs-lock.elc	9.29 KB	-rw-r--r--
env.elc	6.12 KB	-rw-r--r--
epa-dired.elc	1.62 KB	-rw-r--r--
epa-file.elc	8.65 KB	-rw-r--r--
epa-hook.elc	4.63 KB	-rw-r--r--
epa-mail.elc	9.43 KB	-rw-r--r--
epa.elc	45.25 KB	-rw-r--r--
epg-config.elc	8.97 KB	-rw-r--r--
epg.elc	166.06 KB	-rw-r--r--
expand.elc	9.07 KB	-rw-r--r--
ezimage.elc	9.65 KB	-rw-r--r--
face-remap.elc	16.58 KB	-rw-r--r--
facemenu.elc	27.89 KB	-rw-r--r--
faces.elc	90.21 KB	-rw-r--r--
ffap.elc	50.3 KB	-rw-r--r--
filecache.elc	16.69 KB	-rw-r--r--
fileloop.elc	6.62 KB	-rw-r--r--
filenotify.elc	28.49 KB	-rw-r--r--
files-x.elc	21.9 KB	-rw-r--r--
files.elc	236.95 KB	-rw-r--r--
filesets.elc	72.57 KB	-rw-r--r--
find-cmd.elc	4.9 KB	-rw-r--r--
find-dired.elc	10.41 KB	-rw-r--r--
find-file.elc	18.33 KB	-rw-r--r--
find-lisp.elc	7.66 KB	-rw-r--r--
finder-inf.el	41.27 KB	-rw-r--r--
finder.elc	14.73 KB	-rw-r--r--
flow-ctrl.elc	2.26 KB	-rw-r--r--
foldout.elc	7.25 KB	-rw-r--r--
follow.elc	40.63 KB	-rw-r--r--
font-core.elc	12.41 KB	-rw-r--r--
font-lock.elc	61.63 KB	-rw-r--r--
format-spec.elc	3.93 KB	-rw-r--r--
format.elc	27.56 KB	-rw-r--r--
forms.elc	35.1 KB	-rw-r--r--
frame.elc	85.94 KB	-rw-r--r--
frameset.elc	48.02 KB	-rw-r--r--
fringe.elc	10.23 KB	-rw-r--r--
generic-x.elc	40.27 KB	-rw-r--r--
help-at-pt.elc	11.15 KB	-rw-r--r--
help-fns.elc	45.35 KB	-rw-r--r--
help-macro.elc	4.25 KB	-rw-r--r--
help-mode.elc	23.89 KB	-rw-r--r--
help.elc	52.22 KB	-rw-r--r--
hex-util.elc	1.3 KB	-rw-r--r--
hexl.elc	35.39 KB	-rw-r--r--
hfy-cmap.elc	25.45 KB	-rw-r--r--
hi-lock.elc	29.38 KB	-rw-r--r--
hilit-chg.elc	28.77 KB	-rw-r--r--
hippie-exp.elc	21.52 KB	-rw-r--r--
hl-line.elc	11.23 KB	-rw-r--r--
htmlfontify-loaddefs.el	808 B	-rw-r--r--
htmlfontify.elc	67.51 KB	-rw-r--r--
ibuf-ext.elc	77.15 KB	-rw-r--r--
ibuf-macs.elc	12.47 KB	-rw-r--r--
ibuffer-loaddefs.el	12.68 KB	-rw-r--r--
ibuffer.elc	98.62 KB	-rw-r--r--
icomplete.elc	22.83 KB	-rw-r--r--
ido.elc	127.92 KB	-rw-r--r--
ielm.elc	19.2 KB	-rw-r--r--
iimage.elc	4.92 KB	-rw-r--r--
image-dired.elc	92.97 KB	-rw-r--r--
image-file.elc	6.53 KB	-rw-r--r--
image-mode.elc	42.56 KB	-rw-r--r--
image.elc	34.45 KB	-rw-r--r--
imenu.elc	24.94 KB	-rw-r--r--
indent.elc	23.63 KB	-rw-r--r--
info-look.elc	28.18 KB	-rw-r--r--
info-xref.elc	16.59 KB	-rw-r--r--
info.elc	144.48 KB	-rw-r--r--
informat.elc	9.73 KB	-rw-r--r--
isearch.elc	147.85 KB	-rw-r--r--
isearchb.elc	4.73 KB	-rw-r--r--
jit-lock.elc	23.49 KB	-rw-r--r--
jka-cmpr-hook.elc	13.07 KB	-rw-r--r--
jka-compr.elc	12.09 KB	-rw-r--r--
json.elc	22.76 KB	-rw-r--r--
jsonrpc.elc	31.65 KB	-rw-r--r--
kermit.elc	2.92 KB	-rw-r--r--
kmacro.elc	35.15 KB	-rw-r--r--
ldefs-boot.el	1.41 MB	-rw-r--r--
linum.elc	10.77 KB	-rw-r--r--
loaddefs.el	1.41 MB	-rw-r--r--
loadhist.elc	9.77 KB	-rw-r--r--
loadup.el	20.08 KB	-rw-r--r--
locate.elc	19.57 KB	-rw-r--r--
lpr.elc	9.44 KB	-rw-r--r--
ls-lisp.elc	22.7 KB	-rw-r--r--
macros.elc	7.23 KB	-rw-r--r--
makesum.elc	2.47 KB	-rw-r--r--
man.elc	53.85 KB	-rw-r--r--
master.elc	4.58 KB	-rw-r--r--
mb-depth.elc	3.56 KB	-rw-r--r--
md4.elc	8.12 KB	-rw-r--r--
menu-bar.elc	86.61 KB	-rw-r--r--
midnight.elc	10.22 KB	-rw-r--r--
minibuf-eldef.elc	6.43 KB	-rw-r--r--
minibuffer.elc	104.08 KB	-rw-r--r--
misc.elc	5.4 KB	-rw-r--r--
misearch.elc	12.37 KB	-rw-r--r--
mouse-copy.elc	3.61 KB	-rw-r--r--
mouse-drag.elc	6.43 KB	-rw-r--r--
mouse.elc	71.3 KB	-rw-r--r--
mpc.elc	79.29 KB	-rw-r--r--
msb.elc	26.76 KB	-rw-r--r--
mwheel.elc	12.83 KB	-rw-r--r--
newcomment.elc	39.43 KB	-rw-r--r--
notifications.elc	13.78 KB	-rw-r--r--
novice.elc	4.43 KB	-rw-r--r--
obarray.elc	1.71 KB	-rw-r--r--
outline.elc	37.04 KB	-rw-r--r--
paren.elc	8.69 KB	-rw-r--r--
password-cache.elc	3.57 KB	-rw-r--r--
pcmpl-cvs.elc	6.17 KB	-rw-r--r--
pcmpl-gnu.elc	12.96 KB	-rw-r--r--
pcmpl-linux.elc	3.09 KB	-rw-r--r--
pcmpl-rpm.elc	11.17 KB	-rw-r--r--
pcmpl-unix.elc	7.52 KB	-rw-r--r--
pcmpl-x.elc	8.95 KB	-rw-r--r--
pcomplete.elc	36.16 KB	-rw-r--r--
pixel-scroll.elc	10.82 KB	-rw-r--r--
plstore.elc	14.75 KB	-rw-r--r--
printing.elc	157.7 KB	-rw-r--r--
proced.elc	62.85 KB	-rw-r--r--
profiler.elc	42.81 KB	-rw-r--r--
ps-bdf.elc	12.69 KB	-rw-r--r--
ps-def.elc	2.23 KB	-rw-r--r--
ps-mule.elc	34.89 KB	-rw-r--r--
ps-print-loaddefs.el	2.6 KB	-rw-r--r--
ps-print.elc	141.17 KB	-rw-r--r--
ps-samp.elc	5.26 KB	-rw-r--r--
recentf.elc	48.73 KB	-rw-r--r--
rect.elc	26.88 KB	-rw-r--r--
register.elc	27.63 KB	-rw-r--r--
registry.elc	10.41 KB	-rw-r--r--
repeat.elc	5.14 KB	-rw-r--r--
replace.elc	84.62 KB	-rw-r--r--
reposition.elc	2.66 KB	-rw-r--r--
reveal.elc	7.16 KB	-rw-r--r--
rfn-eshadow.elc	7.23 KB	-rw-r--r--
rot13.elc	2.56 KB	-rw-r--r--
rtree.elc	4.09 KB	-rw-r--r--
ruler-mode.elc	21.87 KB	-rw-r--r--
savehist.elc	10.83 KB	-rw-r--r--
saveplace.elc	11.87 KB	-rw-r--r--
sb-image.elc	2.75 KB	-rw-r--r--
scroll-all.elc	4.41 KB	-rw-r--r--
scroll-bar.elc	16.68 KB	-rw-r--r--
scroll-lock.elc	5.41 KB	-rw-r--r--
select.elc	18.75 KB	-rw-r--r--
server.elc	47.56 KB	-rw-r--r--
ses.elc	131.12 KB	-rw-r--r--
shadowfile.elc	31.16 KB	-rw-r--r--
shell.elc	41.53 KB	-rw-r--r--
simple.elc	301.78 KB	-rw-r--r--
skeleton.elc	15.76 KB	-rw-r--r--
so-long.elc	47.15 KB	-rw-r--r--
sort.elc	15.49 KB	-rw-r--r--
soundex.elc	1.14 KB	-rw-r--r--
speedbar.elc	115.02 KB	-rw-r--r--
startup.elc	68.51 KB	-rw-r--r--
strokes.elc	44.03 KB	-rw-r--r--
subdirs.el	450 B	-rw-r--r--
subr.elc	186.63 KB	-rw-r--r--
svg.elc	12.71 KB	-rw-r--r--
t-mouse.elc	3.8 KB	-rw-r--r--
tab-bar.elc	52.48 KB	-rw-r--r--
tab-line.elc	29.85 KB	-rw-r--r--
tabify.elc	2.17 KB	-rw-r--r--
talk.elc	2.99 KB	-rw-r--r--
tar-mode.elc	57.2 KB	-rw-r--r--
tempo.elc	19.18 KB	-rw-r--r--
term.elc	107.99 KB	-rw-r--r--
thingatpt.elc	16.88 KB	-rw-r--r--
thread.elc	8.08 KB	-rw-r--r--
thumbs.elc	25.74 KB	-rw-r--r--
time-stamp.elc	18.69 KB	-rw-r--r--
time.elc	20.87 KB	-rw-r--r--
timezone.elc	10.94 KB	-rw-r--r--
tmm.elc	13.39 KB	-rw-r--r--
tool-bar.elc	9.76 KB	-rw-r--r--
tooltip.elc	13.19 KB	-rw-r--r--
tree-widget.elc	19.84 KB	-rw-r--r--
tutorial.elc	22.28 KB	-rw-r--r--
type-break.elc	37.35 KB	-rw-r--r--
uniquify.elc	17.68 KB	-rw-r--r--
userlock.elc	6.33 KB	-rw-r--r--
vcursor.elc	23.92 KB	-rw-r--r--
version.elc	6.01 KB	-rw-r--r--
view.elc	34.69 KB	-rw-r--r--
vt-control.elc	1.99 KB	-rw-r--r--
vt100-led.elc	1.33 KB	-rw-r--r--
w32-fns.elc	11.01 KB	-rw-r--r--
w32-vars.elc	5.16 KB	-rw-r--r--
wdired.elc	23.52 KB	-rw-r--r--
whitespace.elc	69.06 KB	-rw-r--r--
wid-browse.elc	8.48 KB	-rw-r--r--
wid-edit.elc	99.52 KB	-rw-r--r--
widget.elc	1.4 KB	-rw-r--r--
windmove.elc	19.82 KB	-rw-r--r--
window.elc	294.5 KB	-rw-r--r--
winner.elc	12.04 KB	-rw-r--r--
woman.elc	109.43 KB	-rw-r--r--
x-dnd.elc	19.56 KB	-rw-r--r--
xdg.elc	10.14 KB	-rw-r--r--
xml.elc	25.31 KB	-rw-r--r--
xt-mouse.elc	14.1 KB	-rw-r--r--
xwidget.elc	18.9 KB	-rw-r--r--

Code Editor : mwheel.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.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])
(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=\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]] 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�\3258\250\203\214�\3258\262\202\217�\326\262_--\247\203\265�-	\211:\203\257�\3278\250\203\257�\3278\262\202\262�\326\262_-\3301U\3311F\332\216\333	!\21112=\203\342�\3341\330�3-!0\202@\210\335\2163 )\202@14=\203\377�\3361\367�5-!0\202@\2105 \210\202\370�16=\2037\205@8\2039\202:-!\202@1;=\203=7\205@8\2035:\20279-!\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)

${this.title}

Code Editor : mwheel.elc