;ELC
;;; Compiled
;;; in Emacs version 26.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defvar cursor-sensor-inhibit nil)
#@12
(fn POS)
(defalias 'cursor-sensor--intangible-p #[257 "\300\301\"\211\2033 \302\211\303\301\"\211\262\205) eV\205 \303S\301\"\211\262\205) =??\205. \266\202\2024 \211\207" [get-pos-property cursor-intangible nil get-char-property] 7 (#$ . 443)])
#@46
(fn CURPOS WINDOW &optional SECOND-CHANCE)
(defalias 'cursor-sensor-tangible-pos #[770 "\300!\205\205 \301\302\"\211\250\203 \211W\204 e=\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 (#$ . 707)])
#@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 (#$ . 1327)])
#@15
(fn WINDOW)
(defalias 'cursor-sensor--move-to-tangible #[257 "?\205 \301!\207" [cursor-sensor-inhibit cursor-sensor-move-to-tangible] 3 (#$ . 1582)])
#@113 Non-nil if Cursor-Intangible mode is enabled.
Use the command `cursor-intangible-mode' to change this variable.
(defvar cursor-intangible-mode nil (#$ . 1744))
(make-variable-buffer-local 'cursor-intangible-mode)
#@83 Keep cursor outside of any `cursor-intangible' text property.
(fn &optional ARG)
(defalias 'cursor-intangible-mode #[256 "\301 \302=\203
?\202 \303!\304V\211\203! \305\306\307\310\311$\210\202' \312\306\307\311#\210\313\314\2031 \315\2022 \316\"\210\317\320!\203V \301 \203F \211\301 \232\203V \321\322\323\203Q \324\202R \325#\266\210\326 \210\207" [cursor-intangible-mode current-message toggle prefix-numeric-value 0 add-hook pre-redisplay-functions cursor-sensor--move-to-tangible nil t remove-hook run-hooks cursor-intangible-mode-hook cursor-intangible-mode-on-hook cursor-intangible-mode-off-hook called-interactively-p any " in current buffer" message "Cursor-Intangible mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 1963) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar cursor-intangible-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\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.)" add-minor-mode cursor-intangible-mode nil boundp] 6)
#@15
(fn WINDOW)
(defalias 'cursor-sensor--detect #[257 "?\205\317 \301!\302\303\"\206 eX?\205 \302S\303\"\304\305\"\211@\211\203+ \306!\206, e\211^]\203C \307!p=\204C \310\241\210\204L A\203\257 A=\203^ \311\303\310$=\204\257 \312A\211\203\205 \211@\211 >\203v #\203~ \211 \313#\210A\266\202\202a \210\211\203\255 \211@\211A>\203\236 #\203\246 \211 \314#\210A\266\202\202\210 \266\203\301 @\310\223\210\241\202\315 \315\305\316\n! B#\266\207\207" [cursor-sensor-inhibit window-point get-char-property cursor-sensor-functions window-parameter cursor-sensor--last-state marker-position marker-buffer nil next-single-property-change #[771 "\300W\203 \301\302\300$\262\303\302\">\204 \304\262\202 \207" [nil next-single-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)"] left entered set-window-parameter copy-marker] 15 (#$ . 3247)])
#@105 Non-nil if Cursor-Sensor mode is enabled.
Use the command `cursor-sensor-mode' to change this variable.
(defvar cursor-sensor-mode nil (#$ . 4246))
(make-variable-buffer-local 'cursor-sensor-mode)
#@443 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.
(fn &optional ARG)
(defalias 'cursor-sensor-mode #[256 "\301 \302=\203
?\202 \303!\304V\211\203! \305\306\307\310\311$\210\202' \312\306\307\311#\210\313\314\2031 \315\2022 \316\"\210\317\320!\203V \301 \203F \211\301 \232\203V \321\322\323\203Q \324\202R \325#\266\210\326 \210\207" [cursor-sensor-mode current-message toggle prefix-numeric-value 0 add-hook pre-redisplay-functions cursor-sensor--detect nil t remove-hook run-hooks cursor-sensor-mode-hook cursor-sensor-mode-on-hook cursor-sensor-mode-off-hook called-interactively-p any " in current buffer" message "Cursor-Sensor mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 4450) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar cursor-sensor-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\210\311\312!\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.)" add-minor-mode cursor-sensor-mode nil boundp provide cursor-sensor] 6)
|