;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\316\317\320\321\322\323\324\301\325\326&
\210\310\327\312\313\330DD\331\322\332%\210\310\333\312\313\334DD\335\322\332%\210\310\336\312\313\337DD\340\322\341%\210\310\342\312\313\343DD\344\322\332%\210\310\345\312\313\346DD\347\306\301\325\350\322\351\352\353&\207" [custom-declare-group avoid nil "Make mouse pointer stay out of the way of editing." :prefix "mouse-avoidance-" :group mouse custom-declare-variable mouse-avoidance-mode funcall function #[0 "\300\207" [nil] 1 #1=""] "Activate Mouse Avoidance mode.\nSee function `mouse-avoidance-mode' for possible values.\nSetting this variable directly does not take effect;\nuse either \\[customize] or \\[mouse-avoidance-mode]." :set #[514 "\300
\206\301!\207" [mouse-avoidance-mode none] 4 "\n\n(fn SYMBOL VALUE)"] :initialize custom-initialize-default :type (choice (const :tag "none" nil) (const banish) (const jump) (const animate) (const exile) (const proteus)) :require :version "20.3" mouse-avoidance-nudge-dist #[0 "\300\207" [15] 1 #1#] "Average distance that mouse will be moved when approached by cursor.\nOnly applies in Mouse Avoidance mode `jump' and its derivatives.\nFor best results make this larger than `mouse-avoidance-threshold'." integer mouse-avoidance-nudge-var #[0 "\300\207" [10] 1 #1#] "Variability of `mouse-avoidance-nudge-dist' (which see)." mouse-avoidance-animation-delay #[0 "\300\207" [0.01] 1 #1#] "Delay between animation steps, in seconds." number mouse-avoidance-threshold #[0 "\300\207" [5] 1 #1#] "Mouse-pointer's flight distance.\nIf the cursor gets closer than this, the mouse pointer will move away.\nOnly applies in Mouse Avoidance modes `animate' and `jump'." mouse-avoidance-banish-position #[0 "\300\207" [((frame-or-window . frame) (side . right) (side-pos . 3) (top-or-bottom . top) (top-or-bottom-pos . 0))] 1 #1#] "Position to which Mouse Avoidance mode `banish' moves the mouse.\nAn alist where keywords mean:\nFRAME-OR-WINDOW: banish the mouse to corner of frame or window.\nSIDE: banish the mouse on right or left corner of frame or window.\nSIDE-POS: Distance from right or left edge of frame or window.\nTOP-OR-BOTTOM: banish the mouse to top or bottom of frame or window.\nTOP-OR-BOTTOM-POS: Distance from top or bottom edge of frame or window." "24.3" (alist :key-type symbol :value-type (choice symbol integer)) :options ((frame-or-window symbol) (side symbol) (side-pos integer) (top-or-bottom symbol) (top-or-bottom-pos integer))] 14)
(defvar mouse-avoidance-state nil)
(defvar mouse-avoidance-pointer-shapes nil)
(defvar mouse-avoidance-old-pointer-shape nil)
(defvar mouse-avoidance-animating-pointer nil)
(defvar mouse-avoidance-timer nil)
#@58 Set the shape of the mouse pointer to SHAPE.

(fn SHAPE)
(defalias 'mouse-avoidance-set-pointer-shape #[257 "\301\300!\205\211\302\303!\207" [x-pointer-shape boundp set-mouse-color nil] 3 (#$ . 2822)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put mouse-avoidance-set-pointer-shape speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@79 Return the position of point as (FRAME X . Y).
Analogous to `mouse-position'.
(defalias 'mouse-avoidance-point-position #[0 "\300 \301 \211\205\211\302
8\262
\211\205'\303 @@\304 \245\\A@A\305 \245\\BB\207" [window-inside-edges posn-at-point 2 selected-frame frame-char-width frame-char-height] 8 (#$ . 3192)])
#@12 

(fn POS)
(defalias 'mouse-avoidance-set-mouse-position #[257 "\300 \301
@A#\210\302\207" [selected-frame set-mouse-position t] 6 (#$ . 3516)])
#@203 Return t if mouse pointer and point cursor are too close.
MOUSE is the current mouse position as returned by `mouse-position'.
Acceptable distance is defined by `mouse-avoidance-threshold'.

(fn MOUSE)
(defalias 'mouse-avoidance-too-close-p #[257 "\211@
AA\301\302\303\"\302
\204\304\262\203W\203\302\207\305 \211\262\205LA@@=\205J\211??\205J\306
A@Z!W\205J\306AAZ!W\262
\207" [mouse-avoidance-threshold frame-parameter nil tool-bar-lines 0 mouse-avoidance-point-position abs] 9 (#$ . 3670)])
#@175 The position to which Mouse Avoidance mode `banish' moves the mouse.

If you want the mouse banished to a different corner set
`mouse-avoidance-banish-position' as you need.
(defalias 'mouse-avoidance-banish-destination #[0 "\301\302\303#\211\304\267\202\305\211\306 \307 F\202\310 \202\311\211\311\312\311\211:\203D@\262:\203D@\262
B
B\262
A\262A\262\202 \211\237\266\205\301\313\303#\301\314\303#\301\315\303#\301\316\303#\317\267\202j\320\202k\321\202k\311\322\267\202y\320\202z\321\202z\311
\301	\303#\"
\301\n\303#\"B\207" [mouse-avoidance-banish-position assoc-default frame-or-window eq #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (frame 11 window 21)) 0 frame-width frame-height window-edges nil (left top right bottom) side side-pos top-or-bottom top-or-bottom-pos #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (left 98 right 102)) + - #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (top 113 bottom 117))] 15 (#$ . 4193)])
#@61 Put the mouse pointer to `mouse-avoidance-banish-position'.
(defalias 'mouse-avoidance-banish-mouse #[0 "\300\301 !\207" [mouse-avoidance-set-mouse-position mouse-avoidance-banish-destination] 2 (#$ . 5291)])
#@35 

(fn CUR DELTA DIST VAR MIN MAX)
(defalias 'mouse-avoidance-delta #[1542 "
Z[[\\][\\[\\	Z\\^ZW\203,\300\262\300\262
ZV\203;\300\262\300\262
\203HW\203H\207\203VW\203V\207\203c\301W\203c\207
\203pW\203p
\207\211\203~
W\203~\207\211\206\213\206\213
\206\213\301\207" [nil 0] 13 (#$ . 5506)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put mouse-avoidance-delta speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@179 Push the mouse a little way away, possibly animating the move.
For these modes, state keeps track of the total offset that we've
accumulated, and tries to keep it close to zero.
(defalias 'mouse-avoidance-nudge-mouse #[0 "\306 \211A\307 \211
A\262\242
\211A\262\242\211A\262\242\211A\262\242@\310!	@Z\nS
Z[[\\][\\[\\	Z\\^ZW\203Y\311\262\311\262
ZV\203h\311\262\311\262
\203yW\203y\266\212\202\316\203\213W\203\213\266\212\202\316\203\234\312W\203\234\266\212\202\316
\203\255W\203\255
\266\212\202\316\211\203\277
W\203\277\266\212\202\316\211\206\314\206\314
\206\314\312\266\212A\310!	AZ\nS
Z[[\\][\\[\\	Z\\^ZW\203\n
\311\262\311\262
ZV\203
\311\262\311\262
\203*
W\203*
\266\212\202
\203<
W\203<
\266\212\202
\203M
\312W\203M
\266\212\202

\203^
W\203^

\266\212\202
\211\203p

W\203p
\266\212\202
\211\206}
\206}

\206}
\312\266\212	@\\	A\\B\313=\204\225
\314=\203\341
\315\316\317\n\245]\320
\321X\203\335
\322\n@\323_!\\A\323_!\\B!\210

\\\262\314=\203\325
\324 \325\305!\205\323
\211\326\311!\266\327!\210\202\235
\311\211\207\322	A@\\\nAA\\B!\207" [mouse-avoidance-nudge-var mouse-avoidance-state mouse-avoidance-nudge-dist mouse-avoidance-mode mouse-avoidance-animating-pointer x-pointer-shape mouse-position window-edges random nil 0 animate proteus 0.0 0.1 1.0 t 1 mouse-avoidance-set-mouse-position round mouse-avoidance-random-shape boundp set-mouse-color sit-for mouse-avoidance-animation-delay] 21 (#$ . 6014)])
#@213 Return a random cursor shape.
This assumes that any variable whose name begins with x-pointer- and
has an integer value is a valid cursor shape.  You might want to
redefine this function to suit your own tastes.
(defalias 'mouse-avoidance-random-shape #[0 "\204
\302\303\304\305	\306#\"\307!\207" [mouse-avoidance-pointer-shapes obarray mapcar #[257 "\300
!J\207" [intern] 3 "\n\n(fn X)"] all-completions "x-pointer-" #[257 "\300
!\205	\211J\250\207" [boundp] 3 "\n\n(fn X)"] seq-random-elt] 6 (#$ . 7617)])
(defalias 'mouse-avoidance-ignore-p #[0 "\304 \305 ?\206~?\206~	\206~\211A@?\206~\211@\306 =?\206~\n\307=\206~:\205~@9\205~\310@!@\311>\206|\312
>\206|\313
>\206|\314
>\206|\315
>\206|\316
>\206|\317
>\206|\320
>\206|\321
>\206|\322
>\206|\323
>\206|\324
>\262
\207" [cursor-type executing-kbd-macro track-mouse last-input-event mouse-position frame-pointer-visible-p selected-frame dropping event-modifiers (mouse-movement scroll-bar-movement select-window focus-out) click double triple drag down meta control shift hyper super alt] 4])
(defalias 'mouse-avoidance-banish #[0 "\300 ?\205\301 \207" [mouse-avoidance-ignore-p mouse-avoidance-banish-mouse] 1])
(defalias 'mouse-avoidance-exile #[0 "\301 ?\205>\302 \204\303
!\203\211\304 \202<\205<\303!?\205<\211@\305 =\2039\211A\306 \232\2039\307A!\210\310\211\262
\207" [mouse-avoidance-state mouse-avoidance-ignore-p mouse-position mouse-avoidance-too-close-p mouse-avoidance-banish-mouse selected-frame mouse-avoidance-banish-destination mouse-avoidance-set-mouse-position nil] 3])
(defalias 'mouse-avoidance-fancy #[0 "?\205&\301 ?\205&\302\303 !\205&\303 \304 \210\305 
@=?\205$\306\307\"\262
\207" [mouse-avoidance-animating-pointer mouse-avoidance-ignore-p mouse-avoidance-too-close-p mouse-position mouse-avoidance-nudge-mouse selected-frame apply set-mouse-position] 4])
#@1085 Set Mouse Avoidance mode to MODE.
MODE should be one of the symbols `banish', `exile', `jump', `animate',
`cat-and-mouse', `proteus', or `none'.

If MODE is nil, toggle mouse avoidance between `none' and `banish'
modes.  Positive numbers and symbols other than the above are treated
as equivalent to `banish'; negative numbers and `-' are equivalent to `none'.

Effects of the different modes:
 * banish: Move the mouse to the upper-right corner on any keypress.
 * exile: Move the mouse to the corner only if the cursor gets too close,
     and allow it to return once the cursor is out of the way.
 * jump: If the cursor gets too close to the mouse, displace the mouse
     a random distance & direction.
 * animate: As `jump', but shows steps along the way for illusion of motion.
 * cat-and-mouse: Same as `animate'.
 * proteus: As `animate', but changes the shape of the mouse pointer too.

(See `mouse-avoidance-threshold' for definition of "too close",
and `mouse-avoidance-nudge-dist' and `mouse-avoidance-nudge-var' for
definition of "random distance".)

(fn &optional MODE)
(defalias 'mouse-avoidance-mode #[256 "\211\305=\203	\306\262
\203\307!\210\310	\311=\203'\n\312\303!\205%\211\313\310!\266\211\314=\2032\310\202\233\211\315=\204D\211\306=\204D\211\311=\203[\316\317\320\321#\211\322\211B\312\303!\205W\202\233\211\323=\203n\316\317\320\324#\211\310\202\233\211\325=\204\216\211\320=\204\216\211\204\202	\203\216\211\203\231\326
!\322V\203\231\316\317\320\327#\325\202\233\310\330 \207" [mouse-avoidance-timer mouse-avoidance-mode mouse-avoidance-old-pointer-shape x-pointer-shape mouse-avoidance-state cat-and-mouse animate cancel-timer nil proteus boundp set-mouse-color none jump run-with-idle-timer 0.1 t mouse-avoidance-fancy 0 exile mouse-avoidance-exile banish prefix-numeric-value mouse-avoidance-banish force-mode-line-update] 5 (#$ . 9516) (byte-code "\300\301\302\303\304\305$!C\207" [intern completing-read "Select cursor avoidance technique (SPACE for list): " (("banish") ("exile") ("jump") ("animate") ("cat-and-mouse") ("proteus") ("none")) nil t] 6)])
(byte-code "\203\300!\210\301\302!\207" [mouse-avoidance-mode provide avoid] 2)