Current File : //usr/local/share/emacs/27.2/lisp/emacs-lisp/cursor-sensor.elc
;ELC
;;; Compiled
;;; in Emacs version 27.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@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 (#$ . 409))
#@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 (#$ . 635)])
#@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 (#$ . 899)])
#@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 (#$ . 1519)])
#@15
(fn WINDOW)
(defalias 'cursor-sensor--move-to-tangible #[257 "?\205 \301!\207" [cursor-sensor-inhibit cursor-sensor-move-to-tangible] 3 (#$ . 1774)])
#@113 Non-nil if Cursor-Intangible mode is enabled.
Use the command `cursor-intangible-mode' to change this variable.
(defvar cursor-intangible-mode nil (#$ . 1936))
(make-variable-buffer-local 'cursor-intangible-mode)
#@333 Keep cursor outside of any `cursor-intangible' text property.
If called interactively, enable Cursor-Intangible 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.
(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 (#$ . 2156) (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)
#@25
(fn &optional WINDOW)
(defalias 'cursor-sensor--detect #[256 "r\301!q\210?\205\332 \302!\303\304\"\206! eX?\205! \303S\304\"\305\306\"\211@\211\2031 \307!\2062 e\211^]\203I \310!p=\204I \311\241\210\204R A\203\272 A=\203d \312\304\311$=\204\272 \313\314 A\211\203\217 \211@\211\n>\203\201 #\203\210 \211\315#\210A\266\202\202j \210\211\203\270 \211@\211 A>\203\252 #\203\261 \211\316#\210A\266\202\202\222 \266\203\314 @\311\223\210\241\202\330 \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 "\300W\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 (#$ . 3690)])
#@105 Non-nil if Cursor-Sensor mode is enabled.
Use the command `cursor-sensor-mode' to change this variable.
(defvar cursor-sensor-mode nil (#$ . 4767))
(make-variable-buffer-local 'cursor-sensor-mode)
#@689 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.
If called interactively, enable Cursor-Sensor 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.
(fn &optional ARG)
(defalias 'cursor-sensor-mode #[256 "\301 \302=\203
?\202 \303!\304V\211\203( \305\306\307\310\311$\210\305\312\307\310\311$\210\2024 \313\306\307\311#\210\313\312\307\311#\210\314\315\203> \316\202? \317\"\210\320\321!\203c \301 \203S \211\301 \232\203c \322\323\324\203^ \325\202_ \326#\266\210\327 \210\207" [cursor-sensor-mode current-message toggle prefix-numeric-value 0 add-hook post-command-hook cursor-sensor--detect nil t 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 " in current buffer" message "Cursor-Sensor mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 4971) (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)
Mini Shell