|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ v ┃
Length: 65157 (0xfe85)
Names: »vip.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/vip.elc«
0x0000…0020 0a 28 64 65 66 76 61 72 20 65 6d 61 63 73 2d 6c 6f 63 61 6c 2d 6d 61 70 20 6e 69 6c 20 22 5c 0a ┆ (defvar emacs-local-map nil "\ ┆ 0x0020…0040 4c 6f 63 61 6c 20 6d 61 70 20 75 73 65 64 20 69 6e 20 65 6d 61 63 73 20 6d 6f 64 65 2e 20 28 62 ┆Local map used in emacs mode. (b┆ 0x0040…0060 75 66 66 65 72 20 73 70 65 63 69 66 69 63 29 22 29 0a 0a 28 64 65 66 76 61 72 20 69 6e 73 65 72 ┆uffer specific)") (defvar inser┆ 0x0060…0080 74 2d 6c 6f 63 61 6c 2d 6d 61 70 20 6e 69 6c 20 22 5c 0a 4c 6f 63 61 6c 20 6d 61 70 20 75 73 65 ┆t-local-map nil "\ Local map use┆ 0x0080…00a0 64 20 69 6e 20 69 6e 73 65 72 74 20 63 6f 6d 6d 61 6e 64 20 6d 6f 64 65 2e 20 28 62 75 66 66 65 ┆d in insert command mode. (buffe┆ 0x00a0…00c0 72 20 73 70 65 63 69 66 69 63 29 22 29 0a 0a 28 6d 61 6b 65 2d 76 61 72 69 61 62 6c 65 2d 62 75 ┆r specific)") (make-variable-bu┆ 0x00c0…00e0 66 66 65 72 2d 6c 6f 63 61 6c 20 28 71 75 6f 74 65 20 65 6d 61 63 73 2d 6c 6f 63 61 6c 2d 6d 61 ┆ffer-local (quote emacs-local-ma┆ 0x00e0…0100 70 29 29 0a 0a 28 6d 61 6b 65 2d 76 61 72 69 61 62 6c 65 2d 62 75 66 66 65 72 2d 6c 6f 63 61 6c ┆p)) (make-variable-buffer-local┆ 0x0100…0120 20 28 71 75 6f 74 65 20 69 6e 73 65 72 74 2d 6c 6f 63 61 6c 2d 6d 61 70 29 29 0a 0a 28 64 65 66 ┆ (quote insert-local-map)) (def┆ 0x0120…0140 76 61 72 20 69 6e 73 65 72 74 2d 70 6f 69 6e 74 20 6e 69 6c 20 22 5c 0a 52 65 6d 65 6d 62 65 72 ┆var insert-point nil "\ Remember┆ 0x0140…0160 20 69 6e 73 65 72 74 20 70 6f 69 6e 74 20 61 73 20 61 20 6d 61 72 6b 65 72 2e 20 28 62 75 66 66 ┆ insert point as a marker. (buff┆ 0x0160…0180 65 72 20 73 70 65 63 69 66 69 63 29 22 29 0a 0a 28 73 65 74 2d 64 65 66 61 75 6c 74 20 28 71 75 ┆er specific)") (set-default (qu┆ 0x0180…01a0 6f 74 65 20 69 6e 73 65 72 74 2d 70 6f 69 6e 74 29 20 28 6d 61 6b 65 2d 6d 61 72 6b 65 72 29 29 ┆ote insert-point) (make-marker))┆ 0x01a0…01c0 0a 0a 28 6d 61 6b 65 2d 76 61 72 69 61 62 6c 65 2d 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 28 71 ┆ (make-variable-buffer-local (q┆ 0x01c0…01e0 75 6f 74 65 20 69 6e 73 65 72 74 2d 70 6f 69 6e 74 29 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 6d ┆uote insert-point)) (defvar com┆ 0x01e0…0200 2d 70 6f 69 6e 74 20 6e 69 6c 20 22 5c 0a 52 65 6d 65 6d 62 65 72 20 63 6f 6d 20 70 6f 69 6e 74 ┆-point nil "\ Remember com point┆ 0x0200…0220 20 61 73 20 61 20 6d 61 72 6b 65 72 2e 20 28 62 75 66 66 65 72 20 73 70 65 63 69 66 69 63 29 22 ┆ as a marker. (buffer specific)"┆ 0x0220…0240 29 0a 0a 28 73 65 74 2d 64 65 66 61 75 6c 74 20 28 71 75 6f 74 65 20 63 6f 6d 2d 70 6f 69 6e 74 ┆) (set-default (quote com-point┆ 0x0240…0260 29 20 28 6d 61 6b 65 2d 6d 61 72 6b 65 72 29 29 0a 0a 28 6d 61 6b 65 2d 76 61 72 69 61 62 6c 65 ┆) (make-marker)) (make-variable┆ 0x0260…0280 2d 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 28 71 75 6f 74 65 20 63 6f 6d 2d 70 6f 69 6e 74 29 29 ┆-buffer-local (quote com-point))┆ 0x0280…02a0 0a 0a 28 64 65 66 76 61 72 20 63 75 72 72 65 6e 74 2d 6d 6f 64 65 20 6e 69 6c 20 22 5c 0a 43 75 ┆ (defvar current-mode nil "\ Cu┆ 0x02a0…02c0 72 72 65 6e 74 20 6d 6f 64 65 2e 20 20 4f 6e 65 20 6f 66 20 65 6d 61 63 73 2d 6d 6f 64 65 2c 20 ┆rrent mode. One of emacs-mode, ┆ 0x02c0…02e0 76 69 2d 6d 6f 64 65 2c 20 69 6e 73 65 72 74 2d 6d 6f 64 65 2e 22 29 0a 0a 28 6d 61 6b 65 2d 76 ┆vi-mode, insert-mode.") (make-v┆ 0x02e0…0300 61 72 69 61 62 6c 65 2d 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 28 71 75 6f 74 65 20 63 75 72 72 ┆ariable-buffer-local (quote curr┆ 0x0300…0320 65 6e 74 2d 6d 6f 64 65 29 29 0a 0a 28 73 65 74 2d 64 65 66 61 75 6c 74 20 28 71 75 6f 74 65 20 ┆ent-mode)) (set-default (quote ┆ 0x0320…0340 63 75 72 72 65 6e 74 2d 6d 6f 64 65 29 20 28 71 75 6f 74 65 20 65 6d 61 63 73 2d 6d 6f 64 65 29 ┆current-mode) (quote emacs-mode)┆ 0x0340…0360 29 0a 0a 28 64 65 66 76 61 72 20 63 75 72 72 65 6e 74 2d 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6e 69 ┆) (defvar current-major-mode ni┆ 0x0360…0380 6c 20 22 5c 0a 63 75 72 72 65 6e 74 2d 6d 61 6a 6f 72 2d 6d 6f 64 65 20 69 73 20 74 68 65 20 6d ┆l "\ current-major-mode is the m┆ 0x0380…03a0 61 6a 6f 72 2d 6d 6f 64 65 20 76 69 20 63 6f 6e 73 69 64 65 72 73 20 69 74 20 69 73 20 6e 6f 77 ┆ajor-mode vi considers it is now┆ 0x03a0…03c0 2e 0a 28 62 75 66 66 65 72 20 73 70 65 63 69 66 69 63 29 22 29 0a 0a 28 6d 61 6b 65 2d 76 61 72 ┆. (buffer specific)") (make-var┆ 0x03c0…03e0 69 61 62 6c 65 2d 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 28 71 75 6f 74 65 20 63 75 72 72 65 6e ┆iable-buffer-local (quote curren┆ 0x03e0…0400 74 2d 6d 61 6a 6f 72 2d 6d 6f 64 65 29 29 0a 0a 28 64 65 66 76 61 72 20 76 69 2d 6c 61 73 74 2d ┆t-major-mode)) (defvar vi-last-┆ 0x0400…0420 73 68 65 6c 6c 2d 63 6f 6d 20 6e 69 6c 20 22 5c 0a 6c 61 73 74 20 73 68 65 6c 6c 20 63 6f 6d 6d ┆shell-com nil "\ last shell comm┆ 0x0420…0440 61 6e 64 20 65 78 65 63 75 74 65 64 20 62 79 20 21 20 63 6f 6d 6d 61 6e 64 22 29 0a 0a 28 64 65 ┆and executed by ! command") (de┆ 0x0440…0460 66 76 61 72 20 75 73 65 2d 72 65 67 69 73 74 65 72 20 6e 69 6c 20 22 5c 0a 6e 61 6d 65 20 6f 66 ┆fvar use-register nil "\ name of┆ 0x0460…0480 20 72 65 67 69 73 74 65 72 20 74 6f 20 73 74 6f 72 65 20 64 65 6c 65 74 65 64 20 6f 72 20 79 61 ┆ register to store deleted or ya┆ 0x0480…04a0 6e 6b 65 64 20 73 74 72 69 6e 67 73 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 64 2d 63 6f 6d 20 6e ┆nked strings.") (defvar d-com n┆ 0x04a0…04c0 69 6c 20 22 5c 0a 49 66 20 6e 6f 6e 2d 6e 69 6c 2c 20 69 74 27 73 20 76 61 6c 75 65 20 69 73 20 ┆il "\ If non-nil, it's value is ┆ 0x04c0…04e0 61 20 6c 69 73 74 20 28 4d 2d 43 4f 4d 20 56 41 4c 20 43 4f 4d 29 2c 20 61 6e 64 20 69 73 20 75 ┆a list (M-COM VAL COM), and is u┆ 0x04e0…0500 73 65 64 20 74 6f 0a 72 65 2d 65 78 65 63 75 74 65 20 6c 61 73 74 20 64 65 73 74 72 63 75 74 69 ┆sed to re-execute last destrcuti┆ 0x0500…0520 76 65 20 63 6f 6d 6d 61 6e 64 22 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 73 68 69 66 74 2d 77 69 ┆ve command") (defconst shift-wi┆ 0x0520…0540 64 74 68 20 38 20 22 5c 0a 2a 54 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 63 6f 6c 75 6d 73 20 73 ┆dth 8 "\ *The number of colums s┆ 0x0540…0560 68 69 66 74 65 64 20 62 79 20 3e 20 61 6e 64 20 3c 20 63 6f 6d 6d 61 6e 64 2e 22 29 0a 0a 28 64 ┆hifted by > and < command.") (d┆ 0x0560…0580 65 66 63 6f 6e 73 74 20 72 65 2d 72 65 70 6c 61 63 65 20 6e 69 6c 20 22 5c 0a 2a 49 66 20 74 20 ┆efconst re-replace nil "\ *If t ┆ 0x0580…05a0 74 68 65 6e 20 64 6f 20 72 65 67 65 78 70 20 72 65 70 6c 61 63 65 2c 20 69 66 20 6e 69 6c 20 74 ┆then do regexp replace, if nil t┆ 0x05a0…05c0 68 65 6e 20 64 6f 20 73 74 72 69 6e 67 20 72 65 70 6c 61 63 65 2e 22 29 0a 0a 28 64 65 66 76 61 ┆hen do string replace.") (defva┆ 0x05c0…05e0 72 20 64 2d 63 68 61 72 20 6e 69 6c 20 22 5c 0a 54 68 65 20 63 68 61 72 61 63 74 65 72 20 72 65 ┆r d-char nil "\ The character re┆ 0x05e0…0600 6d 65 6e 62 65 72 65 64 20 62 79 20 74 68 65 20 76 69 20 5c 22 72 5c 22 20 63 6f 6d 6d 61 6e 64 ┆menbered by the vi \"r\" command┆ 0x0600…0620 22 29 0a 0a 28 64 65 66 76 61 72 20 66 2d 63 68 61 72 20 6e 69 6c 20 22 5c 0a 66 6f 72 20 75 73 ┆") (defvar f-char nil "\ for us┆ 0x0620…0640 65 20 62 79 20 5c 22 3b 5c 22 20 63 6f 6d 6d 61 6e 64 22 29 0a 0a 28 64 65 66 76 61 72 20 46 2d ┆e by \";\" command") (defvar F-┆ 0x0640…0660 63 68 61 72 20 6e 69 6c 20 22 5c 0a 66 6f 72 20 75 73 65 20 62 79 20 5c 22 2e 5c 22 20 63 6f 6d ┆char nil "\ for use by \".\" com┆ 0x0660…0680 6d 61 6e 64 22 29 0a 0a 28 64 65 66 76 61 72 20 66 2d 66 6f 72 77 61 72 64 20 6e 69 6c 20 22 5c ┆mand") (defvar f-forward nil "\┆ 0x0680…06a0 0a 66 6f 72 20 75 73 65 20 62 79 20 5c 22 3b 5c 22 20 63 6f 6d 6d 61 6e 64 22 29 0a 0a 28 64 65 ┆ for use by \";\" command") (de┆ 0x06a0…06c0 66 76 61 72 20 66 2d 6f 66 66 73 65 74 20 6e 69 6c 20 22 5c 0a 66 6f 72 20 75 73 65 20 62 79 20 ┆fvar f-offset nil "\ for use by ┆ 0x06c0…06e0 5c 22 3b 5c 22 20 63 6f 6d 6d 61 6e 64 22 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 76 69 2d 73 65 ┆\";\" command") (defconst vi-se┆ 0x06e0…0700 61 72 63 68 2d 77 72 61 70 2d 61 72 6f 75 6e 64 20 74 20 22 5c 0a 2a 69 66 20 74 2c 20 73 65 61 ┆arch-wrap-around t "\ *if t, sea┆ 0x0700…0720 72 63 68 20 77 72 61 70 73 20 61 72 6f 75 6e 64 22 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 72 65 ┆rch wraps around") (defconst re┆ 0x0720…0740 2d 73 65 61 72 63 68 20 6e 69 6c 20 22 5c 0a 2a 69 66 20 74 2c 20 73 65 61 72 63 68 20 69 73 20 ┆-search nil "\ *if t, search is ┆ 0x0740…0760 72 65 67 2d 65 78 70 20 73 65 61 72 63 68 2c 20 6f 74 68 65 72 77 69 73 65 20 76 61 6e 69 6c 6c ┆reg-exp search, otherwise vanill┆ 0x0760…0780 61 20 73 65 61 72 63 68 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 73 2d 73 74 72 69 6e 67 20 6e 69 ┆a search.") (defvar s-string ni┆ 0x0780…07a0 6c 20 22 5c 0a 6c 61 73 74 20 73 65 61 72 63 68 20 73 74 72 69 6e 67 22 29 0a 0a 28 64 65 66 76 ┆l "\ last search string") (defv┆ 0x07a0…07c0 61 72 20 73 2d 66 6f 72 77 61 72 64 20 6e 69 6c 20 22 5c 0a 69 66 20 74 2c 20 73 65 61 72 63 68 ┆ar s-forward nil "\ if t, search┆ 0x07c0…07e0 20 69 73 20 66 6f 72 77 61 72 64 2e 22 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 76 69 2d 63 61 73 ┆ is forward.") (defconst vi-cas┆ 0x07e0…0800 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 6e 69 6c 20 22 5c 0a 2a 69 66 20 74 2c 20 73 65 61 72 ┆e-fold-search nil "\ *if t, sear┆ 0x0800…0820 63 68 20 69 67 6e 6f 72 65 73 20 63 61 73 65 73 2e 22 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 72 ┆ch ignores cases.") (defconst r┆ 0x0820…0840 65 2d 71 75 65 72 79 2d 72 65 70 6c 61 63 65 20 6e 69 6c 20 22 5c 0a 2a 49 66 20 74 20 74 68 65 ┆e-query-replace nil "\ *If t the┆ 0x0840…0860 6e 20 64 6f 20 72 65 67 65 78 70 20 72 65 70 6c 61 63 65 2c 20 69 66 20 6e 69 6c 20 74 68 65 6e ┆n do regexp replace, if nil then┆ 0x0860…0880 20 64 6f 20 73 74 72 69 6e 67 20 72 65 70 6c 61 63 65 2e 22 29 0a 0a 28 64 65 66 63 6f 6e 73 74 ┆ do string replace.") (defconst┆ 0x0880…08a0 20 76 69 2d 6f 70 65 6e 2d 77 69 74 68 2d 69 6e 64 65 6e 74 20 6e 69 6c 20 22 5c 0a 2a 69 66 20 ┆ vi-open-with-indent nil "\ *if ┆ 0x08a0…08c0 74 2c 20 69 6e 64 65 6e 74 20 77 68 65 6e 20 6f 70 65 6e 20 61 20 6e 65 77 20 6c 69 6e 65 2e 22 ┆t, indent when open a new line."┆ 0x08c0…08e0 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 68 65 6c 70 2d 69 6e 2d 69 6e 73 65 72 74 2d 6d 6f 64 65 ┆) (defconst help-in-insert-mode┆ 0x08e0…0900 20 6e 69 6c 20 22 5c 0a 2a 69 66 20 74 20 74 68 65 6e 20 43 2d 68 20 69 73 20 62 6f 75 6e 64 20 ┆ nil "\ *if t then C-h is bound ┆ 0x0900…0920 74 6f 20 68 65 6c 70 2d 63 6f 6d 6d 61 6e 64 20 69 6e 20 69 6e 73 65 72 74 20 6d 6f 64 65 2c 20 ┆to help-command in insert mode, ┆ 0x0920…0940 69 66 20 6e 69 6c 20 74 68 65 6e 20 69 74 20 69 73 0a 62 6f 75 6e 64 20 74 6f 20 64 65 6c 65 74 ┆if nil then it is bound to delet┆ 0x0940…0960 65 2d 62 61 63 6b 77 61 72 64 2d 63 68 61 72 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 76 69 2d 71 ┆e-backward-char.") (defvar vi-q┆ 0x0960…0980 75 6f 74 65 2d 73 74 72 69 6e 67 20 22 3e 20 22 20 22 5c 0a 73 74 72 69 6e 67 20 69 6e 73 65 72 ┆uote-string "> " "\ string inser┆ 0x0980…09a0 74 65 64 20 61 74 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 72 65 67 69 6f 6e 22 29 ┆ted at the beginning of region")┆ 0x09a0…09c0 0a 0a 28 73 65 74 71 20 74 61 67 73 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 54 41 47 53 22 29 0a 0a ┆ (setq tags-file-name "TAGS") ┆ 0x09c0…09e0 28 67 6c 6f 62 61 6c 2d 73 65 74 2d 6b 65 79 20 22 1a 22 20 28 71 75 6f 74 65 20 63 68 61 6e 67 ┆(global-set-key " " (quote chang┆ 0x09e0…0a00 65 2d 6d 6f 64 65 2d 74 6f 2d 76 69 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 6c 6f 6f 70 20 28 ┆e-mode-to-vi)) (defmacro loop (┆ 0x0a00…0a20 63 6f 75 6e 74 20 62 6f 64 79 29 20 22 28 43 4f 55 4e 54 20 42 4f 44 59 29 20 45 78 65 63 75 74 ┆count body) "(COUNT BODY) Execut┆ 0x0a20…0a40 65 20 42 4f 44 59 20 43 4f 55 4e 54 20 74 69 6d 65 73 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 ┆e BODY COUNT times." (byte-code ┆ 0x0a40…0a60 22 c2 c0 08 44 43 c3 c4 c0 c5 45 09 c6 c0 c7 c0 44 45 46 45 87 22 20 5b 63 6f 75 6e 74 20 62 6f ┆" DC E DEFE " [count bo┆ 0x0a60…0a80 64 79 20 6c 65 74 20 77 68 69 6c 65 20 3e 20 30 20 73 65 74 71 20 31 2d 5d 20 39 29 29 0a 0a 28 ┆dy let while > 0 setq 1-] 9)) (┆ 0x0a80…0aa0 64 65 66 75 6e 20 70 75 73 68 2d 6d 61 72 6b 2d 73 69 6c 65 6e 74 20 28 26 6f 70 74 69 6f 6e 61 ┆defun push-mark-silent (&optiona┆ 0x0aa0…0ac0 6c 20 6c 6f 63 61 74 69 6f 6e 29 20 22 5c 0a 53 65 74 20 6d 61 72 6b 20 61 74 20 6c 6f 63 61 74 ┆l location) "\ Set mark at locat┆ 0x0ac0…0ae0 69 6f 6e 20 28 70 6f 69 6e 74 2c 20 62 79 20 64 65 66 61 75 6c 74 29 20 61 6e 64 20 70 75 73 68 ┆ion (point, by default) and push┆ 0x0ae0…0b00 20 6f 6c 64 20 6d 61 72 6b 20 6f 6e 20 6d 61 72 6b 20 72 69 6e 67 2e 0a 4e 6f 20 6d 65 73 73 61 ┆ old mark on mark ring. No messa┆ 0x0b00…0b20 67 65 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 20 3f 83 0a 00 c0 82 2b 00 c5 c6 20 21 09 ┆ge." (byte-code " ? + ! ┆ 0x0b20…0b40 42 89 11 88 09 47 0a 56 85 2b 00 c7 c8 0a 09 5c 22 40 c0 5c 22 88 c9 c8 0a 53 09 5c 22 c0 5c 22 ┆B G V + \"@ \" S \" \"┆ 0x0b40…0b60 88 ca 0b 86 32 00 60 21 87 22 20 5b 6e 69 6c 20 6d 61 72 6b 2d 72 69 6e 67 20 6d 61 72 6b 2d 72 ┆ 2 `! " [nil mark-ring mark-r┆ 0x0b60…0b80 69 6e 67 2d 6d 61 78 20 6c 6f 63 61 74 69 6f 6e 20 6d 61 72 6b 20 63 6f 70 79 2d 6d 61 72 6b 65 ┆ing-max location mark copy-marke┆ 0x0b80…0ba0 72 20 6d 61 72 6b 2d 6d 61 72 6b 65 72 20 6d 6f 76 65 2d 6d 61 72 6b 65 72 20 6e 74 68 63 64 72 ┆r mark-marker move-marker nthcdr┆ 0x0ba0…0bc0 20 73 65 74 63 64 72 20 73 65 74 2d 6d 61 72 6b 5d 20 39 29 29 0a 0a 28 64 65 66 75 6e 20 76 69 ┆ setcdr set-mark] 9)) (defun vi┆ 0x0bc0…0be0 2d 67 6f 74 6f 2d 63 6f 6c 20 28 61 72 67 29 20 22 5c 0a 28 41 52 47 29 20 20 47 6f 20 74 6f 20 ┆-goto-col (arg) "\ (ARG) Go to ┆ 0x0be0…0c00 41 52 47 27 73 20 63 6f 6c 75 6d 6e 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 ┆ARG's column." (interactive "P")┆ 0x0c00…0c20 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 88 c5 09 21 c6 09 21 1a 18 8a c7 20 88 08 69 54 56 85 ┆ (byte-code " ! ! iTV ┆ 0x0c20…0c40 18 00 c8 c9 21 29 88 0a 85 5c 22 00 ca 0b 60 5c 22 88 cb 20 88 cc 08 53 21 88 0a 85 34 00 cd ce ┆ !) \" `\" S! 4 ┆ 0x0c40…0c60 08 0a 23 2a 87 22 20 5b 76 61 6c 20 61 72 67 20 63 6f 6d 20 63 6f 6d 2d 70 6f 69 6e 74 20 6e 69 ┆ #* " [val arg com com-point ni┆ 0x0c60…0c80 6c 20 70 2d 76 61 6c 20 67 65 74 63 6f 6d 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 65 72 72 6f 72 ┆l p-val getcom end-of-line error┆ 0x0c80…0ca0 20 22 22 20 6d 6f 76 65 2d 6d 61 72 6b 65 72 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e ┆ "" move-marker beginning-of-lin┆ 0x0ca0…0cc0 65 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 65 78 65 63 75 74 65 2d 63 6f 6d 20 76 69 2d 67 6f ┆e forward-char execute-com vi-go┆ 0x0cc0…0ce0 74 6f 2d 63 6f 6c 5d 20 31 31 29 29 0a 0a 28 64 65 66 75 6e 20 72 65 66 72 65 73 68 2d 6d 6f 64 ┆to-col] 11)) (defun refresh-mod┆ 0x0ce0…0d00 65 2d 6c 69 6e 65 20 6e 69 6c 20 22 5c 0a 52 65 64 72 61 77 20 6d 6f 64 65 20 6c 69 6e 65 2e 22 ┆e-line nil "\ Redraw mode line."┆ 0x0d00…0d20 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 20 21 87 22 20 5b 73 65 74 2d 62 75 66 66 65 72 2d ┆ (byte-code " ! " [set-buffer-┆ 0x0d20…0d40 6d 6f 64 69 66 69 65 64 2d 70 20 62 75 66 66 65 72 2d 6d 6f 64 69 66 69 65 64 2d 70 5d 20 33 29 ┆modified-p buffer-modified-p] 3)┆ 0x0d40…0d60 29 0a 0a 28 64 65 66 75 6e 20 76 69 2d 63 6f 70 79 2d 6b 65 79 6d 61 70 20 28 6d 61 70 29 20 28 ┆) (defun vi-copy-keymap (map) (┆ 0x0d60…0d80 62 79 74 65 2d 63 6f 64 65 20 22 08 3f 83 0a 00 c1 20 82 0d 00 c2 08 21 87 22 20 5b 6d 61 70 20 ┆byte-code " ? ! " [map ┆ 0x0d80…0da0 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 20 63 6f 70 79 2d 6b 65 79 6d 61 70 5d 20 ┆make-sparse-keymap copy-keymap] ┆ 0x0da0…0dc0 33 29 29 0a 0a 28 64 65 66 75 6e 20 63 68 61 6e 67 65 2d 6d 6f 64 65 20 28 6e 65 77 2d 6d 6f 64 ┆3)) (defun change-mode (new-mod┆ 0x0dc0…0de0 65 29 20 22 5c 0a 28 4e 45 57 2d 4d 4f 44 45 29 20 20 43 68 61 6e 67 65 20 6d 6f 64 65 20 74 6f ┆e) "\ (NEW-MODE) Change mode to┆ 0x0de0…0e00 20 4e 45 57 2d 4d 4f 44 45 2e 20 20 4e 45 57 2d 4d 4f 44 45 20 69 73 20 65 69 74 68 65 72 20 65 ┆ NEW-MODE. NEW-MODE is either e┆ 0x0e00…0e20 6d 61 63 73 2d 6d 6f 64 65 2c 0a 76 69 2d 6d 6f 64 65 2c 20 6f 72 20 69 6e 73 65 72 74 2d 6d 6f ┆macs-mode, vi-mode, or insert-mo┆ 0x0e20…0e40 64 65 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 09 3d 86 8a 00 08 c7 3d 83 30 00 09 c8 3d ┆de." (byte-code " = = 0 =┆ 0x0e40…0e60 83 1c 00 c9 60 0a 5c 22 88 ca 20 82 25 00 cb 20 13 cc cb 20 21 89 14 88 cd ce 21 88 cf 0d 21 82 ┆ ` \" % ! ! ! ┆ 0x0e60…0e80 83 00 08 c8 3d 83 76 00 d0 0a 60 5c 22 88 09 d1 3d 85 4a 00 cb 20 13 cc cb 20 21 89 14 88 cd d2 ┆ = v `\" = J ! ┆ 0x0e80…0ea0 21 88 cf 0c 21 88 d3 0c d4 d5 23 88 d3 0c d6 d7 23 88 d3 0c d8 0e 06 83 6b 00 d9 82 6c 00 da 23 ┆! ! # # k l #┆ 0x0ea0…0ec0 88 d3 0c db dc 23 82 83 00 08 d1 3d 85 83 00 cd dd 21 88 cf 0b 21 88 08 89 11 88 de 20 87 22 20 ┆ # = ! ! " ┆ 0x0ec0…0ee0 5b 6e 65 77 2d 6d 6f 64 65 20 63 75 72 72 65 6e 74 2d 6d 6f 64 65 20 69 6e 73 65 72 74 2d 70 6f ┆[new-mode current-mode insert-po┆ 0x0ee0…0f00 69 6e 74 20 65 6d 61 63 73 2d 6c 6f 63 61 6c 2d 6d 61 70 20 69 6e 73 65 72 74 2d 6c 6f 63 61 6c ┆int emacs-local-map insert-local┆ 0x0f00…0f20 2d 6d 61 70 20 76 69 2d 63 6f 6d 6d 61 6e 64 2d 6d 6f 64 65 2d 6d 61 70 20 68 65 6c 70 2d 69 6e ┆-map vi-command-mode-map help-in┆ 0x0f20…0f40 2d 69 6e 73 65 72 74 2d 6d 6f 64 65 20 76 69 2d 6d 6f 64 65 20 69 6e 73 65 72 74 2d 6d 6f 64 65 ┆-insert-mode vi-mode insert-mode┆ 0x0f40…0f60 20 76 69 2d 63 6f 70 79 2d 72 65 67 69 6f 6e 2d 61 73 2d 6b 69 6c 6c 20 72 65 70 65 61 74 2d 69 ┆ vi-copy-region-as-kill repeat-i┆ 0x0f60…0f80 6e 73 65 72 74 2d 63 6f 6d 6d 61 6e 64 20 63 75 72 72 65 6e 74 2d 6c 6f 63 61 6c 2d 6d 61 70 20 ┆nsert-command current-local-map ┆ 0x0f80…0fa0 76 69 2d 63 6f 70 79 2d 6b 65 79 6d 61 70 20 63 68 61 6e 67 65 2d 6d 6f 64 65 2d 6c 69 6e 65 20 ┆vi-copy-keymap change-mode-line ┆ 0x0fa0…0fc0 22 56 69 3a 20 20 20 22 20 75 73 65 2d 6c 6f 63 61 6c 2d 6d 61 70 20 6d 6f 76 65 2d 6d 61 72 6b ┆"Vi: " use-local-map move-mark┆ 0x0fc0…0fe0 65 72 20 65 6d 61 63 73 2d 6d 6f 64 65 20 22 49 6e 73 65 72 74 22 20 64 65 66 69 6e 65 2d 6b 65 ┆er emacs-mode "Insert" define-ke┆ 0x0fe0…1000 79 20 22 1b 22 20 63 68 61 6e 67 65 2d 6d 6f 64 65 2d 74 6f 2d 76 69 20 22 1a 22 20 76 69 2d 45 ┆y " " change-mode-to-vi " " vi-E┆ 0x1000…1020 53 43 20 22 08 22 20 68 65 6c 70 2d 63 6f 6d 6d 61 6e 64 20 64 65 6c 65 74 65 2d 62 61 63 6b 77 ┆SC " " help-command delete-backw┆ 0x1020…1040 61 72 64 2d 63 68 61 72 20 22 17 22 20 64 65 6c 65 74 65 2d 62 61 63 6b 77 61 72 64 2d 77 6f 72 ┆ard-char " " delete-backward-wor┆ 0x1040…1060 64 20 22 45 6d 61 63 73 3a 22 20 72 65 66 72 65 73 68 2d 6d 6f 64 65 2d 6c 69 6e 65 5d 20 32 31 ┆d "Emacs:" refresh-mode-line] 21┆ 0x1060…1080 29 29 0a 0a 28 64 65 66 75 6e 20 76 69 2d 63 6f 70 79 2d 72 65 67 69 6f 6e 2d 61 73 2d 6b 69 6c ┆)) (defun vi-copy-region-as-kil┆ 0x1080…10a0 6c 20 28 62 65 67 20 65 6e 64 29 20 22 5c 0a 28 42 45 47 20 45 4e 44 29 20 20 49 66 20 42 45 47 ┆l (beg end) "\ (BEG END) If BEG┆ 0x10a0…10c0 20 61 6e 64 20 45 4e 44 20 64 6f 20 6e 6f 74 20 62 65 6c 6f 6e 67 20 74 6f 20 74 68 65 20 73 61 ┆ and END do not belong to the sa┆ 0x10c0…10e0 6d 65 20 62 75 66 66 65 72 2c 20 69 74 20 63 6f 70 69 65 73 0a 65 6d 70 74 79 20 72 65 67 69 6f ┆me buffer, it copies empty regio┆ 0x10e0…1100 6e 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 c1 c2 8f 87 22 20 5b 6e 69 6c 20 28 62 79 74 ┆n." (byte-code " " [nil (byt┆ 0x1100…1120 65 2d 63 6f 64 65 20 22 c2 08 09 5c 22 87 22 20 5b 62 65 67 20 65 6e 64 20 63 6f 70 79 2d 72 65 ┆e-code " \" " [beg end copy-re┆ 0x1120…1140 67 69 6f 6e 2d 61 73 2d 6b 69 6c 6c 5d 20 33 29 20 28 28 65 72 72 6f 72 20 28 62 79 74 65 2d 63 ┆gion-as-kill] 3) ((error (byte-c┆ 0x1140…1160 6f 64 65 20 22 c1 08 08 5c 22 87 22 20 5b 62 65 67 20 63 6f 70 79 2d 72 65 67 69 6f 6e 2d 61 73 ┆ode " \" " [beg copy-region-as┆ 0x1160…1180 2d 6b 69 6c 6c 5d 20 33 29 29 29 5d 20 33 29 29 0a 0a 28 64 65 66 75 6e 20 63 68 61 6e 67 65 2d ┆-kill] 3)))] 3)) (defun change-┆ 0x1180…11a0 6d 6f 64 65 2d 6c 69 6e 65 20 28 73 74 72 69 6e 67 29 20 22 5c 0a 41 73 73 75 6d 69 6e 67 20 74 ┆mode-line (string) "\ Assuming t┆ 0x11a0…11c0 68 61 74 20 74 68 65 20 6d 6f 64 65 20 6c 69 6e 65 20 66 6f 72 6d 61 74 20 63 6f 6e 74 61 69 6e ┆hat the mode line format contain┆ 0x11c0…11e0 73 20 74 68 65 20 73 74 72 69 6e 67 20 5c 22 45 6d 61 63 73 3a 5c 22 2c 20 74 68 69 73 0a 66 75 ┆s the string \"Emacs:\", this fu┆ 0x11e0…1200 6e 63 74 69 6f 6e 20 72 65 70 6c 61 63 65 73 20 74 68 65 20 73 74 72 69 6e 67 20 62 79 20 5c 22 ┆nction replaces the string by \"┆ 0x1200…1220 56 69 3a 20 20 20 5c 22 20 65 74 63 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 09 c2 50 43 89 ┆Vi: \" etc." (byte-code " PC ┆ 0x1220…1240 10 87 22 20 5b 6d 6f 64 65 2d 6c 69 6e 65 2d 62 75 66 66 65 72 2d 69 64 65 6e 74 69 66 69 63 61 ┆ " [mode-line-buffer-identifica┆ 0x1240…1260 74 69 6f 6e 20 73 74 72 69 6e 67 20 22 20 25 31 37 62 22 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e ┆tion string " %17b"] 2)) (defun┆ 0x1260…1280 20 76 69 70 2d 6d 6f 64 65 20 6e 69 6c 20 22 5c 0a 54 75 72 6e 20 6f 6e 20 56 49 50 20 65 6d 75 ┆ vip-mode nil "\ Turn on VIP emu┆ 0x1280…12a0 6c 61 74 69 6f 6e 20 6f 66 20 56 49 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 ┆lation of VI." (interactive) (by┆ 0x12a0…12c0 74 65 2d 63 6f 64 65 20 22 c0 88 c1 20 87 22 20 5b 6e 69 6c 20 63 68 61 6e 67 65 2d 6d 6f 64 65 ┆te-code " " [nil change-mode┆ 0x12c0…12e0 2d 74 6f 2d 76 69 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 63 68 61 6e 67 65 2d 6d 6f 64 65 2d ┆-to-vi] 2)) (defun change-mode-┆ 0x12e0…1300 74 6f 2d 76 69 20 6e 69 6c 20 22 5c 0a 28 29 20 20 43 68 61 6e 67 65 20 6d 6f 64 65 20 74 6f 20 ┆to-vi nil "\ () Change mode to ┆ 0x1300…1320 76 69 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c0 ┆vi." (interactive) (byte-code " ┆ 0x1320…1340 88 c1 c2 21 87 22 20 5b 6e 69 6c 20 63 68 61 6e 67 65 2d 6d 6f 64 65 20 76 69 2d 6d 6f 64 65 5d ┆ ! " [nil change-mode vi-mode]┆ 0x1340…1360 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 63 68 61 6e 67 65 2d 6d 6f 64 65 2d 74 6f 2d 69 6e 73 65 ┆ 2)) (defun change-mode-to-inse┆ 0x1360…1380 72 74 20 6e 69 6c 20 22 5c 0a 28 29 20 20 43 68 61 6e 67 65 20 6d 6f 64 65 20 74 6f 20 69 6e 73 ┆rt nil "\ () Change mode to ins┆ 0x1380…13a0 65 72 74 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 ┆ert." (interactive) (byte-code "┆ 0x13a0…13c0 c0 88 c1 c2 21 87 22 20 5b 6e 69 6c 20 63 68 61 6e 67 65 2d 6d 6f 64 65 20 69 6e 73 65 72 74 2d ┆ ! " [nil change-mode insert-┆ 0x13c0…13e0 6d 6f 64 65 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 63 68 61 6e 67 65 2d 6d 6f 64 65 2d 74 6f ┆mode] 2)) (defun change-mode-to┆ 0x13e0…1400 2d 65 6d 61 63 73 20 6e 69 6c 20 22 5c 0a 28 29 20 20 43 68 61 6e 67 65 20 6d 6f 64 65 20 74 6f ┆-emacs nil "\ () Change mode to┆ 0x1400…1420 20 65 6d 61 63 73 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 ┆ emacs." (interactive) (byte-cod┆ 0x1420…1440 65 20 22 c0 88 c1 c2 21 87 22 20 5b 6e 69 6c 20 63 68 61 6e 67 65 2d 6d 6f 64 65 20 65 6d 61 63 ┆e " ! " [nil change-mode emac┆ 0x1440…1460 73 2d 6d 6f 64 65 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 67 65 74 2d 65 64 69 74 6f 72 2d 63 ┆s-mode] 2)) (defun get-editor-c┆ 0x1460…1480 6f 6d 6d 61 6e 64 20 28 6c 2d 6d 61 70 20 67 2d 6d 61 70 20 26 6f 70 74 69 6f 6e 61 6c 20 73 74 ┆ommand (l-map g-map &optional st┆ 0x1480…14a0 72 29 20 22 5c 0a 28 4c 2d 4d 41 50 20 47 2d 4d 41 50 20 53 54 52 29 20 20 52 65 61 64 20 63 68 ┆r) "\ (L-MAP G-MAP STR) Read ch┆ 0x14a0…14c0 61 72 61 63 74 65 72 73 20 66 72 6f 6d 20 6b 65 79 62 6f 61 72 64 20 75 6e 74 69 6c 20 61 6e 20 ┆aracters from keyboard until an ┆ 0x14c0…14e0 65 64 69 74 6f 72 20 63 6f 6d 6d 61 6e 64 0a 69 73 20 66 6f 72 6d 65 64 2c 20 75 73 69 6e 67 20 ┆editor command is formed, using ┆ 0x14e0…1500 6c 6f 63 61 6c 20 6b 65 79 6d 61 70 20 4c 2d 4d 41 50 20 61 6e 64 20 67 6c 6f 62 61 6c 20 6b 65 ┆local keymap L-MAP and global ke┆ 0x1500…1520 79 6d 61 70 20 47 2d 4d 41 50 2e 20 20 49 66 20 74 68 65 0a 63 6f 6d 6d 61 6e 64 20 69 73 20 61 ┆ymap G-MAP. If the command is a┆ 0x1520…1540 20 73 65 6c 66 2d 69 6e 73 65 72 74 2d 63 6f 6d 6d 61 6e 64 2c 20 74 68 65 20 63 68 61 72 61 63 ┆ self-insert-command, the charac┆ 0x1540…1560 74 65 72 20 6a 75 73 74 20 72 65 61 64 20 69 73 20 72 65 74 75 72 6e 65 64 0a 69 6e 73 74 65 61 ┆ter just read is returned instea┆ 0x1560…1580 64 2e 20 20 4f 70 74 69 6f 6e 61 6c 20 73 74 72 69 6e 67 20 53 54 52 20 69 73 20 75 73 65 64 20 ┆d. Optional string STR is used ┆ 0x1580…15a0 61 73 20 69 6e 69 74 69 61 6c 20 69 6e 70 75 74 20 73 74 72 69 6e 67 2e 22 20 28 62 79 74 65 2d ┆as initial input string." (byte-┆ 0x15a0…15c0 63 6f 64 65 20 22 c7 c7 c7 1a 19 18 0b 3f 86 0f 00 c8 0b c9 5c 22 83 16 00 72 82 19 00 ca 0b 21 ┆code " ? \" r !┆ 0x15c0…15e0 89 10 88 08 89 14 88 cb 08 0d 5c 22 89 11 88 09 3f 83 5b 00 cb 08 0e 06 5c 22 89 12 88 0a 3f 83 ┆ \" ? [ \" ? ┆ 0x15e0…1600 3d 00 c7 82 58 00 cc 0a 21 83 4d 00 cd c7 0a ce 0b 21 23 82 58 00 0a cf 3d 83 57 00 08 82 58 00 ┆= X ! M !# X = W X ┆ 0x1600…1620 0a 82 9d 00 cc 09 21 83 92 00 cb 08 0e 06 5c 22 89 12 88 0a 3f 83 78 00 cd 09 c7 ce 0b 21 23 82 ┆ ! \" ? x !# ┆ 0x1620…1640 8f 00 cc 0a 21 83 88 00 cd 09 0a ce 0b 21 23 82 8f 00 cd 09 c7 ce 0b 21 23 82 9d 00 09 cf 3d 83 ┆ ! !# !# = ┆ 0x1640…1660 9c 00 08 82 9d 00 09 2b 87 22 20 5b 63 68 61 72 20 6c 2d 62 69 6e 64 20 67 2d 62 69 6e 64 20 73 ┆ + " [char l-bind g-bind s┆ 0x1660…1680 74 72 20 6c 61 73 74 2d 63 6f 6d 6d 61 6e 64 2d 63 68 61 72 20 6c 2d 6d 61 70 20 67 2d 6d 61 70 ┆tr last-command-char l-map g-map┆ 0x1680…16a0 20 6e 69 6c 20 73 74 72 69 6e 67 3d 20 22 22 20 73 74 72 69 6e 67 2d 74 6f 2d 63 68 61 72 20 62 ┆ nil string= "" string-to-char b┆ 0x16a0…16c0 69 6e 64 69 6e 67 2d 6f 66 20 6b 65 79 6d 61 70 70 20 67 65 74 2d 65 64 69 74 6f 72 2d 63 6f 6d ┆inding-of keymapp get-editor-com┆ 0x16c0…16e0 6d 61 6e 64 20 73 74 72 69 6e 67 2d 74 61 69 6c 20 73 65 6c 66 2d 69 6e 73 65 72 74 2d 63 6f 6d ┆mand string-tail self-insert-com┆ 0x16e0…1700 6d 61 6e 64 5d 20 31 39 29 29 0a 0a 28 64 65 66 75 6e 20 62 69 6e 64 69 6e 67 2d 6f 66 20 28 63 ┆mand] 19)) (defun binding-of (c┆ 0x1700…1720 68 61 72 20 6d 61 70 29 20 22 5c 0a 28 43 48 41 52 20 4d 41 50 29 20 20 52 65 74 75 72 6e 20 6b ┆har map) "\ (CHAR MAP) Return k┆ 0x1720…1740 65 79 2d 62 69 6e 64 69 6e 67 20 6f 66 20 43 48 41 52 20 75 6e 64 65 72 20 6b 65 79 6d 61 70 20 ┆ey-binding of CHAR under keymap ┆ 0x1740…1760 4d 41 50 2e 20 20 49 74 20 69 73 20 6e 69 6c 20 69 66 0a 74 68 65 20 62 69 6e 64 69 6e 67 20 69 ┆MAP. It is nil if the binding i┆ 0x1760…1780 73 20 76 6f 69 64 2c 20 6f 72 20 61 20 63 6f 6d 6d 61 6e 64 2c 20 6f 72 20 61 20 6b 65 79 6d 61 ┆s void, or a command, or a keyma┆ 0x1780…17a0 70 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 09 3c 83 0d 00 c6 0a 09 5c 22 41 82 10 00 09 0a 48 ┆p" (byte-code " < \"A H┆ 0x17a0…17c0 18 08 3f 83 1a 00 c3 82 42 00 c7 08 21 83 2e 00 08 39 83 2a 00 08 4b 82 2b 00 08 82 42 00 08 4b ┆ ? B ! . 9 * K + B K┆ 0x17c0…17e0 1d 0d 3f 86 39 00 c7 0d 21 83 40 00 0d 82 41 00 08 29 29 87 22 20 5b 76 61 6c 20 6d 61 70 20 63 ┆ ? 9 ! @ A )) " [val map c┆ 0x17e0…1800 68 61 72 20 6e 69 6c 20 74 20 66 75 6e 20 61 73 73 71 20 6b 65 79 6d 61 70 70 5d 20 34 29 29 0a ┆har nil t fun assq keymapp] 4)) ┆ 0x1800…1820 0a 28 64 65 66 75 6e 20 65 73 63 61 70 65 2d 74 6f 2d 65 6d 61 63 73 20 28 61 72 67 20 26 6f 70 ┆ (defun escape-to-emacs (arg &op┆ 0x1820…1840 74 69 6f 6e 61 6c 20 63 68 61 72 29 20 22 5c 0a 28 41 52 47 20 26 6f 70 74 69 6f 6e 61 6c 20 43 ┆tional char) "\ (ARG &optional C┆ 0x1840…1860 48 41 52 29 20 20 45 73 63 61 70 65 20 74 6f 20 65 6d 61 63 73 20 6d 6f 64 65 20 61 6e 64 20 65 ┆HAR) Escape to emacs mode and e┆ 0x1860…1880 78 65 63 75 74 65 20 6f 6e 65 20 65 6d 61 63 73 0a 63 6f 6d 6d 61 6e 64 20 61 6e 64 20 74 68 65 ┆xecute one emacs command and the┆ 0x1880…18a0 6e 20 72 65 74 75 72 6e 20 74 6f 20 76 69 20 6d 6f 64 65 2e 20 20 41 52 47 20 69 73 20 75 73 65 ┆n return to vi mode. ARG is use┆ 0x18a0…18c0 64 20 61 73 20 74 68 65 20 70 72 65 66 69 78 20 76 61 6c 75 65 0a 66 6f 72 20 74 68 65 20 65 78 ┆d as the prefix value for the ex┆ 0x18c0…18e0 65 63 75 74 65 64 20 63 6f 6d 6d 61 6e 64 2e 20 20 49 66 20 43 48 41 52 20 69 73 20 67 69 76 65 ┆ecuted command. If CHAR is give┆ 0x18e0…1900 6e 20 69 74 20 62 65 63 6f 6d 65 73 20 74 68 65 20 66 69 72 73 74 0a 63 68 61 72 61 63 74 65 72 ┆n it becomes the first character┆ 0x1900…1920 20 6f 66 20 74 68 65 20 63 6f 6d 6d 61 6e 64 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 ┆ of the command." (interactive "┆ […truncated at 200 lines…]