| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/vcursor.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:33 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/vcursor.el
;;; in Emacs version 24.3.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\302\303\304\305\306\307&\210\310\301\311\312\306\301%\210\313\314\302\315\316\317\306\301&\210\313\320\321\322\316\323\306\301&\207" [custom-declare-group vcursor nil "Manipulate an alternative (\"virtual\") cursor." :prefix "vcursor-" :group convenience custom-declare-face ((((class color)) (:foreground "blue" :background "cyan" :underline t)) (t (:inverse-video t :underline t))) "Face for the virtual cursor." custom-declare-variable vcursor-auto-disable "If non-nil, disable the virtual cursor after use.\nAny non-vcursor command will force `vcursor-disable' to be called.\nIf non-nil but not t, just make sure copying is toggled off, but don't\ndisable the vcursor." :type (choice (const t) (const nil) (const copy)) vcursor-modifiers (list 'control 'shift) "A list of modifiers that are used to define vcursor key bindings." (repeat symbol)] 8)
(defalias 'vcursor-cs-binding #[(base &optional meta) "\304\305\306 !C\" \203 \303\nB\202 \n)!\207" [vcursor-modifiers base key meta vector append intern] 5])
#@197 Alter the value of the variable VAR to VALUE, binding keys as required.
VAR is usually `vcursor-key-bindings'. Normally this function is called
on loading vcursor and from the customize package.
(defalias 'vcursor-bind-keys #[(var value) " L\210 ?\206z \302=\204 \303=\203\216 \304\305!\203\216 \306\307\310\"\210\306\311\312\"\210\306\313\314\"\210\306\315\316\"\210\306\317\320\"\210\306\321\322\"\210\306\323\324\"\210\306\325\326\"\210\306\327\330\"\210\306\331\332\"\210\306\333\334\"\210\306\335\336\"\210\306\337\340\"\210\306\341\342\"\210\306\343\344\"\210\306\345\346\"\210\306\347\350\"\210\306\351\352\"\210\306\353\354\"\210\306\355\356\"\210\306\357\360\"\210\306\361\362\"\210\306\363\364\"\207\306\365\366!\332\"\210\306\365\367!\334\"\210\306\365\370!\330\"\210\306\365\371!\336\"\210\306\365\372!\320\"\210\306\365\373!\312\"\210\306\365\374!\314\"\210\306\365\375!\314\"\210\306\365\376!\310\"\210\306\365\377!\310\"\210\306\365\201@ !\350\"\210\306\365\366\303\"\350\"\210\306\365\201A !\356\"\210\306\365\367\303\"\356\"\210\306\365\201B !\352\"\210\306\365\201C !\354\"\210\306\365\201D !\322\"\210\306\365\201E !\324\"\210\306\365\201F !\326\"\210\306\365\376\303\"\326\"\210\306\365\201G !\360\"\210\306\365\201H !\360\"\210\306\365\370\303\"\340\"\210\306\365\371\303\"\346\"\210\306\365\201B \303\"\342\"\210\306\365\201C \303\"\344\"\210\306\365\372\303\"\316\"\210\306\365\201I !\362\"\210\306\365\201J !\364\"\207" [var value oemacs t fboundp oemacs-version global-set-key [C-f1] vcursor-toggle-copy [C-f2] vcursor-copy [C-f3] vcursor-copy-word [C-f4] vcursor-copy-line [S-f1] vcursor-disable [S-f2] vcursor-other-window [S-f3] vcursor-goto [S-f4] vcursor-swap-point [C-f5] vcursor-backward-char [C-f6] vcursor-previous-line [C-f7] vcursor-next-line [C-f8] vcursor-forward-char [M-f5] vcursor-beginning-of-line [M-f6] vcursor-backward-word [M-f6] vcursor-forward-word [M-f8] vcursor-end-of-line [S-f5] vcursor-beginning-of-buffer [S-f6] vcursor-scroll-down [S-f7] vcursor-scroll-up [S-f8] vcursor-end-of-buffer [C-f9] vcursor-isearch-forward [S-f9] vcursor-execute-key [S-f10] vcursor-execute-command vcursor-cs-binding "up" "down" "left" "right" "return" "insert" "delete" "remove" "tab" "backtab" "home" "end" "prior" "next" "f6" "f7" "select" "find" "f8" "f9" "f10"] 4 (#$ . 1591)])
(byte-code "\300\301\302\303\304\305\306\307\310\311\312\313& \210\300\314\302\315\304\316\306\307\312\313& \210\300\317\320\321\304\322\306\307\312\313& \207" [custom-declare-variable vcursor-key-bindings nil "How to bind keys when vcursor is loaded.\nIf t, guess; if `xterm', use bindings suitable for an X terminal; if\n`oemacs', use bindings which work on a PC with Oemacs. If nil, don't\ndefine any key bindings.\n\nDefault is nil." :type (choice (const t) (const nil) (const xterm) (const oemacs)) :group vcursor :set vcursor-bind-keys :version "20.3" vcursor-interpret-input "If non-nil, input from the vcursor is treated as interactive input.\nThis will cause text insertion to be much slower. Note that no special\ninterpretation of strings is done: \"\" is a string of four\ncharacters. The default is simply to copy strings." boolean vcursor-string "**>" "String used to show the vcursor position on dumb terminals." string] 12)
#@67 Overlay for the virtual cursor.
It is nil if that is not enabled.
(defvar vcursor-overlay nil (#$ . 4861))
#@112 Last window to have displayed the virtual cursor.
See the function `vcursor-find-window' for how this is used.
(defvar vcursor-window nil (#$ . 4975))
#@186 Non-nil if last command was a vcursor command.
The commands `vcursor-copy', `vcursor-relative-move' and the ones for
scrolling set this. It is used by the `vcursor-auto-disable' code.
(defvar vcursor-last-command nil (#$ . 5133))
#@74 Non-nil means moving vcursor should copy characters moved over to point.
(custom-declare-variable 'vcursor-copy-flag nil '(#$ . 5370) :type 'boolean :group 'vcursor)
#@63 Keeps track of temporary goal columns for the virtual cursor.
(defvar vcursor-temp-goal-column nil (#$ . 5542))
#@29 Keymap for vcursor command.
(defvar vcursor-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210\302\333\334#\210\302\335\336#\210\302\337\340#\210\302\341\342#\210\302\343\344#\210\302\345\346#\210\302\347\350#\210\302\351\352#\210\302\353\354#\210\302\355\356#\210\302\357\360#\210\302\361\362#\210\302\363\364#\210\302\365\366#\210)\207" [map make-sparse-keymap define-key "t" vcursor-use-vcursor-map "" vcursor-previous-line "" vcursor-next-line "" vcursor-backward-char "" vcursor-forward-char "
" vcursor-disable " " vcursor-copy "" vcursor-copy-word " " vcursor-toggle-copy "<" vcursor-beginning-of-buffer ">" vcursor-end-of-buffer "\366" vcursor-scroll-down "" vcursor-scroll-up "o" vcursor-other-window "g" vcursor-goto "x" vcursor-swap-point "" vcursor-isearch-forward "" vcursor-isearch-backward "" vcursor-beginning-of-line "" vcursor-end-of-line "\367" vcursor-forward-word "\342" vcursor-backward-word "\354" vcursor-copy-line "c" vcursor-compare-windows "k" vcursor-execute-key "\370" vcursor-execute-command] 4) (#$ . 5660))
(byte-code "\300M\210 \203
\302\301 \"\210\300\207" [vcursor-map vcursor-key-bindings vcursor-bind-keys] 3)
#@107 Go to the starting point of the virtual cursor.
If that's disabled, don't go anywhere but don't complain.
(defalias 'vcursor-locate #[nil "\301!\205 \302!\205 \302!q\205 \303!b\207" [vcursor-overlay overlayp overlay-buffer overlay-start] 2 (#$ . 7029)])
#@729 Return a suitable window for displaying the virtual cursor.
This is the first window in cyclic order where the vcursor is visible.
With optional NOT-THIS non-nil never return the current window.
With NEW-WIN non-nil, display the virtual cursor buffer in another
window if the virtual cursor is not currently visible (note, however,
that this function never changes `window-point').
With THIS-FRAME non-nil, don't search other frames for a new window
(though if the vcursor is already off-frame then its current window is
always considered, and the value of `pop-up-frames' is always respected).
Returns nil if the virtual cursor is not visible anywhere suitable.
Set `vcursor-window' to the returned value as a side effect.
(defalias 'vcursor-find-window #[(&optional not-this new-win this-frame) "\306 \307\211\212\310 \210\311 !\203# p\312 !=\203# \f\203% \n =\203% \307 \2030 \313` \"\204[ \314\315\307
?#\210 \206Z \203I \n =\204I \202Z \206Z \203Y \316p\317\"\202Z \307, \207" [winbuf winok thiswin vcursor-window not-this this-frame selected-window nil vcursor-locate window-live-p window-buffer pos-visible-in-window-p walk-windows #[(win) "?\2051 p\305 !=\2051 \n\205 =?\2051 \306` \"\203# \211\207 =\2061 \f?\2051 \211\207" [winok win not-this thiswin winbuf window-buffer pos-visible-in-window-p] 3] display-buffer t new-win] 4 (#$ . 7297)])
#@165 Toggle copying to point when the vcursor is moved.
With a prefix ARG, turn on if non-negative, off if negative.
Display a message unless optional NOMSG is non-nil.
(defalias 'vcursor-toggle-copy #[(&optional arg nomsg) "\204 ?\202 \304!\305W\203 \306\202 \307\307 \206) \310\311 \203' \312\202( \313\"\207" [arg vcursor-copy-flag vcursor-last-command nomsg prefix-numeric-value 0 nil t message "Copying from the vcursor is now %s." "on" "off"] 3 (#$ . 8679) "P"])
#@327 Move the virtual cursor to the character to the right of PT.
PT is an absolute location in the current buffer. With optional
LEAVE-B, PT is in the same buffer the vcursor is currently in.
If the new virtual cursor location would not be visible, display it in
another window. With LEAVE-W, use the current `vcursor-window'.
(defalias 'vcursor-move #[(pt &optional leave-b leave-w) "\212\203 \306\307!\203 \310 !q\210\nd=\203 \nS\306\307!\203* \311 \n\211Tp$\210\202K \312\n\211T\" \204? \313 \204? \314 \315\f#\210\314 \316\317#\210\314 \320\321#\210
\204T \322\323\307\"\210\324\n\"\206a \325\n\")\207" [leave-b vcursor-overlay pt window-system vcursor-string leave-w vcursor-check t overlay-buffer move-overlay make-overlay display-color-p overlay-put before-string face vcursor priority 200 vcursor-find-window nil pos-visible-in-window-p set-window-point vcursor-window] 5 (#$ . 9159)])
#@52 Insert TEXT, respecting `vcursor-interpret-input'.
(defalias 'vcursor-insert #[(text) "\203
\303\304 !\n\"\211\207 c\207" [vcursor-interpret-input text unread-command-events append listify-key-sequence] 3 (#$ . 10068)])
#@126 Call FUNC with arbitrary ARGS ... to move the virtual cursor.
This is called by most of the virtual-cursor motion commands.
(defalias 'vcursor-relative-move #[(func &rest args) "\306\211\212\307 \210`\310\n \"\210d=\203 `=\203 \311\312\306\"\210\313`!\210\f\203, `{) \2035 \314 !\210*\315\211\207" [opoint text func args vcursor-copy-flag vcursor-last-command nil vcursor-locate apply signal end-of-buffer vcursor-move vcursor-insert t] 3 (#$ . 10298)])
#@205 Move the real cursor to the virtual cursor position.
If the virtual cursor is (or was recently) visible in another window,
switch to that first. Without a prefix ARG, disable the virtual
cursor as well.
(defalias 'vcursor-goto #[(&optional arg) "\304 \203 \305!\210 \205 \306 !\211\203 p\n=\204 \307\n!\210)\310 \210 \206) \311 \207" [vcursor-window vcursor-overlay buf arg vcursor-find-window select-window overlay-buffer switch-to-buffer vcursor-locate vcursor-disable] 3 (#$ . 10770) "P"])
#@254 Swap the location of point and that of the virtual cursor.
The virtual cursor window becomes the selected window and the old
window becomes the virtual cursor window. If the virtual cursor would
not be visible otherwise, display it in another window.
(defalias 'vcursor-swap-point #[nil "p`\304 \305 \210r\nq\210\306 !,\207" [win here buf vcursor-window selected-window vcursor-goto vcursor-move] 3 (#$ . 11277) nil])
#@125 Scroll up the vcursor window ARG lines or near full screen if none.
The vcursor will always appear in an unselected window.
(defalias 'vcursor-scroll-up #[(&optional n) "\301\302\"\207" [n vcursor-window-funcall scroll-up] 3 (#$ . 11709) "P"])
#@127 Scroll down the vcursor window ARG lines or near full screen if none.
The vcursor will always appear in an unselected window.
(defalias 'vcursor-scroll-down #[(&optional n) "\301\302\"\207" [n vcursor-window-funcall scroll-down] 3 (#$ . 11961) "P"])
#@158 Perform forward incremental search in the virtual cursor window.
The virtual cursor is moved to the resulting point; the ordinary
cursor stays where it was.
(defalias 'vcursor-isearch-forward #[(&optional rep norecurs) "\302\303 #\207" [rep norecurs vcursor-window-funcall isearch-forward] 4 (#$ . 12219) "P"])
#@159 Perform backward incremental search in the virtual cursor window.
The virtual cursor is moved to the resulting point; the ordinary
cursor stays where it was.
(defalias 'vcursor-isearch-backward #[(&optional rep norecurs) "\302\303 #\207" [rep norecurs vcursor-window-funcall isearch-backward] 4 (#$ . 12538) "P"])
#@367 Call FUNC with ARGS ... in a virtual cursor window.
A window other than the currently-selected one will always be used.
The virtual cursor is moved to the value of point when the function
returns.
If FUNC is a list, call the car of the list interactively, ignoring
ARGS. In this case, a new window will not be created if the vcursor
is visible in the current one.
(defalias 'vcursor-window-funcall #[(func &rest args) "\306<\205 \307\310!?\310\"\210\212\311 \312\313\216`\314\f!\210\315 \210<\203+ \316@!\210\2020 \317
\"\210\311 \203E p\320!=\203E `{\321`\312\310#\210* \203T \322 !\210+\310\211\207" [func text sw here vcursor-window args vcursor-find-window vcursor-check t selected-window nil ((select-window sw)) select-window vcursor-locate call-interactively apply overlay-buffer vcursor-move vcursor-insert vcursor-copy-flag vcursor-overlay vcursor-last-command] 4 (#$ . 12860)])
#@239 Apply FUNC to ARGS ... and return the number of characters moved.
Point is temporarily set to the virtual cursor position before FUNC
is called.
This is called by most of the virtual-cursor copying commands to find
out how much to copy.
(defalias 'vcursor-get-char-count #[(func &rest args) "\304 \210r\305!q\210\306!b\307\n \"\210` Z*\207" [vcursor-overlay start func args vcursor-check overlay-buffer overlay-start apply] 3 (#$ . 13774)])
(defalias 'vcursor-check #[(&optional arg) "\302!\203 \303!\203 \304\207 \203 \305\207\306\307!\207" [vcursor-overlay arg overlayp overlay-start t nil error "The virtual cursor is not active now"] 2])
#@120 Non-nil if Vcursor-Use-Vcursor-Map mode is enabled.
Use the command `vcursor-use-vcursor-map' to change this variable.
(defvar vcursor-use-vcursor-map nil (#$ . 14432))
(make-variable-buffer-local 'vcursor-use-vcursor-map)
#@465 Toggle the state of the vcursor key map.
With a prefix argument ARG, enable it if ARG is positive, and disable
it otherwise. If called from Lisp, enable it if ARG is omitted or nil.
When on, the keys defined in it are mapped directly on top of the main
keymap, allowing you to move the vcursor with ordinary motion keys.
An indication "!VC" appears in the mode list. The effect is
local to the current buffer.
Disabling the vcursor automatically turns this off.
(defalias 'vcursor-use-vcursor-map #[(&optional arg) "\303 \304=\203 \n?\202 \305 !\306V\307\310\n\203 \311\202 \312\"\210\313\314!\203@ \303 \2033 \303 \232\203@ \315\316\n\203= \317\202> \320\"\210)\321 \210\n\207" [#1=#:last-message arg vcursor-use-vcursor-map current-message toggle prefix-numeric-value 0 run-hooks vcursor-use-vcursor-map-hook vcursor-use-vcursor-map-on-hook vcursor-use-vcursor-map-off-hook called-interactively-p any message "Vcursor-Use-Vcursor-Map mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 14662) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\211%\207" [vcursor-map add-minor-mode vcursor-use-vcursor-map " !VC" nil] 6)
#@497 Disable the virtual cursor.
Next time you use it, it will start from point.
With a positive prefix ARG, the first window in cyclic order
displaying the virtual cursor (or which was recently displaying the
virtual cursor) will be deleted unless it's the selected window.
With a negative prefix argument, enable the virtual cursor: make it
active at the same point as the real cursor.
Copying mode is always turned off: the next use of the vcursor will
not copy text until you turn it on again.
(defalias 'vcursor-disable #[(&optional arg) "\305!\203\f \306!\210\307\310\311!\203\" \203\" \312 !\313W\204\" \314\n!\210 \2038 \312 !\313W\2038 \315`!\210\316 \202@ \203@ \303\313!\210\307\211\207" [vcursor-overlay arg vcursor-window vcursor-use-vcursor-map vcursor-copy-flag overlayp delete-overlay nil vcursor-find-window t prefix-numeric-value 0 delete-window vcursor-move selected-window] 2 (#$ . 15827) "P"])
#@370 Activate the virtual cursor in another window.
This is the next window cyclically after one currently showing the
virtual cursor, or else after the current selected window. If there
is no other window, the current window is split.
Arguments N and optional ALL-FRAMES are the same as with `other-window'.
ALL-FRAMES is also used to decide whether to split the window.
(defalias 'vcursor-other-window #[(n &optional all-frames) "\304\305!\203\f \306\307!\202 \306\307\"\203 \310p\311\"\210\212\312 \313\216\314\307\211?#\211\203- \315\n!\210\316 \"\210\317\320!,\207" [all-frames #1=#:wconfig win n fboundp oemacs-version one-window-p nil display-buffer t current-window-configuration ((set-window-configuration #1#)) vcursor-find-window select-window other-window vcursor-disable -1] 5 (#$ . 16754) "p"])
#@437 Compare text in current window with text in window with vcursor.
Compares the text starting at point in the current window and at the
vcursor position in the other window, moving over text in each one as
far as they match.
A prefix argument, if any, means ignore changes in whitespace.
The variable `compare-windows-whitespace' controls how whitespace is skipped.
If `compare-ignore-case' is non-nil, changes in case are also ignored.
(defalias 'vcursor-compare-windows #[(&optional ignore-whitespace) "\306\307!\210\310\211\310\211\310\211 \310\211 ` \310 \205# `p\311\312\211\"\211\313 =\204; \204? \314\315!\210\212\316 \210`p) dr
q\210d)\312\203+\310b\210\317 \312\"\210 \203\314 \212\310\211\211\211 ;\203\206 \320!\202\213 ! `
q\210 b\210 ;\203\243 \320!\202\250 ! ` ;\204\305 \203\313 \203\313 =\203\313 -\321\310! \" #\211 $\322V\203'\312##\203 $\nZ^ Z^\211$\322V\205\323
$ \\\f$\\&\322U\211#\203\337 $\\ $\\\312\202\337 $\324\245\211$\202\327 +\202W b\210\317 \312\"\210`U\205<\325 . \207" [p1 p2 maxp1 maxp2 b1 b2 require compare-w nil vcursor-find-window t selected-window error "No other window with vcursor" vcursor-locate vcursor-move compare-windows-skip-whitespace 1000 0 compare-buffer-substrings 2 ding w2 success opoint1 opoint2 ignore-whitespace compare-windows-whitespace skip-whitespace result2 result1 p2a p1a compare-ignore-case case-fold-search success-1 size] 9 (#$ . 17574) "P"])
#@44 Move the virtual cursor forward ARG lines.
(defalias 'vcursor-next-line #[(arg) "\306\211\211\212\307 \210 \310=\204 \311=\203 \312\f\2023
\2032 l\2032 n\203. \313=\2032 \314\2023 i`\315!\210 d=\203L `=\203L \316\317\306\"\210\203U `{\320`!\210\n\321)\205f \322!+\207" [text opoint temporary-goal-column last-command vcursor-temp-goal-column track-eol nil vcursor-locate vcursor-next-line vcursor-previous-line next-line end-of-line 9999 line-move signal end-of-buffer vcursor-move t vcursor-insert arg vcursor-copy-flag vcursor-last-command] 3 (#$ . 19099) "p"])
#@41 Move the virtual cursor back ARG lines.
(defalias 'vcursor-previous-line #[(arg) "\301[!\207" [arg vcursor-next-line] 2 (#$ . 19692) "p"])
#@49 Move the virtual cursor forward ARG characters.
(defalias 'vcursor-forward-char #[(arg) "\301\302\"\207" [arg vcursor-relative-move forward-char] 3 (#$ . 19838) "p"])
#@50 Move the virtual cursor backward ARG characters.
(defalias 'vcursor-backward-char #[(arg) "\301\302\"\207" [arg vcursor-relative-move backward-char] 3 (#$ . 20012) "p"])
#@44 Move the virtual cursor forward ARG words.
(defalias 'vcursor-forward-word #[(arg) "\301\302\"\207" [arg vcursor-relative-move forward-word] 3 (#$ . 20189) "p"])
#@45 Move the virtual cursor backward ARG words.
(defalias 'vcursor-backward-word #[(arg) "\301\302\"\207" [arg vcursor-relative-move backward-word] 3 (#$ . 20358) "p"])
#@94 Move the virtual cursor to beginning of its current line.
ARG is as for `beginning-of-line'.
(defalias 'vcursor-beginning-of-line #[(arg) "\301\302\205 \303!\"\207" [arg vcursor-relative-move beginning-of-line prefix-numeric-value] 4 (#$ . 20530) "P"])
#@82 Move the virtual cursor to end of its current line.
ARG is as for `end-of-line'.
(defalias 'vcursor-end-of-line #[(arg) "\301\302\205 \303!\"\207" [arg vcursor-relative-move end-of-line prefix-numeric-value] 4 (#$ . 20792) "P"])
#@94 Move the virtual cursor to the beginning of its buffer.
ARG is as for `beginning-of-buffer'.
(defalias 'vcursor-beginning-of-buffer #[(&optional arg) "\301\302\205 \303!\"\207" [arg vcursor-relative-move #[(arg) "\203 deZ_\301\245\202 eb\207" [arg 10] 3] prefix-numeric-value] 4 (#$ . 21030) "P"])
#@174 Move the virtual cursor to the end of its buffer.
ARG is as for `end-of-buffer'.
Actually, the vcursor is moved to the second from last character or it
would be invisible.
(defalias 'vcursor-end-of-buffer #[(&optional arg) "\301\302\205 \303!\"\207" [arg vcursor-relative-move #[(arg) "\203 ddeZ_\301\245Z\202 db\207" [arg 10] 4] prefix-numeric-value] 4 (#$ . 21342) "P"])
#@135 Execute COMMAND for the virtual cursor.
COMMAND is called interactively. Not all commands (in fact, only a
small subset) are useful.
(defalias 'vcursor-execute-command #[(cmd) "\301C!\207" [cmd vcursor-window-funcall] 2 (#$ . 21730) "CCommand: "])
#@205 Read a key sequence and execute the bound command for the virtual cursor.
The key sequence is read at the vcursor location. The command found
is called interactively, so prefix argument etc. are usable.
(defalias 'vcursor-execute-key #[nil "\303\212\304\305\306!?\306\"\210\307 \310\216\311\n!\210\312 \210\313\314\315!!+\316C!)\207" [cmd #1=#:wconfig vcursor-window nil vcursor-find-window vcursor-check t current-window-configuration ((set-window-configuration #1#)) select-window vcursor-locate key-binding read-key-sequence "Key sequence: " vcursor-window-funcall] 3 (#$ . 21987) nil])
#@64 Copy ARG characters from the virtual cursor position to point.
(defalias 'vcursor-copy #[(arg) "\305 \210\306r\307!q\210\310!\211\n\\ {\311 !\210+!\210\312\211\207" [vcursor-overlay ostart arg end vcursor-last-command vcursor-check vcursor-insert overlay-buffer overlay-start vcursor-move t] 5 (#$ . 22588) "p"])
#@59 Copy ARG words from the virtual cursor position to point.
(defalias 'vcursor-copy-word #[(arg) "\301\302\303\"!\207" [arg vcursor-copy vcursor-get-char-count forward-word] 4 (#$ . 22913) "p"])
#@289 Copy up to ARGth line after virtual cursor position.
With no argument, copy to the end of the current line.
Behavior with regard to newlines is similar (but not identical) to
`kill-line'; the main difference is that whitespace at the end of the
line is treated like ordinary characters.
(defalias 'vcursor-copy-line #[(arg) "\303!\304\305 \"\306\n\307U\204 \203 \nT\202 \n!*\207" [arg num count prefix-numeric-value vcursor-get-char-count end-of-line vcursor-copy 0] 3 (#$ . 23114) "P"])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias vcursor-toggle-vcursor-map vcursor-use-vcursor-map nil make-obsolete "23.1"] 4)
(defalias 'vcursor-post-command #[nil "\203 \204 \n\203 \303=\203 \304 \210\202 \305\306\303\"\210\307\211\207" [vcursor-auto-disable vcursor-last-command vcursor-overlay t vcursor-disable vcursor-toggle-copy -1 nil] 3])
(byte-code "\300\301\302\"\210\303\304!\207" [add-hook post-command-hook vcursor-post-command provide vcursor] 3)