Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.20
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
27.1 /
lisp /
obsolete /
[ HOME SHELL ]
Name
Size
Permission
Action
abbrevlist.elc
1.27
KB
-rw-r--r--
assoc.elc
4.12
KB
-rw-r--r--
bruce.elc
1.48
KB
-rw-r--r--
cc-compat.elc
2.75
KB
-rw-r--r--
cl-compat.elc
3.81
KB
-rw-r--r--
cl.elc
14.81
KB
-rw-r--r--
complete.elc
24.19
KB
-rw-r--r--
crisp.elc
11.09
KB
-rw-r--r--
cust-print.elc
12.32
KB
-rw-r--r--
erc-hecomplete.elc
8.6
KB
-rw-r--r--
eudcb-ph.elc
5.87
KB
-rw-r--r--
fast-lock.elc
16.69
KB
-rw-r--r--
gs.elc
3.76
KB
-rw-r--r--
gulp.elc
4.59
KB
-rw-r--r--
html2text.elc
9.77
KB
-rw-r--r--
info-edit.elc
4.45
KB
-rw-r--r--
iswitchb.elc
31.64
KB
-rw-r--r--
landmark.elc
41.62
KB
-rw-r--r--
lazy-lock.elc
24.11
KB
-rw-r--r--
ledit.elc
4.44
KB
-rw-r--r--
levents.elc
9.27
KB
-rw-r--r--
lmenu.elc
10.96
KB
-rw-r--r--
longlines.elc
15.21
KB
-rw-r--r--
lucid.elc
5.2
KB
-rw-r--r--
mailpost.elc
2.11
KB
-rw-r--r--
mantemp.elc
3.61
KB
-rw-r--r--
meese.elc
833
B
-rw-r--r--
messcompat.el
1.73
KB
-rw-r--r--
mouse-sel.elc
20.17
KB
-rw-r--r--
old-emacs-lock.elc
2.59
KB
-rw-r--r--
old-whitespace.elc
22.78
KB
-rw-r--r--
otodo-mode.elc
23.86
KB
-rw-r--r--
patcomp.elc
988
B
-rw-r--r--
pc-mode.elc
1.3
KB
-rw-r--r--
pc-select.elc
12.86
KB
-rw-r--r--
pgg-def.elc
2.24
KB
-rw-r--r--
pgg-gpg.elc
12.72
KB
-rw-r--r--
pgg-parse.elc
12.87
KB
-rw-r--r--
pgg-pgp.elc
7.42
KB
-rw-r--r--
pgg-pgp5.elc
7.34
KB
-rw-r--r--
pgg.elc
18.98
KB
-rw-r--r--
rcompile.elc
3.01
KB
-rw-r--r--
s-region.elc
3.08
KB
-rw-r--r--
sregex.elc
12.15
KB
-rw-r--r--
starttls.elc
6.03
KB
-rw-r--r--
sup-mouse.elc
3.98
KB
-rw-r--r--
terminal.elc
30.36
KB
-rw-r--r--
tls.elc
7.29
KB
-rw-r--r--
tpu-edt.elc
59.59
KB
-rw-r--r--
tpu-extras.elc
11.88
KB
-rw-r--r--
tpu-mapper.elc
10.33
KB
-rw-r--r--
url-ns.elc
2.16
KB
-rw-r--r--
vc-arch.elc
17.65
KB
-rw-r--r--
vi.elc
47.89
KB
-rw-r--r--
vip.elc
76.49
KB
-rw-r--r--
ws-mode.elc
24.11
KB
-rw-r--r--
yow.elc
2.14
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : vi.elc
;ELC ;;; Compiled ;;; in Emacs version 27.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 "\301\302\303 \"\204 \304\305\302#\210\301\207" [ctl-x-map where-is-internal vi-switch-mode current-local-map define-key "~"] 4) #@77 Keymap used for \[vi-switch-mode] prefix key. Link to various major modes. (defvar vi-tilde-map nil (#$ . 550)) (byte-code "\204s \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\301\207" [vi-tilde-map make-keymap define-key "a" abbrev-mode "c" c-mode "d" vi-debugging "e" emacs-lisp-mode "f" auto-fill-mode "g" prolog-mode "h" hanoi "i" info-mode "l" lisp-mode "n" nroff-mode "o" overwrite-mode "O" outline-mode "P" picture-mode "r" vi-readonly-mode "t" text-mode "v" vi-mode "x" tex-mode "~" vi-back-to-old-mode] 4) #@92 Switch the major mode of current buffer as specified by the following char \{vi-tilde-map} (defalias 'vi-switch-mode #[(arg mode-char) "\306\307 !\"\211\204K r\310\311!q\210p\312 \210\f\313\211\314\211\314 \315 \210\316\317!\210+\211 \320\321\322!!\210r q\210\323 )\324!\210+\202V \325\n\313\"\210\326 )\207" [vi-tilde-map mode-char mode-cmd default-directory #1=#:old-dir buffer-read-only lookup-key char-to-string get-buffer-create "*Help*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ substitute-command-keys "Possible major modes to switch to: \\{vi-tilde-map}" help-mode internal-temp-output-buffer-show command-execute force-mode-line-update buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output arg prefix-arg] 5 (#$ . 1358) "P\nc"]) #@61 Toggle debug-on-error flag. If prefix arg is given, set t. (defalias 'vi-debugging #[(arg) "\203 \302\202\f ? \203 \303\304!\207\303\305!\207" [arg debug-on-error t message "Debug-on-error ..." "NO more debug-on-error"] 2 (#$ . 2216) "P"]) #@64 Go back to the previous mode without setting up for insertion. (defalias 'vi-back-to-old-mode #[nil "\205 \306 !\210 \307 \207" [vi-mode-old-major-mode vi-mode-old-mode-name mode-name vi-mode-old-local-map major-mode vi-mode-old-case-fold use-local-map force-mode-line-update case-fold-search] 2 (#$ . 2469) nil]) #@40 Toggle current buffer's readonly flag. (defalias 'vi-readonly-mode #[nil "?\211\207" [buffer-read-only] 2 (#$ . 2797) nil]) #@128 Keymap used in Evi's command state Command state includes most of the vi editing commands, with some Emacs command extensions. (defvar vi-com-map nil (#$ . 2930)) (byte-code "\301\302\303\304#\210\204\202\305 \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\332#\210\306\342\343#\210\306\344\345#\210\306\346\347#\210\306\350\351#\210\306\352\353#\210\306\354\355#\210\306\356\357#\210\306\360\361#\210\306\362\363#\210\306\364\365#\210\306\366\367#\210\306\370\371#\210\306\372\373#\210\306\374\375#\210\306\376\377#\210\306\201@ \201A #\210\306\201B \302#\210\306\201C \201D #\210\306\201E \201F #\210\306\201G \201H #\210\306\201I \201J #\210\306\201K \201L #\210\306\201M \201N #\210\306\201O \375#\210\306\201P \201Q #\210\306\201R \201S #\210\306\201T \201U #\210\306\201V \201W #\210\306\201X \340#\210\306\201Y \201Z #\210\306\201[ \201\\ #\210\306\201] \201^ #\210\306\201_ \201` #\210\306\201a \201b #\210\306\201c \201d #\210\306\201e \201d #\210\306\201f \201d #\210\306\201g \201d #\210\306\201h \201d #\210\306\201i \201d #\210\306\201j \201d #\210\306\201k \201d #\210\306\201l \201d #\210\306\201m \201n #\210\306\201o \201p #\210\306\201q \201F #\210\306\201r \201F #\210\306\201s \201F #\210\306\201t \201u #\210\306\201v \201w #\210\306\201x \201y #\210\306\201z \201{ #\210\306\201| \201} #\210\306\201~ \334#\210\306\201 \201\200 #\210\306\201\201 \201\202 #\210\306\201\203 \201\204 #\210\306\201\205 \201\206 #\210\306\201\207 \201\210 #\210\306\201\211 \201\212 #\210\306\201\213 \302#\210\306\201\214 \201\215 #\210\306\201\216 \201\217 #\210\306\201\220 \201\221 #\210\306\201\222 \201\223 #\210\306\201\224 \201\225 #\210\306\201\226 \201\227 #\210\306\201\230 \201\231 #\210\306\201\232 \201\233 #\210\306\201\234 \201\235 #\210\306\201\236 \375#\210\306\201\237 \302#\210\306\201\240 \201\241 #\210\306\201\242 \201\243 #\210\306\201\244 \201\245 #\210\306\201\246 \201\247 #\210\306\201\250 \201\251 #\210\306\201\252 \375#\210\306\201\253 \201F #\210\306\201\254 \375#\210\306\201\255 \201\256 #\210\306\201\257 \302#\210\306\201\260 \201\261 #\210\306\201\262 \201\263 #\210\306\201\264 \201\265 #\210\306\201\266 \201F #\210\306\201\267 \201F #\210\306\201\270 \201\271 #\210\306\201\272 \201\273 #\210\306\201\274 \201\275 #\210\306\201\276 \201\277 #\210\306\201\300 \201\301 #\210\306\201\302 \332#\210\306\201\303 \345#\210\306\201\304 \201D #\210\306\201\305 \201\306 #\210\306\201\307 \201\310 #\210\306\201\311 \201\312 #\210\306\201\313 \201\314 #\210\306\201\315 \201\316 #\210\306\201\317 \201\320 #\210\306\201\321 \201\322 #\210\306\201\323 \201\324 #\210\306\201\325 \201\326 #\210\306\201\327 \201\330 #\210\306\201\331 \201\332 #\210\306\201\333 \201\334 #\210\306\201\335 \201F #\210\306\201\336 \201\337 #\210\306\201\340 \201\341 #\210\306\201\342 \201\343 #\210\306\201\344 \201\345 #\210\306\201\346 \201\347 #\210\306\201\350 \201\351 #\210\301\201\277 \201\352 \201\353 #\210\301\332\201\352 \201\354 #\210\301\201\355 \201\352 \201\354 #\210\301\201\356 \201\352 \201\354 #\210\301\345\201\352 \201\354 #\210\301\351\201\352 \201\357 #\210\301\201u \201\352 \201\357 #\210\301\353\201\352 \201\357 #\210\301\201` \201\352 \201\357 #\210\301\201D \201\352 \201\353 #\210\301\201L \201\352 \201\353 #\210\301\201N \201\352 \201\360 #\210\301\201Q \201\352 \201\354 #\210\301\201S \201\352 \201\361 #\210\301\201U \201\352 \201\361 #\210\301\340\201\352 \201\354 #\210\301\201\\ \201\352 \201\354 #\210\301\201Z \201\352 \201\362 #\210\301\201\363 \201\352 \201\357 #\210\301\201b \201\352 \201\353 #\210\301\201\275 \201\352 \201\353 #\210\301\201p \201\352 \201\364 #\210\301\201\365 \201\352 \201\357 #\210\301\201{ \201\352 \201\366 #\210\301\201\200 \201\352 \201\360 #\210\301\201\202 \201\352 \201\364 #\210\301\201\204 \201\352 \201\354 #\210\301\201\206 \201\352 \201\354 #\210\301\201\215 \201\352 \201\354 #\210\301\201\217 \201\352 \201\354 #\210\301\201\221 \201\352 \201\367 #\210\301\201\235 \201\352 \201\364 #\210\301\201\241 \201\352 \201\366 #\210\301\201\256 \201\352 \201\353 #\210\301\201\261 \201\352 \201\353 #\210\301\201\265 \201\352 \201\370 #\210\301\201\271 \201\352 \201\360 #\210\301\201\273 \201\352 \201\364 #\210\301\201\277 \201\352 \201\353 #\210\301\201\371 \201\352 \201\353 #\210\301\201\310 \201\352 \201\357 #\210\301\201\324 \201\352 \201\364 #\210\301\201\332 \201\352 \201\370 #\210\301\201\343 \201\352 \201\360 #\210\301\201\345 \201\352 \201\372 #\210\301\201\341 \201\352 \201\372 #\210\301\201\373 \201\352 \201\374 #\210\301\201\375 \201\352 \201\374 #\210\301\201\376 \201\352 \201\374 #\210\301\201\377 \201\352 \201\374 #\210\301\201 \201\352 \201\374 #\210\301\201\201\352 \201\374 #\210\301\201\201\352 \201\374 #\210\301\201\201\352 \201\374 #\207" [vi-com-map put vi-undefined suppress-keymap t make-keymap define-key " " vi-mark-region "" vi-ask-for-info "" vi-backward-windowful "" vi-do-old-mode-C-c-command "" vi-scroll-down-window "" vi-expose-line-below "" vi-forward-windowful "" keyboard-quit " " indent-relative-first-indent-point "\n" vi-next-line " " vi-kill-line "\f" recenter " " vi-next-line-first-nonwhite "" "" vi-split-open-line "" previous-line "" vi-query-replace "" vi-isearch-backward "" vi-isearch-forward "" vi-transpose-objects "" vi-scroll-up-window "" scroll-up-command "" vi-kill-region "" Control-X-prefix "" vi-expose-line-above "" suspend-emacs "" ESC-prefix " " vi-unimplemented " " find-tag " " vi-locate-def " " " " forward-char "!" vi-operator "\"" vi-char-argument "#" universal-argument "$" end-of-line "%" vi-find-matching-paren "&" "'" vi-goto-line-mark "(" backward-sexp ")" forward-sexp "*" vi-name-last-change-or-macro "+" "," vi-reverse-last-find-char "-" vi-previous-line-first-nonwhite "." vi-redo-last-change-command "/" vi-search-forward "0" beginning-of-line "1" vi-digit-argument "2" "3" "4" "5" "6" "7" "8" "9" ":" vi-ex-cmd ";" vi-repeat-last-find-char "<" "=" ">" "?" vi-search-backward "@" vi-call-named-change-or-macro "A" vi-append-at-end-of-line "B" vi-backward-blank-delimited-word "C" vi-change-rest-of-line "D" "E" vi-end-of-blank-delimited-word "F" vi-backward-find-char "G" vi-goto-line "H" vi-home-window-line "I" vi-insert-before-first-nonwhite "J" vi-join-lines "K" "L" vi-last-window-line "M" vi-middle-window-line "N" vi-reverse-last-search "O" vi-open-above "P" vi-put-before "Q" vi-quote-words "R" vi-replace-chars "S" vi-substitute-lines "T" vi-backward-upto-char "U" "V" "W" vi-forward-blank-delimited-word "X" call-last-kbd-macro "Y" vi-yank-line "Z" make-sparse-keymap "ZZ" vi-save-all-and-exit "[" "\\" "]" "^" back-to-indentation "_" "`" vi-goto-char-mark "a" vi-insert-after "b" backward-word "c" "d" "e" vi-end-of-word "f" vi-forward-find-char "g" vi-beginning-of-buffer "h" backward-char "i" vi-insert-before "j" "k" "l" "m" vi-set-mark "n" vi-repeat-last-search "o" vi-open-below "p" vi-put-after "q" vi-replace "r" vi-replace-1-char "s" vi-substitute-chars "t" vi-forward-upto-char "u" undo "v" vi-verify-spelling "w" vi-forward-word "x" vi-kill-char "y" "z" vi-adjust-window "{" backward-paragraph "|" vi-goto-column "}" forward-paragraph "~" vi-change-case "" delete-backward-char point-moving-unit char line next-line forward-line search match sexp rev-find vi-re-search-forward find vi-re-search-backward WORD rev-search word vi-forward-char paragraph mark-page region mark-paragraph mark-word mark-sexp mark-defun mark-whole-buffer mark-end-of-sentence c-mark-function] 4) #@57 Alist of (NAME . MARK), marks are local to each buffer. (defvar vi-mark-alist nil (#$ . 10745)) #@60 Default amount of lines for scrolling (used by "^D"/"^U"). (defvar vi-scroll-amount (byte-code "\300 \301\245\207" [window-height 2] 2) (#$ . 10847)) #@37 Shift amount for "<"/">" operators. (defvar vi-shift-width 4 (#$ . 11003)) #@51 Last insertion point. Should use `mark' instead. (defvar vi-ins-point nil (#$ . 11084)) #@27 Length of last insertion. (defvar vi-ins-length nil (#$ . 11179)) #@45 The repetition required for last insertion. (defvar vi-ins-repetition nil (#$ . 11251)) #@45 T if last insertion was a replace actually. (defvar vi-ins-overwrt-p nil (#$ . 11345)) #@52 Code to be eval'ed before (redo-)insertion begins. (defvar vi-ins-prefix-code nil (#$ . 11438)) #@64 Save last direction, char and upto-flag used for char finding. (defvar vi-last-find-char nil (#$ . 11540)) #@111 Save commands for redoing last changes. Each command is in (FUNC . ARGS) form that is ready to be `apply'ed. (defvar vi-last-change-command nil (#$ . 11654)) #@49 Save last shell command given for "!" operator. (defvar vi-last-shell-command nil (#$ . 11819)) #@35 Non-nil if it is in insert state. (defvar vi-insert-state nil (#$ . 11921)) #@45 Save last search command for possible redo. (defvar vi-search-last-command nil (#$ . 12003)) #@50 Save the local-map used before entering vi-mode. (defvar vi-mode-old-local-map nil (#$ . 12102)) #@45 Save the mode-name before entering vi-mode. (defvar vi-mode-old-mode-name nil (#$ . 12205)) #@46 Save the major-mode before entering vi-mode. (defvar vi-mode-old-major-mode nil (#$ . 12303)) (defvar vi-mode-old-case-fold nil) #@74 Setup a buffer for vi-mode by creating necessary buffer-local variables. (defalias 'vi-mode-setup #[nil "\302\300!\210\303 \304\245\302\301!\210\305\302\306!\210\302\307!\210\302\310!\210\302\311!\210\302\312!\210\302\313!\210\302\314!\210\302\315!\210\302\316!\210\302\317!\210\302\320!\210\302\321!\210\302\322!\210\302\323!\210\324\325!\207" [vi-scroll-amount vi-shift-width make-local-variable window-height 2 4 vi-ins-point vi-ins-length vi-ins-repetition vi-ins-overwrt-p vi-ins-prefix-code vi-last-change-command vi-last-shell-command vi-last-find-char vi-mark-alist vi-insert-state vi-mode-old-local-map vi-mode-old-mode-name vi-mode-old-major-mode vi-mode-old-case-fold run-mode-hooks vi-mode-hook] 2 (#$ . 12438)]) #@2273 Major mode that acts like the `vi' editor. The purpose of this mode is to provide you the combined power of vi (namely, the "cross product" effect of commands and repeat last changes) and Emacs. This command redefines nearly all keys to look like vi commands. It records the previous major mode, and any vi command for input (`i', `a', `s', etc.) switches back to that mode. Thus, ordinary Emacs (in whatever major mode you had been using) is "input" mode as far as vi is concerned. To get back into vi from "input" mode, you must issue this command again. Therefore, it is recommended that you assign it to a key. Major differences between this mode and real vi : * Limitations and unsupported features - Search patterns with line offset (e.g. /pat/+3 or /pat/z.) are not supported. - Ex commands are not implemented; try ':' to get some hints. - No line undo (i.e. the `U' command), but multi-undo is a standard feature. * Modifications - The stopping positions for some point motion commands (word boundary, pattern search) are slightly different from standard `vi'. Also, no automatic wrap around at end of buffer for pattern searching. - Since changes are done in two steps (deletion then insertion), you need to undo twice to completely undo a change command. But this is not needed for undoing a repeated change command. - No need to set/unset `magic', to search for a string with regular expr in it just put a prefix arg for the search commands. Replace cmds too. - ^R is bound to incremental backward search, so use ^L to redraw screen. * Extensions - Some standard (or modified) Emacs commands were integrated, such as incremental search, query replace, transpose objects, and keyboard macros. - In command state, ^X links to the `ctl-x-map', and ESC can be linked to esc-map or set undefined. These can give you the full power of Emacs. - See vi-com-map for those keys that are extensions to standard vi, e.g. `vi-name-last-change-or-macro', `vi-verify-spelling', `vi-locate-def', `vi-mark-region', and `vi-quote-words'. Some of them are quite handy. - Use \[vi-switch-mode] to switch among different modes quickly. Syntax table and abbrevs while in vi mode remain as they were in Emacs. (defalias 'vi-mode #[nil "\204 \306 \210 \307=\203 \310 \210\311\312!\207\313 \314\315!\210\307\316\317 \210\2053 \320 \207" [vi-mode-old-major-mode major-mode vi-mode-old-local-map mode-name vi-mode-old-mode-name case-fold-search vi-mode-setup vi-mode ding message "Already in vi-mode." current-local-map nil use-local-map "VI" force-mode-line-update vi-end-of-insert-state vi-mode-old-case-fold vi-com-map vi-insert-state] 2 (#$ . 13173) nil]) #@8 Ding ! (defalias 'vi-ding #[nil "\300 \207" [ding] 1 (#$ . 15914) nil]) #@61 Save all modified buffers without asking, then exits emacs. (defalias 'vi-save-all-and-exit #[nil "\300\301!\210\302 \207" [save-some-buffers t kill-emacs] 2 (#$ . 15992) nil]) (defvar vi-replaced-string nil) (defvar vi-replacing-string nil) #@495 Ex commands are not implemented in Evi mode. For some commonly used ex commands, you can use the following alternatives for similar effect : w C-x C-s (save-buffer) wq C-x C-c (save-buffers-kill-emacs) w fname C-x C-w (write-file) e fname C-x C-f (find-file) r fname C-x i (insert-file) s/old/new use q (vi-replace) to do unconditional replace use C-q (vi-query-replace) to do query replace set sw=n M-x set-variable vi-shift-width n (defalias 'vi-ex-cmd #[nil "r\306\307!q\210p\310 \210 \311\211\312\211\312 \313 \210\314\315!\210+\211 \316\317\320!!\210rq\210\321 )\322!\210+\207" [default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks get-buffer-create "*Help*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ documentation vi-ex-cmd help-mode internal-temp-output-buffer-show inhibit-read-only #2=#:buf standard-output] 4 (#$ . 16241) nil]) (defalias 'vi-undefined #[nil "\301\302\303!\"\210\304 \207" [last-command-event message "Command key \"%s\" is undefined in Evi." single-key-description ding] 4 nil nil]) (defalias 'vi-unimplemented #[nil "\301\302\303!\"\210\304 \207" [last-command-event message "Command key \"%s\" is not implemented in Evi." single-key-description ding] 4 nil nil]) #@291 Go into insert state, the text entered will be repeated if REPETITION > 1. If PREFIX-CODE is given, do it before insertion begins if DO-IT-NOW-P is T. In any case, the prefix-code will be done before each `redo-insert'. This function expects `overwrite-mode' being set properly beforehand. (defalias 'vi-goto-insert-state #[(repetition &optional prefix-code do-it-now-p) "\203 \306 @ A\"\210` \n \f \307!\210\310 \210\311\211\207" [do-it-now-p prefix-code vi-ins-point repetition vi-ins-repetition vi-ins-prefix-code apply use-local-map force-mode-line-update t vi-mode-old-mode-name mode-name vi-mode-old-case-fold case-fold-search vi-mode-old-local-map vi-mode-old-major-mode major-mode vi-insert-state] 3 (#$ . 17614)]) #@53 Terminate insertion and set up last change command. (defalias 'vi-end-of-insert-state #[nil "`W\204 `U\203 \203 \n\305X\203 \306\307!\207\n\310V\2035 `{\n\310V\2034 c\210\nS\211\202% )\311\312`\f %\210\306\307!\207" [vi-ins-point vi-ins-prefix-code vi-ins-repetition str overwrite-mode 0 vi-goto-command-state t 1 vi-set-last-change-command vi-first-redo-insertion] 7 (#$ . 18361)]) #@148 Redo last insertion the first time. Extract the string and save it for future redoes. Do prefix-code if it's given, use overwrite mode if asked. (defalias 'vi-first-redo-insertion #[(begin end &optional overwrite-p prefix-code) " { \203 \305 @ A\"\210\f\203 ``\nG\\|\210\nc\210\306\307\n\f $)\207" [begin end str prefix-code overwrite-p apply vi-set-last-change-command vi-more-redo-insertion] 5 (#$ . 18763)]) #@135 Redo more insertion : copy string from STR to point, use overwrite mode if overwrite-p is T; apply prefix-code first if it's non-nil. (defalias 'vi-more-redo-insertion #[(str &optional overwrite-p prefix-code) "\203 \303@A\"\210 \203 ``\nG\\|\210\nc\207" [prefix-code overwrite-p str apply] 3 (#$ . 19187)]) #@87 Go to vi-mode command state. If optional arg exists, means return from insert state. (defalias 'vi-goto-command-state #[(&optional from-insert-state-p) "\304!\210\305\n\205 \205 \303\306!\207" [vi-com-map vi-insert-state from-insert-state-p overwrite-mode use-local-map nil 0] 2 (#$ . 19506)]) #@68 kill specified number of lines (=d$), text saved in the kill ring. (defalias 'vi-kill-line #[(arg) "\301!\210\302\301\"\207" [arg kill-line vi-set-last-change-command] 3 (#$ . 19812) "*P"]) (defalias 'vi-kill-region #[(start end) "\302 \"\210\303\302!\207" [start end kill-region vi-set-last-change-command] 3 nil "*r"]) #@53 go to end of line and then go into vi insert state. (defalias 'vi-append-at-end-of-line #[(arg) "\301\302\303#\207" [arg vi-goto-insert-state (end-of-line) t] 4 (#$ . 20142) "*p"]) #@46 Change the rest of (ARG) lines (= c$ in vi). (defalias 'vi-change-rest-of-line #[(arg) "\301\302\303D\304#\207" [arg vi-goto-insert-state 1 kill-line t] 4 (#$ . 20330) "*P"]) #@14 (= ^i in vi) (defalias 'vi-insert-before-first-nonwhite #[(arg) "\301\302\303#\207" [arg vi-goto-insert-state (back-to-indentation) t] 4 (#$ . 20512) "*p"]) #@61 open new line(s) above current line and enter insert state. (defalias 'vi-open-above #[(arg) "\301\302\303D\304#\207" [arg vi-goto-insert-state 1 #[(x) "\301 \206 \302!\207" [x beginning-of-line open-line] 2] t] 4 (#$ . 20676) "*p"]) #@60 open new line(s) and go into insert mode on the last line. (defalias 'vi-open-below #[(arg) "\301\302\303D\304#\207" [arg vi-goto-insert-state 1 #[(x) "\301\206 \302!\206 y\207" [x nil open-line] 2] t] 4 (#$ . 20919) "*p"]) #@37 start vi insert state after cursor. (defalias 'vi-insert-after #[(arg) "\301\302C\303#\207" [arg vi-goto-insert-state #[nil "l?\205 \300u\207" [nil] 1] t] 4 (#$ . 21155) "*p"]) #@39 enter insert state before the cursor. (defalias 'vi-insert-before #[(arg) "\301!\207" [arg vi-goto-insert-state] 2 (#$ . 21340) "*p"]) #@19 Go to ARGth line. (defalias 'vi-goto-line #[(arg) "\301!\204 \302 \207\303\304!!\207" [arg vi-raw-numeric-prefix end-of-buffer goto-line vi-prefix-numeric-value] 3 (#$ . 21482) "P"]) #@48 Move point to the beginning of current buffer. (defalias 'vi-beginning-of-buffer #[nil "eb\207" [] 1 (#$ . 21674) nil]) #@68 Incremental search forward. Use regexp version if ARG is non-nil. (defalias 'vi-isearch-forward #[(arg) "\203 \304\202 \305`\306\n!\210 `U?\205\" \203 \307\202 \310\211*\207" [arg opoint scmd vi-search-last-command isearch-forward-regexp isearch-forward call-interactively re-search-forward search-forward] 2 (#$ . 21800) "P"]) #@69 Incremental search backward. Use regexp version if ARG is non-nil. (defalias 'vi-isearch-backward #[(arg) "\203 \304\202 \305`\306\n!\210 `U?\205\" \203 \307\202 \310\211*\207" [arg opoint scmd vi-search-last-command isearch-backward-regexp isearch-backward call-interactively re-search-backward search-backward] 2 (#$ . 22144) "P"]) #@70 Nonincremental search forward. Use regexp version if ARG is non-nil. (defalias 'vi-search-forward #[(arg string) "\203 \303\202 \304\nG\305V\203 \306\n\"\210 \n\307\211\310$\207" [arg vi-search-last-command string re-search-forward search-forward 0 isearch-update-ring nil 1] 5 (#$ . 22494) (byte-code "\203 \301\302\303\304\"D\207\304\302\305\304\"D\207" [current-prefix-arg t read-string "regexp/" nil "/"] 4)]) #@72 Nonincremental search backward. Use regexp version if ARG is non-nil. (defalias 'vi-search-backward #[(arg string) "\203 \303\202 \304\nG\305V\203 \306\n\"\210 \n\307\211\310$\207" [arg vi-search-last-command string re-search-backward search-backward 0 isearch-update-ring nil 1] 5 (#$ . 22922) (byte-code "\203 \301\302\303\304\"D\207\304\302\305\304\"D\207" [current-prefix-arg t read-string "regexp?" nil "?"] 4)]) #@111 Repeat last search command. If optional search-command/string are given, use those instead of the ones saved. (defalias 'vi-repeat-last-search #[(arg &optional search-command search-string) "\204 \n\204 \306>\203 \202 \f@\204\" \307 \210\310\311!\207\n\312\211 $\207" [search-command vi-search-last-command search-string regexp-search-ring search-ring arg (re-search-forward re-search-backward) ding message "No last search command to repeat." nil] 5 (#$ . 23356) "p"]) #@124 Redo last search command in reverse direction. If the optional search args are given, use those instead of the ones saved. (defalias 'vi-reverse-last-search #[(arg &optional search-command search-string) "\204 \n\204 \306>\203 \202 \f@\204\" \307 \210\310\311!\207\312\267\2028 \313\2029 \314\2029 \315\2029 \316\2029 \317\n\317\211 $\207" [search-command vi-search-last-command search-string regexp-search-ring search-ring arg (re-search-forward re-search-backward) ding message "No last search command to repeat." #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (re-search-forward 40 re-search-backward 44 search-forward 48 search-backward 52)) re-search-backward re-search-forward search-backward search-forward nil] 5 (#$ . 23845) "p"]) #@72 join ARG lines from current line (default 2), cleaning up white space. (defalias 'vi-join-lines #[(arg) "\302!\204 \303\304!\210\202# \305!\211\306Y\203\" \303\304!\210 S\211\202 )\307\310\"\207" [arg count vi-raw-numeric-prefix delete-indentation t vi-prefix-numeric-value 2 vi-set-last-change-command vi-join-lines] 4 (#$ . 24641) "P"]) #@53 kill the current line. Only works in insert state. (defalias 'vi-backward-kill-line #[nil "\205 \301\302!\210\303\304!\207" [vi-insert-state beginning-of-line 1 kill-line nil] 2 (#$ . 24993) nil]) #@70 abort insert state, kill inserted text and go back to command state. (defalias 'vi-abort-ins #[nil "\205 ` V\203 \302 `\"\210\303\304!\207" [vi-insert-state vi-ins-point kill-region vi-goto-command-state t] 3 (#$ . 25199) nil]) #@44 Backward COUNT windowfuls. Default is one. (defalias 'vi-backward-windowful #[(count) "\301V\205 \302\303!\210S\211\202 \207" [count 0 scroll-down nil] 3 (#$ . 25436) "p"]) #@152 Scrolls down window COUNT lines. If COUNT is nil (actually, non-integer), scrolls default amount. The given COUNT is remembered for future scrollings. (defalias 'vi-scroll-down-window #[(count) "\250\203 \302 !\207" [count vi-scroll-amount scroll-up] 2 (#$ . 25621) "P"]) #@72 Expose COUNT more lines below the current window. Default COUNT is 1. (defalias 'vi-expose-line-below #[(count) "\301!\207" [count scroll-up] 2 (#$ . 25903) "p"]) #@43 Forward COUNT windowfuls. Default is one. (defalias 'vi-forward-windowful #[(count) "\301V\205 \302\303!\210S\211\202 \207" [count 0 scroll-up nil] 3 (#$ . 26074) "p"]) #@54 Go down count lines, try to keep at the same column. (defalias 'vi-next-line #[(count) "\303`\304 !\210`U\203 \305 \207\303\211\207" [this-command count last-command next-line line-move ding] 3 (#$ . 26254) "p"]) #@48 Go down COUNT lines. Stop at first non-white. (defalias 'vi-next-line-first-nonwhite #[(count) "`y\210\301 \210`U\205 \302 \207" [count back-to-indentation ding] 2 (#$ . 26476) "p"]) #@46 Go up COUNT lines. Stop at first non-white. (defalias 'vi-previous-line-first-nonwhite #[(count) "[y\210\301 \207" [count back-to-indentation] 1 (#$ . 26668) "p"]) #@150 Scrolls up window COUNT lines. If COUNT is nil (actually, non-integer), scrolls default amount. The given COUNT is remembered for future scrollings. (defalias 'vi-scroll-up-window #[(count) "\250\203 \302 !\207" [count vi-scroll-amount scroll-down] 2 (#$ . 26841) "P"]) #@72 Expose COUNT more lines above the current window. Default COUNT is 1. (defalias 'vi-expose-line-above #[(count) "\301!\207" [count scroll-down] 2 (#$ . 27121) "p"]) #@155 Get following character (could be any CHAR) as part of the prefix argument. Possible prefix-arg cases are nil, INTEGER, (nil . CHAR) or (INTEGER . CHAR). (defalias 'vi-char-argument #[(arg) "\303 \204 \304B\211\202\" \250\203 B\211\202\" @B\211)\207" [char arg prefix-arg read-char nil] 2 (#$ . 27295) "P"]) #@125 Go to marked position or line (if line-flag is given). Goto mark `@' means jump into and pop the top mark on the mark ring. (defalias 'vi-goto-mark #[(mark-char &optional line-flag) "\304 \"\203 \305 \210\n\205B \306 \207\304\307\"\203# \310\311!\210\n\205B \306 \207\312!\211\2044 \313 \210\314\315!\202A \310\316!\210 b\210\n\205A \306 )\207" [mark-char last-command-event line-flag mark char-equal exchange-point-and-mark back-to-indentation 64 set-mark-command t vi-get-mark vi-ding message "Mark register undefined." nil] 4 (#$ . 27623)]) #@58 Go to the line (at first non-white) marked by next char. (defalias 'vi-goto-line-mark #[(char) "\301\302\"\207" [char vi-goto-mark t] 3 (#$ . 28178) "c"]) #@51 Go to the char position marked by next mark-char. (defalias 'vi-goto-char-mark #[(char) "\301!\207" [char vi-goto-mark] 2 (#$ . 28340) "c"]) #@30 Set numeric prefix argument. (defalias 'vi-digit-argument #[(arg) "\204 \302!\207\250\203 \302\303!\210 _\211\207\302\303!\210 @\204% \304\202' @_AB\211\207" [arg prefix-arg digit-argument nil 1] 2 (#$ . 28488) "P"]) #@55 Return the raw value of numeric part prefix argument. (defalias 'vi-raw-numeric-prefix #[(arg) ":\203 @\207\207" [arg] 1 (#$ . 28722)]) #@148 Return numeric meaning of the raw prefix argument. This is a modification to the standard one provided in `callint.c' to handle (_ . CHAR) cases. (defalias 'vi-prefix-numeric-value #[(arg) "\204 \301\207\250\203 \207:\205 @\203 @\207\301\207" [arg 1] 1 (#$ . 28869)]) #@118 Reverse last f F t T operation COUNT times. If the optional FIND-ARG is given, it is used instead of the saved one. (defalias 'vi-reverse-last-find-char #[(count &optional find-arg) "\204 \204 \303 \210\304\305!\207\306@\307_AB\n\"\207" [find-arg vi-last-find-char count ding message "No last find char to repeat." vi-find-char -1] 3 (#$ . 29155) "p"]) #@144 Find in DIRECTION (1/-1) for CHAR of COUNT'th times on current line. If UPTO-FLAG is T, stop before the char. ARG = (DIRECTION.CHAR.UPTO-FLAG. (defalias 'vi-find-char #[(arg count) "@A@AA` \\ \3062Z \ff\204 \307\306\310\"\210\202R \311\ff\312\"\2030 \307\306\310\"\210\202R \311\n\ff\"\203R S\211\313U\203R \307\306 \203O \f Z\211\202P \f\"\210\f \\\211\202 \203b \fb\202d \314 ,\207" [arg direction char upto-flag pos count exit-find-char throw nil char-equal 10 0 ding] 5 (#$ . 29524)]) #@113 Repeat last f F t T operation COUNT times. If optional FIND-ARG is given, it is used instead of the saved one. (defalias 'vi-repeat-last-find-char #[(count &optional find-arg) "\204 \204 \303 \210\304\305!\207\306\n\"\207" [find-arg vi-last-find-char count ding message "No last find char to repeat." vi-find-char] 3 (#$ . 30032) "p"]) #@50 Find the COUNT'th CHAR backward on current line. (defalias 'vi-backward-find-char #[(count char) "\303\304BB\305\n!\207" [char vi-last-find-char count -1 nil vi-repeat-last-find-char] 3 (#$ . 30382) "p\nc"]) #@49 Find the COUNT'th CHAR forward on current line. (defalias 'vi-forward-find-char #[(count char) "\303\304BB\305\n!\207" [char vi-last-find-char count 1 nil vi-repeat-last-find-char] 3 (#$ . 30598) "p\nc"]) #@55 Find upto the COUNT'th CHAR backward on current line. (defalias 'vi-backward-upto-char #[(count char) "\303\304BB\305\n!\207" [char vi-last-find-char count -1 t vi-repeat-last-find-char] 3 (#$ . 30811) "p\nc"]) #@54 Find upto the COUNT'th CHAR forward on current line. (defalias 'vi-forward-upto-char #[(count char) "\303\304BB\305\n!\207" [char vi-last-find-char count 1 t vi-repeat-last-find-char] 3 (#$ . 31030) "p\nc"]) #@92 Move forward until encountering the end of a word. With argument, do this that many times. (defalias 'vi-end-of-word #[(count) "m\204 \301u\210\302\303\301\304$\205 \305u\207" [count nil re-search-forward "\\W*\\w+\\>" t -1] 5 (#$ . 31246) "p"]) #@56 Replace char after point by CHAR. Repeat COUNT times. (defalias 'vi-replace-1-char #[(count char) "\303\304\"\210 \305!\210\306\307 #\207" [count char last-command-event delete-char nil self-insert-command vi-set-last-change-command vi-replace-1-char] 4 (#$ . 31501) "p\nc"]) #@30 Replace chars over old ones. (defalias 'vi-replace-chars #[(arg) "\301\302!\210\303!\207" [arg overwrite-mode 1 vi-goto-insert-state] 2 (#$ . 31788) "*p"]) #@64 Substitute COUNT chars by the input chars, enter insert state. (defalias 'vi-substitute-chars #[(count) "\301\302\303D\304#\207" [count vi-goto-insert-state 1 #[(c) "``\\|\207" [c] 3] t] 4 (#$ . 31951) "*p"]) #@56 Substitute COUNT lines by the input chars. (=cc in vi) (defalias 'vi-substitute-lines #[(count) "\301\302\303\304SE\305#\207" [count vi-goto-insert-state 1 vi-delete-op next-line t] 5 (#$ . 32168) "*p"]) #@51 Get the char part of the current prefix argument. (defalias 'vi-prefix-char-value #[(arg) "\204 \301\207\250\203 \301\207:\203 A\207\301\207" [arg nil] 1 (#$ . 32379)]) #@120 Handling vi operators (d/c/</>/!/=/y). Current implementation requires the key bindings of the operators being fixed. (defalias 'vi-operator #[(arg) "\3062F \307 \310\n\311!\"\211\312=\204 \f\202) \312\f!\210\307 \310\n\311!\"\313 \"\203? \314 \315\316 !S\317 !B#\202D \314 #)0\207" [last-command-event this-op-char vi-com-map this-command arg prefix-arg vi-exit-op read-char lookup-key char-to-string vi-digit-argument char-equal vi-execute-op next-line vi-prefix-numeric-value vi-prefix-char-value] 7 (#$ . 32562) "P"]) #@120 Execute vi edit operator as specified by OP-CHAR, the operand is the region determined by the MOTION-COMMAND with ARG. (defalias 'vi-execute-op #[(op-char motion-command arg) "\305U\203 \306 \n\"\205\247 \307\306\310 !\n#\207\311U\203- \306 \n\"\205\247 \312\313\306\310 !\nE\314#\207\315U\203B \316 \n\"\205\247 \307\316\310 !\n#\207\317U\203X \320 \n\"\205\247 \307\320\310 !\n $\207\321U\203q \322 \n\f[#\205\247 \307\322\310 !\n\f[$\207\323U\203\210 \322 \n\f#\205\247 \307\322\310 !\n\f$\207\324U\203\235 \325 \n\"\205\247 \307\325\310 !\n#\207\326U\205\247 \327 \n\"\207" [op-char motion-command arg vi-last-shell-command vi-shift-width 100 vi-delete-op vi-set-last-change-command vi-repeat-command-of 99 vi-goto-insert-state 1 nil 121 vi-yank-op 33 vi-shell-op 60 vi-shift-op 62 61 vi-indent-op 92 vi-narrow-op] 5 (#$ . 33105)]) #@48 Return the command for redo the given command. (defalias 'vi-repeat-command-of #[(command) "\302N\211\303\267\202 \304\202 \305\202 )\207" [command cmd-type point-moving-unit #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (search 10 find 14)) vi-repeat-last-search vi-repeat-last-find-char] 3 (#$ . 33956)]) #@158 Return (begin . end) of the range spanned by executing the given MOTION-COMMAND with ARG. MOTION-COMMAND in ready-to-eval list form is not yet supported. (defalias 'vi-effective-range #[(motion-command arg) "\212`\306\211\307N `\310\306\"\210`\nU\203' \311=\204' \n\211B\202y \312=\2034 \313 \2063 `\f`X\203? `\202C \f` \314=\204O \315=\203U T\202n \311=\203n \fb\210\316 \210` b\210\317y\210\316 \210` dV\203v d\f B-\207" [motion-command moving-unit opoint end begin arg nil point-moving-unit command-execute line region mark match find beginning-of-line 1 prefix-arg] 5 (#$ . 34315)]) #@52 Delete range specified by MOTION-COMMAND with ARG. (defalias 'vi-delete-op #[(motion-command arg) "\306 \"\211@\nA \307 \fU?\205C \310 !\211\204$ \311 \f\"\210\202B \312Y\203; \313X\203; \314 \227 \f\315$\210\202B \316 \f\315$\210\315,\207" [motion-command arg range begin end reg vi-effective-range nil vi-prefix-char-value kill-region 65 90 append-to-register t copy-to-register] 6 (#$ . 34933)]) #@64 Yank (in vi sense) range specified by MOTION-COMMAND with ARG. (defalias 'vi-yank-op #[(motion-command arg) "\306 \"\211@\nA \307 \fU?\205C \310 !\211\204$ \311 \f\"\210\202B \312Y\203; \313X\203; \314 \227 \f\307$\210\202B \315 \f\307$\210\316,\207" [motion-command arg range begin end reg vi-effective-range nil vi-prefix-char-value copy-region-as-kill 65 90 append-to-register copy-to-register t] 6 (#$ . 35346)]) #@44 Yank (in vi sense) lines (= `yy' command). (defalias 'vi-yank-line #[(arg) "\301!S\302!B\303\304\"\205 \305\303\304#\207" [arg vi-prefix-numeric-value vi-prefix-char-value vi-yank-op next-line vi-set-last-change-command] 4 (#$ . 35777) "*P"]) #@118 See if STRING ends with a newline char. Used in checking whether the yanked text should be put back as lines or not. (defalias 'vi-string-end-with-nl-p #[(string) "\211GSH\301U\207" [string 10] 2 (#$ . 36033)]) #@208 Put yanked (in vi sense) text back before/above cursor. If a numeric prefix value (currently it should be >1) is given, put back text as lines. If the optional after-p is given, put after/below the cursor. (defalias 'vi-put-before #[(arg &optional after-p) "\305!\306\211\203# \n\307W\204 \n\310V\203# \311\n!\204# \312\313\n\"\202\202 \n\204) \307\n\307Y\203B \n\310X\203B \314\315\316\n\317\320#\321\"\202S \311\n!;\203O \311\n!\202S \312\322\n\"\323 !\203m \f\203g \320y\210\324 \210\202t \324 \210\202t \f\203t \320u\210\325 \210 c\210\326 \210\327\330\f#*\207" [arg put-text reg this-command after-p vi-prefix-char-value nil 49 57 get-register error "Nothing in register %c" yank current-kill - 48 1 do-not-rotate "Register %c is not containing text string" vi-string-end-with-nl-p beginning-of-line push-mark exchange-point-and-mark vi-set-last-change-command vi-put-before] 6 (#$ . 36252) "P"]) #@56 Put yanked (in vi sense) text back after/below cursor. (defalias 'vi-put-after #[(arg) "\301\302\"\207" [arg vi-put-before t] 3 (#$ . 37169) "P"]) #@229 Perform shell command (as filter). Performs command on range specified by MOTION-COMMAND with ARG. If SHELL-COMMAND is not given, ask for one from minibuffer. If char argument is given, it directs the output to a *temp* buffer. (defalias 'vi-shell-op #[(motion-command arg &optional shell-command) "\306 \"\211@\nA \fU?\205- \204 \307\310\311\"\211 \312 \f \313 !?\313 !?%\210\314+\207" [motion-command arg range begin end shell-command vi-effective-range read-string "!" nil shell-command-on-region vi-prefix-char-value t vi-last-shell-command] 8 (#$ . 37324)]) #@202 Perform shift command on range specified by MOTION-COMMAND with ARG for AMOUNT on each line. Negative amount means shift left. SPECIAL FEATURE: char argument can be used to specify shift amount(1-9). (defalias 'vi-shift-op #[(motion-command arg amount) "\306 \"\211@\nA \fU?\2053 \307 !\203, \310V\203& \307 !\311Z\202+ \311\307 !Z\312 \f #\210\313+\207" [motion-command arg range begin end amount vi-effective-range vi-prefix-char-value 0 48 indent-rigidly t] 5 (#$ . 37902)]) #@71 Perform indent command on range specified by MOTION-COMMAND with ARG. (defalias 'vi-indent-op #[(motion-command arg) "\305 \"\211@\nA \fU?\205 \306 \f\307#\210\310+\207" [motion-command arg range begin end vi-effective-range indent-region nil t] 5 (#$ . 38393)]) #@56 Narrow to region specified by MOTION-COMMAND with ARG. (defalias 'vi-narrow-op #[(motion-command arg) "\306 \"\211@\nA \307 \fU?\205 \f},\207" [motion-command arg range begin end reg vi-effective-range nil] 4 (#$ . 38667)]) #@70 Return contents of vi mark register named CHAR, or nil if undefined. (defalias 'vi-get-mark #[(char) " \236A\207" [char vi-mark-alist] 2 (#$ . 38903)]) #@107 Set contents of vi mark register named CHAR to current point. '@' is the special anonymous mark register. (defalias 'vi-set-mark #[(char) "\303\304\"\203 \305\306!\207 \236\211\203 \nA`\306\223\202% \307 B\211 B\211)\207" [char vi-mark-alist aelt char-equal 64 set-mark-command nil point-marker] 4 (#$ . 39063) "c"]) #@52 Locate the matching paren. It's a hack right now. (defalias 'vi-find-matching-paren #[nil "\300\301!\203 \302\303!\210\304u\207\300\305!\203 \303u\210\306\303!\207\307 \207" [looking-at "[[({]" forward-sexp 1 -1 "[])}]" backward-sexp ding] 2 (#$ . 39394) nil]) #@39 Backward COUNT blank-delimited words. (defalias 'vi-backward-blank-delimited-word #[(count) "\301\302\303\304$\205 o?\205 \305u\207" [count re-search-backward "[ \n`][^ \n`]+" nil t 1] 5 (#$ . 39664) "p"]) #@38 Forward COUNT blank-delimited words. (defalias 'vi-forward-blank-delimited-word #[(count) "\301\302\303\304$\205 m?\205 \305u\207" [count re-search-forward "[^ \n]*[ \n]+[^ \n]" nil t -1] 5 (#$ . 39881) "p"]) #@58 Forward to the end of the COUNT'th blank-delimited word. (defalias 'vi-end-of-blank-delimited-word #[(count) "\301\302\303\304$\205 m?\205 \305u\207" [count re-search-forward "[^ \n']+[ \n']" nil t -2] 5 (#$ . 40102) "p"]) #@59 To window home or arg'th line from the top of the window. (defalias 'vi-home-window-line #[(arg) "\301S!\210\302 \207" [arg move-to-window-line back-to-indentation] 2 (#$ . 40336) "p"]) #@67 To window last line or arg'th line from the bottom of the window. (defalias 'vi-last-window-line #[(arg) "\301[!\210\302 \207" [arg move-to-window-line back-to-indentation] 2 (#$ . 40529) "p"]) #@35 To the middle line of the window. (defalias 'vi-middle-window-line #[nil "\300\301!\210\302 \207" [move-to-window-line nil back-to-indentation] 2 (#$ . 40730) nil]) #@57 Stop at the beginning of the COUNT'th words from point. (defalias 'vi-forward-word #[(count) "\301\302\303\304$\203 \304\207\305 \207" [count re-search-forward "\\w*\\W+\\<" nil t vi-ding] 5 (#$ . 40901) "p"]) #@48 Set (FUN . ARGS) as the `last-change-command'. (defalias 'vi-set-last-change-command #[(fun &rest args) " B\211\207" [fun args vi-last-change-command] 2 (#$ . 41119)]) #@131 Redo last change command COUNT times. If the optional COMMAND is given, it is used instead of the current `last-change-command'. (defalias 'vi-redo-last-change-command #[(count &optional command) "\204 \204 \303\304!\207\n\305V\205\" \306@A\"\210\nS\211\202 \207" [command vi-last-change-command count message "No last change command available." 0 apply] 4 (#$ . 41296) "p"]) #@38 Kill COUNT chars from current point. (defalias 'vi-kill-char #[(count) "\301\302\"\210\303\301\302#\207" [count delete-char t vi-set-last-change-command] 4 (#$ . 41689) "*p"]) #@233 Transpose objects. The following char specifies unit of objects to be transposed -- "c" for chars, "l" for lines, "w" for words, "s" for sexp, "p" for paragraph. For the use of the prefix-arg, refer to individual functions called. (defalias 'vi-transpose-objects #[(arg unit) "\302\303\"\203 \304\305!\210\306 \307\310 #\210\302\311\"\203 \312 !\207\302\313\"\203, \314\315 !!\207\302\316\"\2039 \317\315 !!\207\302\320\"\203F \321\315 !!\207\302\322\"\203S \323\315 !!\207\310 \303\"\207" [unit arg char-equal 63 message "Transpose: c(har), l(ine), p(aragraph), s(-exp), w(ord)," read-char vi-set-last-change-command vi-transpose-objects 99 transpose-chars 108 transpose-lines vi-prefix-numeric-value 112 transpose-paragraphs 115 transpose-sexps 119 transpose-words] 4 (#$ . 41874) "*P\nc"]) #@54 Query replace, use regexp version if ARG is non-nil. (defalias 'vi-query-replace #[(arg) "\203 \302\202 \303\304 \305\")\207" [arg rcmd query-replace-regexp query-replace call-interactively nil] 3 (#$ . 42684) "*P"]) #@56 Replace strings, use regexp version if ARG is non-nil. (defalias 'vi-replace #[(arg) "\203 \302\202 \303\304 \305\")\207" [arg rcmd replace-regexp replace-string call-interactively nil] 3 (#$ . 42911) "*P"]) #@59 Move current line to the top/center/bottom of the window. (defalias 'vi-adjust-window #[(arg position) "\302\303\"\203 \304\305!\207\302\306\"\203 \304\307!\207\302\310\"\203$ \304\311 \312\245!\207\313\314!\210\315 \316 \"\207" [position arg char-equal 13 recenter 0 45 -1 46 window-height 2 message "Move current line to: \\r(top) -(bottom) .(middle)" read-char vi-adjust-window] 3 (#$ . 43129) "p\nc"]) #@41 Go to given column of the current line. (defalias 'vi-goto-column #[(col) "`\302 \210 \303V\203 l\203 \304\211\202 \303u\210 S\211\202 \303U\203) \305\202. b\210\306 )\207" [opoint col beginning-of-line 1 0 t ding] 3 (#$ . 43548) "p"]) #@204 Give name to the last change command or just defined kbd macro. If prefix ARG is given, name last macro, otherwise name last change command. The following CHAR will be the name for the command or macro. (defalias 'vi-name-last-change-or-macro #[(arg char) "\203\f \306\307\310 !!!\207\n@\311=\203/ \nA\211@ A@{ \312 8 \313 8 \314\315\f $\210,\307\310 !!\nM\207" [arg char vi-last-change-command args str overwrite-p name-last-kbd-macro intern char-to-string vi-first-redo-insertion 2 3 vi-set-last-change-command vi-more-redo-insertion prefix-code] 6 (#$ . 43800) "P\nc"]) #@80 Execute COUNT times the keyboard macro definition named by the following CHAR. (defalias 'vi-call-named-change-or-macro #[(count char) "\302\303!!K;\203 \304\302\303!! \"\207\305 \302\303!!K\"\207" [char count intern char-to-string execute-kbd-macro vi-redo-last-change-command] 5 (#$ . 44384) "p\nc"]) #@42 Change the case of the char after point. (defalias 'vi-change-case #[(arg) "\30124 \302\303!\203 \304``\\\"\210\202, \302\305!\203$ \306``\\\"\210\202, \307 \210\310\301\311\"\210\312\313\"\210u0\207" [arg exit looking-at "[a-z]" upcase-region "[A-Z]" downcase-region ding throw nil vi-set-last-change-command vi-change-case] 4 (#$ . 44697) "*p"]) #@80 Inquire status info. The next CHAR will specify the particular info requested. (defalias 'vi-ask-for-info #[(char) "\301\302\"\203\n \303 \207\301\304\"\203 \305 \207\301\306\"\203 \307 \207\310\311!\210\312 \313!\207" [char char-equal 108 what-line 99 what-cursor-position 112 what-page message "Ask for: l(ine number), c(ursor position), p(age number)" read-char vi-ask-for-info] 3 (#$ . 45056) "c"]) #@165 Mark region appropriately. The next char REGION is d(efun),s(-exp),b(uffer), p(aragraph), P(age), f(unction in C/Pascal etc.), w(ord), e(nd of sentence), l(ines). (defalias 'vi-mark-region #[(arg region) "\302\303\"\203\n \304 \207\302\305\"\203 \306 !\207\302\307\"\203 \310 \207\302\311\"\203) \312 \207\302\313\"\2034 \314 !\207\302\315\"\203> \316 \207\302\317\"\203I \320 !\207\302\321\"\203T \322 !\207\302\323\"\203_ \324 !\207\325\326!\210\327 \330 \"\207" [region arg char-equal 100 mark-defun 115 mark-sexp 98 mark-whole-buffer 112 mark-paragraph 80 mark-page 102 c-mark-function 119 mark-word 101 mark-end-of-sentence 108 vi-mark-lines message "Mark: d(efun),s(-exp),b(uf),p(arag),P(age),f(unct),w(ord),e(os),l(ines)" read-char vi-mark-region] 3 (#$ . 45473) "p\nc"]) #@56 Mark NUM of lines from current line as current region. (defalias 'vi-mark-lines #[(num) "\301\302!\210\303 \210\207" [num beginning-of-line 1 push-mark] 2 (#$ . 46272)]) #@99 Verify spelling for the objects specified by char UNIT : [b(uffer), r(egion), s(tring), w(ord) ]. (defalias 'vi-verify-spelling #[(arg unit) "\303\n\304\"\203 \305\306!\207\303\n\307\"\203 \305\310!\207\303\n\311\"\203# \305\312!\207\303\n\313\"\203. \305\314!\207\315\316!\210\317 \320\n\"\207" [arg prefix-arg unit char-equal 98 call-interactively spell-buffer 114 spell-region 115 spell-string 119 spell-word message "Spell check: b(uffer), r(egion), s(tring), w(ord)" read-char vi-verify-spelling] 3 (#$ . 46450) "P\nc"]) #@69 This is a hack for accessing mode specific C-c commands in vi-mode. (defalias 'vi-do-old-mode-C-c-command #[(arg) "\306\307\310\311 !P\"\3122% \204 \313 \210\314\202$ \n\f\315 \314\"\210)\3140\2051 \316 \210\f\315 \314\")\207" [vi-mode-old-local-map cmd vi-mode-old-case-fold case-fold-search arg prefix-arg lookup-key "" char-to-string read-char exit-vi-mode ding nil command-execute vi-back-to-old-mode] 5 (#$ . 46988) "P"]) #@122 Quote ARG words from the word point is on with pattern specified by CHAR. Currently, CHAR could be [,{,(,",',`,<,*, etc. (defalias 'vi-quote-words #[(arg char) "\302\303\304!\"\204 \305\306!\210\307 \202 \310\311 #\210\312\313!\204\" \314v\210c\210\315\316\"\2031 \317\202^ \315\320\"\203= \321\202^ \315\322\"\203I \323\202^ \315\324\"\203U \325\202^ \315\326\"\203^ \327\330 !\210\331u\210c\207" [char arg string-match "[[({<\"'`*]" char-to-string message "Enter any of [,{,(,<,\",',`,* as quoting character." read-char vi-set-last-change-command vi-quote-words looking-at "\\<" -1 char-equal 91 93 123 125 60 62 40 41 96 39 vi-end-of-word 1] 4 (#$ . 47430) "*p\nc"]) #@130 Locate definition in current file for the name before the point. It assumes a `(def..' always starts at the beginning of a line. (defalias 'vi-locate-def #[nil "\301\212\302\303!\210\304\301w\210`\305\303!\210\301u\210\304\301x\210`{)\306\301!\210eb\210\307\310P\301\311#?\2058 \312 \210\313\314\"\210\306\311!)\207" [name nil vi-backward-blank-delimited-word 1 "^a-zA-Z" vi-end-of-blank-delimited-word set-mark-command re-search-forward "^(def[unvarconst ]*" t ding message "No definition for \"%s\" in current file."] 4 (#$ . 48124) nil]) #@83 Insert a newline and leave point before it. With ARG, inserts that many newlines. (defalias 'vi-split-open-line #[(arg) "\301\302\303D\304#\207" [arg vi-goto-insert-state 1 #[(arg) "n\205 o?\211\203 \303u\210 \304V\203' \212\305c\210\n\203 \nc\210) S\211\202 \205- \306u)\207" [flag arg fill-prefix -1 0 10 1] 3] t] 4 (#$ . 48675) "*p"]) (provide 'vi)
Close
