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



#@175 When non-nil, suspend `cursor-sensor-mode' and `cursor-intangible-mode'.
By convention, this is a list of symbols where each symbol stands for the
"cause" of the suspension.
(defvar cursor-sensor-inhibit nil (#$ . 85))
#@12 

(fn POS)
(defalias 'cursor-sensor--intangible-p #[257 "\300
\301\"\211\203/\302\211\303\301\"\211\262\205)eV\205\303S\301\"\211\262\205)

=??\205.\207\207" [get-pos-property cursor-intangible nil get-char-property] 7 (#$ . 310)])
#@46 

(fn CURPOS WINDOW &optional SECOND-CHANCE)
(defalias 'cursor-sensor-tangible-pos #[770 "\300!\205\205\301\302\"\211\250\203\211W\204e=\203?
dW\203`\303\304\"\2032\305\304\306d$\2024
T\262\300!\204\202`
eV\203`\303S\304\"\203V\307\304\306e$\202X
S\262\300!\204?
e=\204l
d=\203r\300!\204v
\202\203\203~\202\203\310\311#\262
\207" [cursor-sensor--intangible-p window-parameter cursor-intangible--last-point get-char-property cursor-intangible next-single-char-property-change nil previous-single-char-property-change cursor-sensor-tangible-pos second-chance] 10 (#$ . 560)])
#@15 

(fn WINDOW)
(defalias 'cursor-sensor-move-to-tangible #[257 "\300
!\301
\"\211\203\302\"\210\303\304\206#\207" [window-point cursor-sensor-tangible-pos set-window-point set-window-parameter cursor-intangible--last-point] 7 (#$ . 1180)])
#@15 

(fn WINDOW)
(defalias 'cursor-sensor--move-to-tangible #[257 "?\205\301
!\207" [cursor-sensor-inhibit cursor-sensor-move-to-tangible] 3 (#$ . 1435)])
#@113 Non-nil if Cursor-Intangible mode is enabled.
Use the command `cursor-intangible-mode' to change this variable.
(defvar cursor-intangible-mode nil (#$ . 1597))
(make-variable-buffer-local 'cursor-intangible-mode)
#@632 Keep cursor outside of any `cursor-intangible' text property.

This is a minor mode.  If called interactively, toggle the
`Cursor-Intangible mode' mode.  If the prefix argument is positive,
enable the mode, and if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `cursor-intangible-mode'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

(fn &optional ARG)
(defalias 'cursor-intangible-mode #[256 "\302 
\303=\203
?\202
\247\203
\304W\203\305\202\306\307\301!\2031\310\300	\"\2031\300	B\203?\311\312\313\305\306$\210\202E\314\312\313\306#\210\315\316\203O\317\202P\320\"\210\321\322!\203r\302 \203d\211\302 \232\203r\323\324\203n\325\202o\326\327#\210\210\330 \210\207" [cursor-intangible-mode local-minor-modes current-message toggle 1 nil t boundp delq add-hook pre-redisplay-functions cursor-sensor--move-to-tangible remove-hook run-hooks cursor-intangible-mode-hook cursor-intangible-mode-on-hook cursor-intangible-mode-off-hook called-interactively-p any message "Cursor-Intangible mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 7 (#$ . 1817) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar cursor-intangible-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [cursor-intangible-mode-map cursor-intangible-mode-hook variable-documentation put "Hook run after entering or leaving `cursor-intangible-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode cursor-intangible-mode boundp] 6)
#@25 

(fn &optional WINDOW)
(defalias 'cursor-sensor--detect #[256 "r\301
!q\210?\205\334\302
!\303
\304\"\206!e
X?\205!\303
S\304\"\305\306\"\211@\211\2031\307
!\2062e\211^
]\203I\310!p=\204I\311\241\210\204RA\203\272A=\203d\312\304\311$
=\204\272\313\314 A\211\203\217\211@\211\n>\203\201#\203\210\211\315#\210
A\266\202\202j\210\211\203\270\211@\211	A>\203\252#\203\261\211\316#\210
A\266\202\202\222\266\203\316@\311\223\210\241\266\207\202\334\317\306\320\n!	B#\266\207)\207" [cursor-sensor-inhibit window-buffer window-point get-char-property cursor-sensor-functions window-parameter cursor-sensor--last-state marker-position marker-buffer nil next-single-char-property-change #[771 "\300
W\203 \301\302\300$\262\303\302\">\204\304\262
\202\207" [nil next-single-char-property-change cursor-sensor-functions get-char-property t] 10 "Non-nil if F is missing somewhere between START and END.\n\n(fn START END F)"] selected-window left entered set-window-parameter copy-marker] 16 (#$ . 3830)])
#@105 Non-nil if Cursor-Sensor mode is enabled.
Use the command `cursor-sensor-mode' to change this variable.
(defvar cursor-sensor-mode nil (#$ . 4915))
(make-variable-buffer-local 'cursor-sensor-mode)
#@984 Handle the `cursor-sensor-functions' text property.
This property should hold a list of functions which react to the motion
of the cursor.  They're called with three arguments (WINDOW OLDPOS DIR)
where WINDOW is the affected window, OLDPOS is the last known position of
the cursor and DIR can be `entered' or `left' depending on whether the cursor
is entering the area covered by the text-property property or leaving it.

This is a minor mode.  If called interactively, toggle the
`Cursor-Sensor mode' mode.  If the prefix argument is positive, enable
the mode, and if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `cursor-sensor-mode'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

(fn &optional ARG)
(defalias 'cursor-sensor-mode #[256 "\302 
\303=\203
?\202
\247\203
\304W\203\305\202\306\307\301!\2031\310\300	\"\2031\300	B\203F\311\312\313\305\306$\210\311\314\313\305\306$\210\202R\315\312\313\306#\210\315\314\313\306#\210\316\317\203\\\320\202]\321\"\210\322\323!\203\302 \203q\211\302 \232\203\324\325\203{\326\202|\327\330#\210\210\331 \210\207" [cursor-sensor-mode local-minor-modes current-message toggle 1 nil t boundp delq add-hook post-command-hook cursor-sensor--detect pre-redisplay-functions remove-hook run-hooks cursor-sensor-mode-hook cursor-sensor-mode-on-hook cursor-sensor-mode-off-hook called-interactively-p any message "Cursor-Sensor mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 7 (#$ . 5119) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar cursor-sensor-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\210\314\315!\207" [cursor-sensor-mode-map cursor-sensor-mode-hook variable-documentation put "Hook run after entering or leaving `cursor-sensor-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode cursor-sensor-mode boundp provide cursor-sensor] 6)