;ELC   
;;; compiled by jwz@thalidomide on Sat May 21 16:04:31 1994
;;; from file /th/jwz/emacs19/lisp/emulators/evi.el
;;; emacs version 19.10 Lucid (beta25).
;;; bytecomp version 2.24; 26-Apr-94.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "This file was compiled for Emacs 19."))

(byte-code "АБ!¬‚ВАГ!¬‚ДЕЖM€АЗ!¬ѓИАЙ!¬ЈК МН\"«ѓОЄ’МП\"«ѓРЄ€МС\"­ЃТ)		О=«ЋУФM€ХЦM€ЧШM€ЄЄ	Т=«’УЩM€ХЪM€ЧЫM€ЬЭM€Є’	Р=«ЊУЮM€ХЯM€ЧаM€Аб!¬ѓИ!Ав!¬ѓг\"И‡" [boundp evi-version "Evi 1.0o of 4-27-94" evi-copyright "Copyright (c) 1992, 1993, 1994 Jeffrey R. Lewis" evi-defbuffervar (macro . #[(name default-value documentation) "АБ\nГFЕЖ\nDDЗЖ\nDEF‡" [progn defvar name nil documentation make-variable-buffer-local quote set-default default-value] 6]) evi-inhibit-startup-message nil evi-emacs-version emacs-version version string-match "Emacs 18\\|Epoch 4" emacs18 "Emacs 19.[0-9]*.[0-9]* Lucid" lucid19 "Emacs 19" emacs19 evi-fill-keymap #[(keymap def) "А	\n\"‡" [fillarray keymap def] 3] evi-keymap-bindings #[(map) "А	В\"‡" [evi-keymap-bindings2 map ""] 3] evi-keymap-bindings2 #[(map prefix) "А	!«ЗВ	GГ‰‰‰W«°	H‰«џ	К!PЛ!«ЉМ\"¤Є‡BBT‰ЄK-‡	AГ‰«±@	К@!PЛA!«‹МA\"¤Є€ABB*A‰¬O*‡" [arrayp map 0 nil mappings keys binding len i prefix char-to-string keymapp evi-keymap-bindings2 bindings] 6] #[(keymap def) "А	A@\n\"‡" [fillarray keymap def] 3] #[(map) "А	В\"‡" [evi-keymap-bindings2 map ""] 3] #[(map prefix) "AБ‰«ХД@!«‹Е@\"\n¤Єѕ@‰@Ё«‡И@!Є€ЙК@!ЛQPОA!«ЊПA\"\n¤Є‰AB\nB+A‰¬+\n*‡" [map nil mappings bindings vectorp evi-vector-keymap-bindings prefix binding char-to-string "<" prin1-to-string ">" key keys keymapp evi-keymap-bindings2] 4] evi-vector-keymap-bindings #[(map prefix) "А	GВ‰‰‰W«¬	H‰«њЙ!PК!«‰Л\"¤Є†BBT‰ЄO-‡" [0 map nil mappings keys binding len i prefix char-to-string keymapp evi-keymap-bindings2] 6] #[(keymap def) "АВ	S‰X«ЊГЕЖ	\"#€Єl)‡" [128 i 0 define-key keymap make-string 1 def] 5] #[(map) "АВД\"€	)‡" [nil mappings evi-keymap-bindings2 map ""] 3] #[(map prefix) "АБ\n\"‡" [map-keymap #[(key def) "Б\n!PД!«ЊЖ\"¤‰Є‰BB‰)‡" [prefix single-key-description key keys keymapp def evi-keymap-bindings2 mappings] 3] map] 3] evi-initialized evi-interactive t] 3)
(defvar evi-mode-hook nil "\
*Function or functions called upon entry to evi.")
(defvar evi-enabled nil "\
If t, currently emulating vi in this buffer.")
(byte-code "АБ!€ВБГ\"‡" [make-variable-buffer-local evi-enabled set-default nil] 3)
(defvar evi-debug nil "\
If t, errors generated by emacs are not handled.")
(defvar evi-suppress-ex-startup nil "\
If t, don't source .exrc or EXINIT at startup.")
(defvar evi-report-unsupported-options nil "\
If t, give an error if a :set option is used that isn't supported.
Otherwise, these are silently ignored.")
(defvar evi-mode nil "\
Current vi mode, one of vi, insert or replace.")
(byte-code "АБ!€ВБГ\"‡" [make-variable-buffer-local evi-mode set-default vi] 3)
(defvar evi-mode-string nil "\
String describing current evi mode.  This is displayed in the mode line.")
(byte-code "АБ!€ВБГ\"‡" [make-variable-buffer-local evi-mode-string set-default nil] 3)
(defvar evi-quit-function 'ex-quit-internal "\
Function to invoke when user `quits' evi.  Default is to kill emacs.")
(byte-code "АБ!¬‚ВАГ!¬‚ВАД!¬‚ВАЕ!¬‚ВАЖ!¬ѓВАЗ!¬ѓИВ‡" [boundp evi-timed-out nil evi-unread-command-char evi-macro-stack evi-current-macro evi-current-macro-index evi-command-keys-length 256] 2)
(defvar evi-command-keys (make-string evi-command-keys-length 0) "\
The keystrokes for the current command.")
(defvar evi-last-command-keys nil "\
Command keys for the last complete vi command.")
(byte-code "АБ!¬‚ВАГ!¬‚ДАЕ!¬‚ДАЖ!¬ѓДД‡" [boundp evi-command-keys-index 0 evi-prompt nil evi-replaced-string evi-replaced-string-index] 2)
(defvar evi-minibuf-contents nil "\
Contents of last minibuf read.")
(defvar evi-in-minibuf nil "\
If t, we are currently editing in the minibuffer")
(byte-code "АБ!€ВБГ\"‡" [make-variable-buffer-local evi-in-minibuf set-default nil] 3)
(defvar evi-enable-emacs-commands nil "\
If t, emacs commands will be visible")
(defvar evi-meta-prefix-char nil "\
Meta-prefix-char to use while in Evi buffers.")
(defvar evi-emacs-meta-prefix-char nil "\
Meta-prefix-char that emacs uses.")
(defvar evi-parameterized-macro nil "\
If t, currently executing a parameteized macro.")
(defvar ex-input-escapes nil "\
If t, backslash escapes in ex commands will be processed.")
(defvar evi-read-only-buffers nil "\
If t, read-only files will have read-only buffers")
(defvar evi-last-point nil "\
Used to calculate line number updates.")
(defvar evi-mark nil "\
Used to define regions for operator commands.")
(defvar evi-prev-file nil "\
Filename of previous file edited.")
(byte-code "АБ!¬‚ВАГ!¬‚ВАД!¬‚ВВ‡" [boundp evi-directory-stack nil evi-process-buffer evi-abbrev-list] 2)
(defvar evi-emacs-local-map nil "\
Emacs' local map.  (buffer specific)")
(byte-code "АБ!€ВБГ\"‡" [make-variable-buffer-local evi-emacs-local-map set-default nil] 3)
(defvar evi-emacs-local-suppress-key-list '(8 9 27 127) "\
Keys from emacs local map that are to be suppressed.")
(defvar evi-prompted nil "\
If t, the current command was prompted for.")
(defvar evi-replace-max nil "\
Maximum excursion of a replace, after which it switches to insert.")
(byte-code "АБ!€ВБГ\"‡" [make-variable-buffer-local evi-replace-max set-default nil] 3)
(defvar evi-overstruck-char nil "\
Value of the character overstruck by the `$' marking a partial line change.")
(byte-code "АБ!€ВБГ\"‡" [make-variable-buffer-local evi-overstruck-char set-default nil] 3)
(defvar evi-context nil "\
Current motion context.  One of to-end, to-next, whole-line, or nil.
The value of this variable is passed to evi-motion-command, and is set by
prefix operators like 'd' or '>' to control the type of region defined by
the following motion command.")
(byte-code "АБ!€ВБГ\"‡" [make-variable-buffer-local evi-context set-default nil] 3)
(defvar evi-prefix-count nil "\
Current prefix count.")
(defvar evi-last-prefix-count nil "\
Last prefix count.")
(defvar evi-prefix-count-multiplier nil "\
Current prefix count multiplier.")
(defvar evi-register-spec nil "\
Current register to use for deletes, yanks, puts, etc.")
(defvar evi-last-register-spec nil "\
Last register used for deletes, yanks, puts, etc.")
(defvar evi-digit-register 8 "\
Current delete-ring register cursor.  Points to the register that
will be register 1.")
(defvar evi-repeat-count 0 "\
The number of times the current command has been repeated via `.'.")
(defvar evi-hidden-repeat-count 0 "\
The hidden copy of evi-repeat-count, which isn't visible unless actually
repeating a command.")
(defvar evi-last-macro-register nil "\
Last register used to invoke a macro via \\[evi-register-macro].")
(defvar evi-registers (make-vector 72 nil) "\
Vi registers.  0-8 are the delete ring, 9 is the unnamed text register,
10-35 are the alphabetic text registers, and 36-71 are the mark registers.
Each text register is a cons cell with the car being the text in the register
and the cdr being a flag indicating whether or not the text is whole lines.")
(defvar evi-register-unnamed 9 "\
Symbolic name for the unnamed register.  Shouldn't change.")
(defvar evi-region-shape 'chars "\
Specifies the shape of the region for the current operation - one of
chars, lines, or rectangle.  The value of this variable is stored in the cdr
of any register that gets stored as a result of the current command.")
(defvar evi-current-indentation nil "\
The indentation of the most recently auto-indented line.  Used by
evi-newline to determine when to kill auto-indented whitespace.
(buffer specific)")
(byte-code "АБ!€ВБГ\"‡" [make-variable-buffer-local evi-current-indentation set-default 0] 3)
(defvar evi-goal-column nil "\
The column that vertical cursor motion will try to preserve, if possible.")
(byte-code "АБ!€ВБГ\"‡" [make-variable-buffer-local evi-goal-column set-default 0] 3)
(defvar evi-reset-goal-column nil "\
If t, a horizontal motion has been performed, thus goal column must be reset.")
(byte-code "АБ!€ВБГ\"‡" [make-variable-buffer-local evi-reset-goal-column set-default t] 3)
(defvar evi-search-pattern nil "\
The last pattern specified for searching.")
(defvar evi-search-forward t "\
If t, the last search command was a forward search.")
(defvar evi-find-character nil "\
The last character specified for finding.")
(defvar evi-find-forward t "\
If t, the last find command was a forward search.")
(defvar evi-find-up-to nil "\
If t, the last find command was a find up to command.")
(defvar ex-previous-re nil "\
Last regular expression searched for in :subst command.")
(defvar ex-previous-replacement nil "\
Last replacement used in :subst command.")
(defvar evi-context-ring nil "\
The last 10 contexts for this buffer.  A context is a location in the buffer
where only relative motions were performed.  A new context is thus saved each
time a non-relative motion is performed.")
(byte-code "АБ!€ВБГДЕ\"\"‡" [make-variable-buffer-local evi-context-ring set-default make-vector 10 nil] 5)
(defvar evi-context-ring-cursor nil "\
The cursor pointing to the last context in the context ring.")
(byte-code "АБ!€ВБГ\"‡" [make-variable-buffer-local evi-context-ring-cursor set-default 0] 3)
(defvar evi-last-shell-command nil "\
The last shell command run.")
(defvar ex-work-space (get-buffer-create " *ex-work-space*") "\
Evi work space for parsing ex commands.")
(defvar ex-tag nil "\
Last tag specified.")
(byte-code "АБM€АВГД#Г‡" [evi-make-keymap #[(name small &optional fill) "«„Б Є‚В ДЕ!«†Е\"€«†И\"€)‡" [small make-sparse-keymap make-keymap map fboundp set-keymap-name name fill evi-fill-keymap] 3] evi-top-level-map nil evi-top-level] 4)
(defconst evi-vi-map (evi-make-keymap 'evi-vi-map nil) "\
The keymap used in vi mode.")
(defconst evi-param-map (evi-make-keymap 'evi-param-map t) "\
The keymap used for parameterized macros.")
(defconst evi-motion-map (evi-make-keymap 'evi-motion-map nil) "\
The keymap used for operand motions.")
(defconst evi-map-map (evi-make-keymap 'evi-map-map t) "\
The keymap used for map macros.")
(defconst evi-input-map (evi-make-keymap 'evi-input-map nil 'evi-self-insert) "\
The keymap used in input modes.")
(defconst evi-replace-map (evi-make-keymap 'evi-replace-map nil 'evi-self-replace) "\
The keymap used in replace mode.")
(defconst evi-insert-map (evi-make-keymap 'evi-insert-map t) "\
The insert mode specific input map.")
(defconst evi-read-string-map (evi-make-keymap 'evi-read-string-map t) "\
The evi-read-string specific command map.")
(defconst evi-read-string-input-map (evi-make-keymap 'evi-read-string-input-map t) "\
The evi-read-string specific input map.")
(defconst evi-ex-map (evi-make-keymap 'evi-ex-map t) "\
The keymap used when reading ex commands from the minibuffer")
(defconst evi-ex-input-map (evi-make-keymap 'evi-ex-input-map t) "\
The keymap used when reading ex commands from the minibuffer (insert-mode)")
(defconst evi-input-map-map (evi-make-keymap 'evi-input-map-map t) "\
The keymap used for input map macros.")
(defconst evi-shell-map (evi-make-keymap 'evi-shell-map t) "\
The local keymap used in command mode in a shell buffer.")
(defvar evi-buffer-local-vi-map nil "\
The keymap for buffer specific additions to the vi command map")
(byte-code "АБ!€ВБГБД\"\"€ГЕД\"ЖЗ!¬†ГЗД\"ЖИ!¬†ГИД\"ЖЙ!¬†ГЙД\"	ЖК!¬†ГКД\"\nМ=«›НBПBБТУФBBТХФBBЇЄµЧ=«›НBПBБТУФBBТХФBBЇЄ”НBПB	ТХФBBЇФ‡" [make-variable-buffer-local evi-buffer-local-vi-map set-default evi-make-keymap t evi-minibuf-input-map boundp evi-Z-map evi-lbrack-map evi-lbrack-m-map evi-rbrack-map evi-emacs-version emacs19 param evi-param-map map evi-map-map evi-vi-map cond-emacs local nil global evi-vi-keymap-list lucid19] 8)
(defvar evi-keymap-list nil "\
Keymap list")
(byte-code "АБ!€ВБГ\"‡" [make-variable-buffer-local evi-keymap-list set-default nil] 3)
(defconst evi-all-keymaps '(vi insert replace ex) "\
All Evi keymaps.")
(defvar evi-register-parameter nil "\
Register specification to the current parameterized macro.")
(byte-code "АБ!€ВБГ\"‡" [make-variable-buffer-local evi-register-parameter set-default nil] 3)
(defvar evi-prefix-count-parameter nil "\
Prefix count to the current parameterized macro.")
(byte-code "АБ!€ВБГ\"‡" [make-variable-buffer-local evi-prefix-count-parameter set-default nil] 3)
(defvar evi-insert-point nil "\
The point at which the current insert command began.")
(byte-code "АБ!€ВБГ\"€ДГ‡" [make-variable-buffer-local evi-insert-point set-default nil ((("autoindent" "ai") bool . evi-auto-indent) (("autoprint" "ap") bool) (("autowrite" "aw") bool) (("backslash-escapes" "be") bool . ex-input-escapes) (("beautify") bool) (("command-line-editing" "cle") bool . evi-command-line-editing) (("directory" "dir") string) (("edcompatible" "ed") bool) (("enable-emacs-commands" "ee") bool . evi-enable-emacs-commands) (("errorbells" "eb") bool . evi-error-bell) (("exrc") bool . evi-local-exrc) (("flash") bool) (("global-directory" "gd") bool . evi-global-directory) (("hardtabs" "ht") number) (("ignorecase" "ic") bool . evi-ignore-case) (("inhibit-startup-message" "ism") bool . evi-inhibit-startup-message) (("ishell" "ish") string . explicit-shell-file-name) (("lisp") bool) (("list") bool) (("magic") bool . evi-search-magic) (("mesg") bool) (("meta-prefix" "mp") char . evi-meta-prefix-char) (("modeline") bool) (("mode-specific-insert-bindings" "msb") bool . evi-insert-mode-local-bindings) (("modified-paragraph") bool . evi-modified-paragraph) (("novice") bool) (("number" "nu") bool . evi-number) (("optimize" "opt") bool) (("paragraphs" "para") string) (("parens") string . evi-parens) (("prompt") bool) (("readonly" "ro") bool . evi-buffer-read-only) (("readonly-buffers") bool . evi-read-only-buffers) (("redraw") bool) (("remap") bool . evi-remap) (("report") number) (("ruler") bool) (("scroll") number . evi-scroll-count) (("sections" "sect") string) (("shell" "sh") string . shell-file-name) (("shiftwidth" "sw") number . evi-shift-width) (("showmatch" "sm") bool . evi-show-match) (("showmode") bool . evi-show-mode) (("sidescroll") number) (("slowopen" "slow") bool) (("sourceany") bool) (("tabstop" "ts") number . evi-tab-width) (("tags") string) (("taglength" "tl") number) (("term") string) (("terse") bool) (("timeout") bool . evi-timeout) (("timeoutlen") number . evi-timeout-length) (("ttytype" "tty") string) (("warn") bool) (("word") string . evi-word) (("Word") string . evi-Word) (("wrapmargin" "wm") number . evi-wrap-margin) (("wrapscan" "ws") bool . evi-search-wraparound) (("writeany" "wa") bool)) evi-option-list] 3)
(defvar evi-set-options nil "\
List of options that have been set.")
(defconst evi-auto-indent nil "\
*If t, automatically indents text inserted on a new line.")
(defconst evi-command-line-editing nil "\
*If t, command-line editing is enabled.")
(fset 'evi-command-line-editing #[(enable) "АБВ?­ЃД#‡" [evi-define-key (read-string read-string-input ex ex-input) "" enable evi-exit-minibuf] 4])
(defconst evi-error-bell nil "\
*If t, ring bell on error.")
(defconst evi-local-exrc nil "\
*If t, source local .exrc file at startup.")
(defconst evi-global-directory t "\
*If t, a global current directory is used (this is the default).")
(defconst evi-ignore-case nil "\
*If t, ignore case in searches.")
(defconst evi-search-magic t "\
*If t, search patterns are normal regular expressions.  This is the default.
Otherwise, the `magic' characters `.' `[' and `*' are treated as literals and
must be escaped to get their regular expression interpretation.")
(defconst evi-insert-mode-local-bindings nil "\
*If t, emacs buffer-local key bindings will be enabled in insert mode.")
(defconst evi-modified-paragraph nil "\
*If t, a modified paragraph motion will be used that is similar to
sentence motion.")
(defconst evi-number nil "\
*If t, tracks line and column number in status line (NOT).")
(defconst evi-parens "()[]{}" "\
*The set of parentheses that `%' will match.")
(defvar evi-buffer-read-only nil "\
*If t, the current buffer is read-only")
(byte-code "АБ!€ВБГ\"‡" [make-variable-buffer-local evi-buffer-read-only set-default nil] 3)
(defconst evi-remap t "\
*If t, nested map macros are expanded")
(defconst evi-scroll-count nil "\
*The number of lines to scroll.")
(defconst evi-shift-width 8 "\
*The number of colums shifted by > and < command, and ^T and ^D
in insert mode.")
(defconst evi-show-match nil "\
*If t, show matching parentheses.")
(fset 'evi-show-match #[(val) "‰‡" [val blink-matching-paren] 2])
(defconst evi-show-mode t "\
*If t, show current vi mode.")
(defconst evi-tab-width 8 "\
*Distance between tab stops")
(fset 'evi-tab-width #[(width) "‰‡" [width tab-width] 2])
(defconst evi-timeout t "\
*If t, keys in multi-character maps must be typed within one second of each
other, otherwise the partial command aborted.")
(defconst evi-timeout-length 500 "\
*Not implemented.")
(defconst evi-word "[a-zA-Z0-9_]+\\|[^a-zA-Z0-9_ 	\n]+\\|^[ 	]*\n" "\
*Regular expression to describe words for w, b and e commands.")
(defconst evi-Word "[^ 	\n]+\\|^[ 	]*\n" "\
*Regular expression to describe words for W, B and E commands.")
(defconst evi-wrap-margin 0 "\
*If non-zero, the amount of right margin past which wraparound occurs.")
(fset 'evi-wrap-margin #[(margin) "Б=«“\nГU«„Д‰‡Ж \nZИ‰‡\nГU«…Д‰	‡Ж \nZИ‰	‡" [evi-emacs-version emacs18 margin 0 nil auto-fill-hook window-width fill-column do-auto-fill auto-fill-function] 2])
(defconst evi-search-wraparound t "\
*If t, search wraps around the end of the file.")
(defvar ex-commands '((("edit" . 1) (0 (nil . "!") (t . offset) (t . file)) . ex-edit) (("buffer" . 1) (0 (nil . "!") (t . buffer)) . ex-change-buffer) (("read" . 1) (1 (t if "!" shell-command) (t . file)) . ex-read) (("write" . 1) (2 (nil . "!") (t if "!" shell-command) (t . ">>") (t . file)) . ex-write) (("kill" . 1) (0 (nil . "!") (t . buffer)) . ex-kill-buffer) (("next" . 1) (0 (nil . "!") (t . files)) . ex-next) (("Edit" . 1) (0 (nil . "!") (nil . offset) (t . file)) . ex-edit-other-window) (("Buffer" . 1) (0 (nil . "!") (t . buffer)) . ex-change-buffer-other-window) (("Kill" . 1) (0 (nil . "!") (t . buffer)) . ex-kill-buffer-delete-windows) (("Write" . 1) (0 (nil . "!")) . ex-write-all-buffers) (("Next" . 1) (0 (nil . "!") (t . files)) . ex-next-other-window) (("split" . 2) (0 (t . file)) . ex-split) (("set" . 2) (0 (nil . settings)) . ex-set) (("substitute" . 1) (2 (t . regular-expression) (backup . regular-expression2) (nil . "g") (nil . "c")) . ex-substitute) (("global" . 1) (2 (nil . "!") (t . regular-expression) (t . command)) . ex-global) (("vglobal" . 1) (2 (t . regular-expression) (t . command)) . ex-vglobal) (("map" . 3) (0 (nil . "!") (t . map) (t . words)) . ex-map) (("gdb" . 2) (0 (t . file)) . ex-gdb) (("wk" . 2) (0) . ex-write-kill) (("wq" . 2) (0 (nil . "!")) . ex-write-quit) (("Wq" . 2) (0 (nil . "!")) . ex-write-all-and-quit) (("visual" . 2) (0 (nil . "!") (t . offset) (t . file)) . ex-edit) (("Visual" . 2) (0 (nil . "!") (nil . offset) (t . file)) . ex-edit-other-window) (("abbreviate" . 2) (0 (t . abbrev) (t . words)) . ex-abbrev) (("append" . 1) (1) . ex-not-implemented) (("args" . 2) (0) . ex-not-implemented) (("bind" . 2) (0 (nil . "!") (t . word) (t . rest-of-line)) . ex-elisp-bind) (("bug" . 3) (0 (t . words)) . ex-report-bug) (("cd" . 2) (0 (t . file)) . ex-change-directory) (("change" . 1) (2) . ex-not-implemented) (("chdir" . 3) (0 (t . file)) . ex-change-directory) (("copy" . 2) (2 (t . address)) . ex-copy) (("delete" . 1) (2 (t . register)) . ex-delete) (("dirs" . 2) (0) . ex-directory-stack) (("elisp" . 2) (0 (t . rest-of-line)) . ex-elisp-execute) (("evilist" . 4) (0 (t . words)) . ex-mail-list) (("file" . 1) (0 (t . file)) . ex-file) (("insert" . 1) (1) . ex-not-implemented) (("join" . 1) (2) . ex-not-implemented) (("killprocess" . 5) (0 (t . process)) . delete-process) (("list" . 1) (2) . ex-not-implemented) (("mail" . 3) (0 (t . words)) . ex-mail) (("mark" . 2) (1 (t . mark)) . ex-mark) (("move" . 1) (2 (t . address)) . ex-move) (("number" . 2) (2) . ex-not-implemented) (("popd" . 2) (0) . ex-pop-directory) (("preserve" . 3) (0) . ex-preserve) (("previous" . 4) (0) . ex-not-implemented) (("print" . 1) (2) . ex-print) (("pushd" . 4) (0 (t . file)) . ex-push-directory) (("put" . 2) (1 (t . register)) . ex-put) (("quit" . 1) (0 (nil . "!")) . ex-quit) (("recover" . 3) (0 (nil . "!") (t . file)) . ex-recover) (("initialize" . 3) (0) . ex-initialize) (("rewind" . 3) (0) . ex-not-implemented) (("send" . 3) (0 (nil . "!")) . ex-send-mail) (("shell" . 2) (0) . ex-shell) (("source" . 2) (0 (t . file)) . ex-source-file) (("tag" . 1) (0 (t . word)) . ex-tag) (("unabbreviate" . 3) (0 (t . abbrev)) . ex-unabbrev) (("undo" . 1) (0) . ex-not-implemented) (("unmap" . 3) (0 (nil . "!") (t . word)) . ex-unmap) (("version" . 2) (0) . ex-evi-version) (("xit" . 1) (0 (nil . "!")) . ex-write-all-and-quit) (("yank" . 1) (2 (t . register)) . ex-yank) (("!" . 1) (2 (nil . "&") (t . shell-command)) . ex-shell-command) (("<" . 1) (2) . ex-shift-left) (("=" . 1) (2) . ex-not-implemented) ((">" . 1) (2) . ex-shift-right) (("&" . 1) (2) . ex-substitute-again) (("@" . 1) (2) . ex-not-implemented) (("" . 0) (2) . ex-null)) "\
Ex commands table

The car of an item in the list is a pair of the full name of a command with
the length of the shortest prefix that's unambiguous.  The cdr of an item
is a pair of a description of arguments with the name of the lisp function
to invoke for this command.  The description of argument is a pair of the
number of addresses this command accepts and a list describing its
subsequent arguments and how to parse them.  Each element of the list of
subsequent argument descriptions is a pair.  The car of this pair is `t'
if the parser should eat whitespace before the arg, and `nil' if it
shouldn't.  The cdr describes the argument itself.  The possible values
are as follows (symbols are indicated by prefixing with \"'\", asterisked
items are completable):
      a string		    literally match that string
      'address		    an ex line address
      'register		    a register name
    * 'file		    a file name (`%', `#' and wildcards are expanded)
    * 'files		    several file names (similarly expanded)
    * 'buffer		    a buffer name (can include spaces)
      'rest-of-line	    the rest of the line (can include `|')
    * 'process		    a process name (can include spaces and `|')
      'word		    a space-delimited word
      'words		    several words
    * 'map		    a :map macro name
    * 'abbrev		    an :abbrev macro name
      'regular-expression   a regular expression
      'regular-expression2  same but `&' is special
      'command		    an ex command
    * 'settings		    :set settings (`wm=8', etc)
    * 'shell-command	    a shell command (`%', `#' are expanded)
      'offset		    a line offset (`+5')
      'mark		    a mark

In summary (postfix `*' means `list-of'):

   ((full-name . prefix-len) .
    ((num-of-addrs . (eat-whitespace? . arg-descr)*) . lisp-function))")
(byte-code "АБM€ВГM€ДЕM€ЖЗM€ИЙM€КЛM€МНM€ОПM€РСM€ТУM€ФХM€ЦЧM€ШЩM€ЪЫM€ЬЭM€ЦЮЯа#€Цбвг#€Цдеж#€Цзий#€Цклм#€Цноп#€Црст#€ЦуфЬ#€Цхцч#€Цшщъ#€Цыьэ#€Цюяч#€ЦЃ@ ЃA ЃB #€ЦЃC ЃD ъ#€ЦЃE ЃF ЃG #€ЦЃH ЃI ЃJ #€ЦЃK ЃL ЃM #€ЦЃN ЃO ЃP #€ЦЃQ ЃR ЃS #€ЦЃT ЃU ЃV #€ЦЃW ЃX ЃY #€ЦЃZ Ѓ[ Ѓ\\ #€ЦЃ] Ѓ^ Ь#€ЦЃ_ Ѓ` Ѓa #€ЦЃb Ѓc Ѓd #€ЦЃe Ѓf Ѓg #€ЦЃh Ѓi Ѓj #€ЦЃk Ѓl Ѓm #€ЦЃn Ѓo Ѓp #€ЦЃq Ѓr Ѓs #€ЦЃt Ѓu э#€ЦЃv Ѓw Ѓx #€ЦЃy Ѓz Ѓ{ #€ЦЃ| Ѓ} Ѓ~ #€ЦЃ ЃЂ ЃЃ #€ЦЃ‚ Ѓѓ Ѓ„ #€ЦЃ… Ѓ† Ѓ‡ #€ЦЃ€ Ѓ‰ Ѓ‡ #€ЦЃЉ Ѓ‹ Ѓ‡ #€ЦЃЊ ЃЌ Ѓ‡ #€ЦЃЋ ЃЏ Ѓ‡ #€ЦЃђ Ѓ‘ Ѓ‡ #€ЦЃ’ Ѓ“ Ѓ‡ #€ЦЃ” Ѓ• Ѓ‡ #€ЦЃ– Ѓ— Ѓ‡ #€ЦЃ Ѓ™ Ѓљ #€ЦЃ› Ѓњ Ѓќ #€ЦЃћ Ѓџ Ѓ  #€ЦЃЎ Ѓў ЃЈ #€ЦЃ¤ ЃҐ Ѓ¦ #€ЦЃ§ ЃЁ Ѓ© #€ЦЃЄ Ѓ« Ѓ¬ #€ШЃ­ Ѓ® ЃЇ #€ЦЃ° Ѓ± ЃІ #€ШЃі Ѓґ Ѓµ #€ШЃ¶ Ѓ· Ѓё #€ЦЃ№ Ѓє Ѓ» #€ЦЃј ЃЅ Ѓѕ #€ЦЃї ЃА ЃБ #€ЦЃВ ЃГ ЃД #€ШЃЕ ЃЖ ЃЗ #€ЦЃИ ЃЙ ЃК #€ЦЃЛ ЃМ Ь#€ЦЃН ЃО ЃП #€ЦЃР ЃС ЃТ #€ЦЃУ ЃФ ЃХ #€ЦЃЦ ЃЧ ЃШ #€ЦЃЩ ЃЪ ЃЫ #€ЦЃЬ ЃЭ ЃЮ #€ЦЃЯ Ѓа Ѓб #€ШЃв Ѓг Ѓд #€ЦЃе Ѓж Ѓз #€Ѓи Ѓй !«ЊЦЃк Ѓл Ѓм #€ЦЃн Ѓо Ь#€ЦЃп Ѓр Ѓс #€ШЃт Ѓу Ѓф #€ШЃх Ѓц Ѓч #€ЦЃш Ѓщ Ѓъ ыB#€ЦЃь Ѓщ Ѓэ #€ЦЃю Ѓя Ѓъ  B#€ЦЃЃя Ѓъ B#€ЦЃЃ[ Ѓ#€ЦЃЃi Ѓ#€ЦЃЃl Ѓ#€ЦЃ	Ѓя Ѓ\n#€ЦЃЃЃ#€ЦЃЃЃ#€ЦЃЃЃ#€ЦЃЃЬ#€ЦЃЃЃъ B#€ЦЃЃЃ#€ЦЃЃЃ#€ЦЃЃЃ #€ЦЃ!Ѓ\"Ѓ##€ЦЃ$Ѓ%Ѓ&#€ЦЃ'ЃЃ(#€ЦЃ)Ѓ*Ѓ+#€ЦЃ,Ѓ-Ѓ.#€ЦЃ/Ѓ0Ѓ1#€ЦЃ2Ѓ3Ѓ4#€ЦЃ5Ѓ6Ь#€ЦЃ7Ѓ8т#€ЦЃ9Ѓ:Ѓ;#€ЦЃ<Ѓ=ч#€ЦЃ>Ѓ?ЃB #€ЦЃ@ЃAЃV #€ЦЃBЃCЃD#€ЦЃEЃFЃG#€ЦЃHЃIЃJ#€ЦЃKЃLЃM#€ЦЃNЃOЬ#€ЦЃPЃQЃR#€ШЃSЃTЃU#€ЦЃVЃWЃX#€ЦЃYЃЃZ#€ЦЃ[Ѓ\\Ь#€ЦЃ]Ѓ^Ѓ_#€ШЃ`ЃaЃb#€ЦЃcЃdЃe#€ЦЃfЃgЃh#€ЦЃiЃЃj#€ЦЃkЃlЃm#€ЦЃnЃoЃp#€ЦЃqЃrЃs#€ЦЃtЃf Ѓu#€ЦЃvЃ^ Ѓw#€ЦЃxЃ%Ѓy#€ЦЃzЃCЃ{#€ЦЃ|ЃQЃ}#€ЦЃ~Ѓа Ѓ#€ЦЃЂЃґ ЃЃ#€ЦЃ‚ЃѓЃ„#€ЦЃ…Ѓ†Ѓ„#€ЦЃ‡вЃ€#€ЦЃ‰ЃЉЃ‹#€ЦЃЊеЃЌ#€ЦЃЋсЃЏ#€ЦЃђцЃ‘#€ЦЃ’ьЃ‘#€ЦЃ“Ѓ”Ѓ•#€ЦЃ–ЃF Ѓ—#€ЦЃЃ™Ѓљ#€ЦЃ›ЃњЃ—#€ЦЃќЃћЃЏ#€ЦЃџеЃ #€ЦЃЎсЃў#€ЦЃЈЃF Ѓ¤#€ЦЃҐЃ™Ѓ¦#€ЦЃ§ЃњЃ¤#€ЦЃЁЃћЃў#€ЦЃ©сЃЄ#€ЦЃ«сЃ¬#€ЦЃ­цЃ®#€ЦЃЇьЃ®#€ЦЃ°ЃЉЃ®#€ЦЃ±ЃћЃЄ#€ЦЃІЃћЃ¬#€ЦЃіфЃґ#€ЦЃµьЃ¶#‡" [evi-defmotion (macro . #[(&rest args) "@A@Г8Е8З›ЙКЛ\n!P!@Н=«ўОП\nРСТУФDФ	DDХ#ЇТЦAD#EЄФ@Ч=«ЇОП\nРШЩЪЫЬФDEЫЭФ	DEЮЯЇаA@DЇТбAAD#EЄџОП\nРвгФDФ	DдеЇЇТжD#E.‡" [args direction function 2 params 3 documentation 4 body intern "do-" symbol-name do-function &char progn defun nil (interactive) append (evi-motion-command) quote ((evi-adjust-count) evi-context (evi-read-command-char)) (defun) &string (interactive) evi-extend-continuation 'evi-after-string-arg list 'quote 'quote (evi-adjust-count) (list 'quote evi-context) evi-read-string (defun) (interactive) evi-motion-command (evi-adjust-count) evi-context (defun)] 13]) evi-after-string-arg #[(func dir count context) "А	\n%‡" [evi-motion-command func dir count context evi-minibuf-contents] 6] evi-iterate (macro . #[(count &rest body) "АБ	DCВГДБЕEDЗБИБDEC#ЙБЕEF‡" [let count append while > 0 body setq 1- =] 9]) evi-break (macro . #[nil "АБВE‡" [setq count -1] 3]) evi-enumerate-condition (macro . #[(item list condition &rest body) "АБ	D\nCDГДЕБЖЗ\nИE	EED\n«‡Г\nЛ\"ЄЃМ\"БF‡" [let list item append while and progn setq (car list) condition body ((setq list (cdr list))) ((setq list (cdr list)))] 10]) evi-iterate-list (macro . #[(item list &rest body) "АБ	D\nCГEДЕБDДЖ\nЗECЙ#\"E‡" [let list item (found) append while setq (car list) body ((setq list (cdr list)))] 8]) evi-find (macro . #[(item list pred) "АБ	D\nCГEДЕБЖЗ\nИЙ\nЇЛEEМEЙF‡" [let list item (found) while and progn setq (car list) found pred (not found) (setq list (cdr list))] 11]) evi-set-goal-column (macro . #[nil "А‡" [(if evi-reset-goal-column (setq evi-goal-column (current-column) evi-reset-goal-column nil))] 1]) evi-reset-goal-column (macro . #[nil "А‡" [(setq evi-reset-goal-column t)] 1]) evi-register-text (macro . #[(register) "А	D‡" [car register] 2]) evi-register-shape (macro . #[(register) "А	D‡" [cdr register] 2]) evi-define-key #[(maps key def) "Б‰«™@ДЕЖЗ\n!ИQ!J	\n#€A‰¬g*‡" [maps nil map list define-key intern "evi-" symbol-name "-map" key def] 6] evi-define-macro #[(maps key macro) "Б‰«Ў@ДЕЖЗИ\n!ЙQ!КЛМБНОDFDF!€A‰¬_*‡" [maps nil map list eval define-key intern "evi-" symbol-name "-map" key quote lambda (interactive) evi-internal-macro macro] 11] evi-make-local-keymap #[(keydefs) "А ВГ!«…Г	Д\"€ЕЖ\"€	)‡" [make-sparse-keymap keymap fboundp set-keymap-name evi-local mapcar #[(keydef) "А	В@!A@#‡" [define-key keymap eval keydef] 4] keydefs] 3] evi-unbound #[nil "АБ\n\"‡" [evi-error "Nothing bound to `%c'" last-command-char] 3 nil nil] (vi) "" evi-scroll-page-backward (vi) "" keyboard-quit (vi) "" evi-scroll-text-forward (vi) "" evi-scroll-cursor-forward (vi) "" evi-scroll-page-forward (vi) "" evi-file-info (vi motion) "" evi-backward-char (vi) "	" (vi motion) "\n" evi-next-line (vi) "" evi-redraw (vi motion) "" evi-beginning-of-next-line (vi motion) "" (vi motion) "" evi-previous-line (vi) "" (vi) "" evi-scroll-text-backward (vi) "" evi-scroll-cursor-backward (vi) "" suspend-emacs (vi) "" evi-tag (vi) "" ":e#\n" (vi motion) " " evi-forward-char (vi) "!" evi-shell-filter (vi) "\"" evi-prefix-register (vi) "#" (vi motion) "$" evi-end-of-line (vi motion) "%" evi-paren-match (vi) "&" ":s\n" (vi motion) "'" evi-goto-mark-vertical (vi motion) "(" evi-backward-sentence (vi motion) ")" evi-forward-sentence (vi) "*" evi-send-to-process (vi motion) "+" (vi motion) "," evi-find-next-character-reverse (vi motion) "-" evi-beginning-of-previous-line (vi) "." evi-repeat (vi motion) "/" evi-search-forward (vi motion) "0" evi-digit-or-beginning-of-line (vi motion) "1" evi-prefix-digit (vi motion) "2" (vi motion) "3" (vi motion) "4" (vi motion) "5" (vi motion) "6" (vi motion) "7" (vi motion) "8" (vi motion) "9" (vi) ":" evi-ex-command (vi motion) ";" evi-find-next-character (vi) "<" evi-shift-left (vi) "=" evi-indent (vi) ">" evi-shift-right (vi motion) "?" evi-search-backward (vi) "@" evi-register-macro (vi) "A" "$#a" (vi motion) "B" evi-backward-Word (vi) "C" "&c#$" (vi) "D" "&d#$" (vi motion) "E" evi-end-of-Word (vi motion) "F" evi-find-char-backwards (vi motion) "G" evi-goto-line (vi motion) "H" evi-goto-top-of-window (vi) "I" "^#i" (vi) "J" evi-join-lines (vi) "K" (vi motion) "L" evi-goto-bottom-of-window (vi motion) "M" evi-goto-middle-of-window (vi motion) "N" evi-search-next-reverse (vi) "O" evi-open-before (vi) "P" evi-put (vi) "Q" evi-quit-evi (vi) "R" evi-replace (vi) "S" "&c#c" (vi motion) "T" evi-find-char-backwards-after boundp buffer-undo-list (vi) "U" evi-undo-line (vi) "V" (vi motion) "W" evi-forward-Word (vi) "X" "&d#h" (vi) "Y" "&y#y" (vi) "Z" prefix evi-Z-map (Z) ":Wq!\n" (vi) "[" evi-lbrack-map (motion) evi-lbrack-m-map (lbrack) evi-register-string (lbrack) evi-register-char (lbrack lbrack-m) evi-parameterized-macro (lbrack lbrack-m) evi-backward-section (lbrack) "b" evi-buffer-name (lbrack) "u" evi-undo-more (lbrack) "{" evi-loop-over-lines-in-region (vi) "\\" (vi motion) "]" evi-rbrack-map (rbrack) evi-forward-section (vi motion) "^" evi-goto-indentation (vi) "_" evi-prompt-repeat (vi motion) "`" evi-goto-mark-horizontal (vi) "a" evi-insert-after (vi motion) evi-backward-word (vi) "c" evi-change (vi) "d" evi-delete (vi motion) "e" evi-end-of-word (vi motion) "f" evi-find-character (vi) "g" (vi motion) "h" (vi) "i" evi-insert (vi motion) "j" (vi motion) "k" (vi motion) "l" (vi) "m" evi-set-mark (vi motion) "n" evi-search-next (vi) "o" evi-open-after (vi) "p" evi-put-after (vi) "q" (vi) "r" evi-replace-char (vi) "s" "&c#l" (vi motion) "t" evi-find-character-before (vi) evi-undo (vi) "v" (vi motion) "w" evi-forward-word (vi) "x" "&d#l" (vi) "y" evi-yank (vi) "z" evi-window-control (vi motion) evi-backward-paragraph (vi motion) "|" evi-goto-column (vi motion) "}" evi-forward-paragraph (vi) "~" evi-toggle-case (param) evi-register-parameter (param) evi-prefix-count-parameter (motion) evi-region-arbitrary (motion) evi-region-mouse (motion) evi-region-rectangle (motion) evi-region-rows (motion) evi-region-columns (input) "" evi-quoted-insert (input) "" (input replace) evi-keyboard-quit (input replace) "" evi-resume-continuation (insert) evi-backward-indent (insert) evi-insert-mode-delete-backward-char (insert) evi-newline (insert) (insert) "" evi-forward-indent (insert) evi-insert-mode-kill-line (insert) "" evi-insert-mode-delete-backward-word (insert) "" (insert) "" (replace) evi-replace-mode-backward-indent (replace) evi-replace-mode-delete-backward-char (replace) evi-replace-mode-kill-line (replace) evi-replace-mode-delete-backward-word (replace) (replace) (read-string ex) evi-backward-char-maybe-abort (read-string-input ex-input) evi-delete-backward-char-maybe-abort (read-string read-string-input ex ex-input) evi-exit-minibuf (read-string read-string-input ex ex-input) (read-string read-string-input ex ex-input) (read-string ex) (read-string-input ex-input) (ex-input) ex-complete (shell) evi-shell-send-input] 5)
(byte-code "АБM€ВГM€ДЕM€ЖЗM€ИЙ!¬†КЛМ\"	НОM€ПРM€СТM€ИУ!¬ѓФИХ!¬ѓФИЦ!¬ѓФИЧ!¬ѓФШЩM€ЪЫM€ЬЭM€ЮЯM€абM€\"г=«†деM€Єђ\"ж=«†дзM€Є„диM€йкM€лмM€ноM€прM€стM€уфM€хцM€чшM€щъM€Иы!¬ѓФ;Ф‡" [evi-init-special-keys #[nil "Б=«МВГДЕ#€ВГЖЗ#€ВГИЙ#€ВГКЛ#€МНM€ОПM€РСM€ТУM€ФХM€ЦЧM€ШЪТ#€ШЫТ#€ШЬЦ#€ШЭФ#‡Ю=«ОЯ б вг#€б де#€б жз#€б ий#€б кл#€б мн#€б оп#€б рс#€)лтM€пуM€сфM€нхM€н‡Ш6Зз#€Ш6чй#€Ш6ше#€Ш6щг#‡" [evi-emacs-version emacs19 ex-map nil [left] "h" [right] "l" [up] "k" [down] "j" evi-posn-buffer #[(position) "А	!ГД	!!­†\n­ѓЕ\n!)‡" [posn-window position window integer-or-marker-p posn-point window-buffer] 3 "Return the buffer of the window in POSITION."] evi-mouse-drag-text #[(event handler) "А БВ!!ДЕ‰ЖВ!!#	КЛМН#€О ‰<«y@П=«‘А 	=«lР‰#€ЄbС!­»БВ!!У!«ЈФХВ!!!	=«—ЖВ!!Ц!=«‹Р#€Є€Р‰#€)Є\"!€!¬„ЩЪ!€Ы!€+‡" [selected-frame posn-point event-start event make-overlay 1 evi-posn-buffer overlay start frame track-mouse overlay-put face region read-event switch-frame move-overlay mouse-movement-p end integer-or-marker-p window-frame posn-window overlay-buffer handler unread-command-events sit-for 9999 delete-overlay] 8 "Highlight text dragged by mouse; the event described by the highlight text\nis passed to HANDLER, as is ARG (if provided)."] evi-mouse-select-dragged-text #[(event) "АБВ!!ДВ!!ДЕ!!DВ!Е!=«ЉЙ\nC\"\nЄ’ЛВ!!ЛЕ!!=«…ЉМ‹€)+‡" ["" posn-window event-start event posn-point event-end region window string append unread-command-events evi-posn-buffer ((byte-code "АБ !`Д!€ЖЗ\"	\nЛ=«†МН	\"€*Н‡" [window-buffer selected-window point buffer select-window window apply buffer-substring region string window-system x x-set-selection nil] 3))] 6 "Place the dragged region into the mouse selection.\nReturn the string in that region for insertion by the caller.\nIf EVENT is a click rather than a drag, invoke the appropriate binding.\nThis is intended for a button-down binding."] evi-mouse-copy-dragged-text #[(event) "А	В\"‡" [evi-mouse-drag-text event evi-mouse-select-dragged-text] 3 "Copy the dragged text to the mouse selection." "e"] evi-mouse-paste-selection #[(event) "Б=­ЌВГ !€­…Е €Єx‡" [window-system x evi-push-macro x-selection evi-current-macro evi-do-command] 2 "Insert the X selection at the click point." "e"] evi-mouse-set-point #[(event) "А	!ГД\n!!«‹ЕД\n!!¬„ЖЗ!€ИД\n!!€Й\n!§­€Й\n!b€КЛ!)‡" [event-end event posn window-minibuffer-p posn-window minibuffer-window-active-p error "Minibuffer window is not active" select-window posn-point evi-fixup-cursor vertical] 3 "Move point to the position clicked on with the mouse." "e"] define-key evi-top-level-map [down-mouse-1] [drag-mouse-1] [mouse-1] [mouse-2] lucid19 (vi motion) maps evi-define-key down evi-next-line up evi-previous-line left evi-backward-char right evi-forward-char button1 evi-mouse-track button2 evi-x-set-point-and-insert-selection (control button1) evi-mouse-track-insert (control button2) evi-x-mouse-kill #[(event) "А	!€ВГ!‡" [mouse-track event evi-fixup-cursor vertical] 2 nil "e"] #[(event) "А	!€ВГ!‡" [mouse-track-insert event evi-fixup-cursor vertical] 2 nil "e"] #[(event) "А	!€ВГ!‡" [x-mouse-kill event evi-fixup-cursor vertical] 2 nil "e"] #[(event) "А	!€ВГ!‡" [x-set-point-and-insert-selection event evi-fixup-cursor vertical] 2 nil "e"] function-keymap "r" "u" "d"] 4] evi-parameterized-macro #[nil "АБ!€ВГ!‡" [evi-extend-continuation evi-parameterized-macro-after evi-read-string "("] 2 nil nil] evi-parameterized-macro-after #[nil "А	В%€ЗЗ	B‰‡" [evi-push-macro evi-minibuf-contents evi-parameterized-macro-after-after evi-register-parameter evi-prefix-count-parameter evi-keymap-list evi-register-spec nil evi-prefix-count evi-param-map] 6] evi-parameterized-macro-after-after #[(reg-spec count keymap-list) "\n‰‡" [reg-spec evi-register-parameter count evi-prefix-count-parameter keymap-list evi-keymap-list] 2] boundp evi-internal-macro-keys make-string 32 0 evi-internal-macro #[(macro) "А	В&€	ККМКО‰‡" [evi-push-macro macro evi-internal-after evi-parameterized-macro evi-remap evi-register-spec evi-prefix-count evi-command-keys evi-command-keys-index evi-register-parameter nil evi-prefix-count-parameter t evi-internal-macro-keys 0] 9] evi-internal-after #[(param-flag remap-flag reg count command-keys index) "\n	\nМ ‡" [param-flag evi-parameterized-macro remap-flag evi-remap reg evi-register-spec count evi-prefix-count command-keys evi-command-keys index evi-command-keys-index evi-save-command-keys] 1] evi-register-macro #[(char &optional count) "АВ!H@И!€Й +‡" [nil evi-last-command-keys evi-register-number char register-number evi-registers macro evi-last-macro-register evi-push-macro evi-get-command] 2 nil (evi-character-arg)] evi-minibuf-prompt nil evi-minibuf evi-minibuf-prev evi-minibuf-user-window evi-read-string #[(prompt &optional initial vi-map input-map) "«„БВ!€ГДЖQ!q€И=«ѓЙК €ЛМ!€Н €ОП!€pТУ !Х ЧУ p\"€ШУ !€Иdb€Ъ=«†Ыp!€Є„ЬЙ!€c€«„c€®‚ !®‚\"#д ‡" [evi-in-minibuf evi-error "Can't use minibuffer inside minibuffer" get-buffer-create " *evi-" prompt "-Minibuf*" buffer-undo-list t nil evi evi-set-continuation evi-read-string-after evi-mark-continuation evi-push-continuation evi-standard-continuation evi-minibuf-prompt evi-minibuf window-buffer minibuffer-window evi-minibuf-prev selected-window evi-minibuf-user-window set-window-buffer select-window evi-emacs-version emacs18 display-buffer message initial vi-map evi-read-string-map evi-buffer-local-vi-map input-map evi-read-string-input-map evi-minibuf-input-map evi-insert] 4] evi-exit-minibuf-window #[nil "dSb€Аy€Б\nАHГU­ЃД\nЕQ!«†`d|€Єѓdb€q€ЗИ 	\"€К!€М‰‡" [0 looking-at evi-minibuf-prompt 91 "\\" " *$" evi-minibuf set-window-buffer minibuffer-window evi-minibuf-prev select-window evi-minibuf-user-window nil evi-in-minibuf] 4] evi-read-string-after #[nil "`G\\Б€`{Г €Д ‡" [evi-minibuf-prompt nil evi-minibuf-contents evi-exit-minibuf-window evi-pop-continuation] 2] evi-exit-minibuf #[nil "Аy€БА!€В ‡" [0 evi-sit-for evi-unwind-continuations] 2 nil nil] evi-abort-minibuf #[nil "А €Б €ВГ!‡" [evi-exit-minibuf-window evi-discard-continuations evi-push-continuation evi-standard-continuation] 2] evi-emacs-version lucid19 evi-read-char #[nil "«„Б‡В ®џГ БЖ!€З!¬†И!€ЄqЙК‰#®ѓЛ!)‡" [evi-unread-command-char nil evi-read-macro allocate-event event evi-timed-out next-event key-press-event-p dispatch-event event-to-character t event-key] 4] emacs19 #[nil "«„Б‡В ®“Г Б9«€ЖN@ЗN®Ѓ)‡" [evi-unread-command-char nil evi-read-macro read-event ev evi-timed-out event-symbol-element-mask ascii-character] 2] #[nil "«„Б‡В ®„БД ‡" [evi-unread-command-char nil evi-read-macro evi-timed-out read-char] 2] evi-push-macro #[(macro &optional after &rest args) "	B\nBBBЖ‰‡" [evi-current-macro evi-current-macro-index after args evi-macro-stack macro 0] 3] evi-pop-macro #[nil "@A@@@@@AA	@­†Д	@	A\")‡" [evi-macro-stack after evi-current-macro evi-current-macro-index apply] 3] evi-discard-macros #[nil "АА‰‡" [nil evi-current-macro evi-macro-stack] 2] evi-read-macro #[nil "«‹	GU«…В €Єr­†	H	T‡" [evi-current-macro evi-current-macro-index evi-pop-macro] 2] evi-sit-for #[(count) "«‚Б‡\n«ЋA®…\nGU??­†Е‡Ж!‡" [evi-unread-command-char nil evi-current-macro evi-macro-stack evi-current-macro-index t sit-for count] 2] evi-register-parameter #[nil "ВГ!‡" [evi-register-parameter evi-register-spec evi-push-continuation evi-prompt] 2 nil nil] evi-prefix-count-parameter #[nil "ВГ!‡" [evi-prefix-count-parameter evi-prefix-count evi-push-continuation evi-prompt] 2 nil nil] evi-error #[(&rest args) "АБВГ\"\"‡" [throw abort apply format args] 5] evi-warning #[(&rest args) "«ђБ €ВГ!€ДЕЖЗ\"\"‡ЙЖЗ\"!€К ‡" [evi-interactive evi-discard-continuations evi-push-continuation evi-standard-continuation throw abort apply format args princ terpri] 5] evi-debug-cont] 3)
(defvar evi-continuation-stack nil "\
The continuation stack.")
(byte-code "АБ!€ВБГ\"€ДЕM€ЖЗM€ИЙM€КЛM€МНM€ОПM€РСM€ТУM€ФХM€ЦЧM€ШЩM€ЪЫM€ЬЭ!¬ѓГЮЯM€абM€вгM€деM€жзM€ийM€клM€мнM€опM€рсM€туM€фхM€цчM€шщM€Ьъ!¬ѓы:ьэM€юяM€Ѓ@ ЃA M‡" [make-variable-buffer-local evi-continuation-stack set-default nil evi-set-continuation #[(func &rest args) "	BВB‰‡" [func args nil evi-continuation-stack] 2] evi-push-continuation #[(func &rest args) "	B\nB­€ДЕЖ\n!ЗQ!‡" [func args evi-continuation-stack evi-debug-cont evi-db "{PU:" prin1-to-string "}\n"] 4] evi-extend-continuation #[(func &rest args) "@Б=«‡\nBBЄЉД\nB@EAB­€ЖЗИ!ЙQ!‡" [evi-continuation-stack suspend func args progn evi-debug-cont evi-db "{EX:" prin1-to-string "}\n"] 4] evi-suspend-continuation #[nil "А	B\n­€ГДЕ	!ЖQ!‡" [suspend evi-continuation-stack evi-debug-cont evi-db "{SU:" prin1-to-string "}\n"] 4] evi-resume-continuation #[nil "A	­€ВГД!ЕQ!‡" [evi-continuation-stack evi-debug-cont evi-db "{RE:" prin1-to-string "}\n"] 4 nil nil] evi-mark-continuation #[nil "А	B\n­€ГДЕ	!ЖQ!‡" [mark evi-continuation-stack evi-debug-cont evi-db "{MA:" prin1-to-string "}\n"] 4] evi-unwind-continuations #[nil "@Б=¬Ќ¬„ВГ!€A‰ЄnA‰‡" [evi-continuation-stack mark evi-error "No continuation mark found!"] 3] evi-reset-continuations #[nil "­Ћ@Б=?­‡A‰¬sВ‡" [evi-continuation-stack mark nil] 3] evi-pop-continuation #[nil "«‰БВГ!ЕQ!€@Ж=®‡З@A!‡" [evi-debug-cont evi-db "{PO:" prin1-to-string evi-continuation-stack "}\n" suspend eval] 4] evi-discard-continuation #[nil "«‰БВГ!ЕQ!€A‰‡" [evi-debug-cont evi-db "{DI:" prin1-to-string evi-continuation-stack "}\n"] 4] evi-discard-continuations #[nil "«‰БВГ!ЕQ!€«Њ@Ж=¬†A‰¬t­„A‰‡" [evi-debug-cont evi-db "{DS:" prin1-to-string evi-continuation-stack "}\n" suspend] 5] evi-top-level #[nil "¬€БВ!€ГД!€Ж=«†Є„	К €­…К €Єw‡" [evi-continuation-stack message "Glitch!" evi-push-continuation evi-standard-continuation evi-emacs-version emacs19 last-command-event evi-unread-command-char last-command-char evi-do-command evi-current-macro] 2 nil nil] boundp evi-delayed-buffer-change-request evi-standard-continuation #[nil "«‹	GU«…В €ЄrГГГЗ €ИЙ!€\n­ў\n@Л=«‰М\nA@!€Є‡Н\nA@!€О\nAA!€Г‰\n‡" [evi-current-macro evi-current-macro-index evi-pop-macro nil evi-prompted evi-prefix-count evi-register-spec evi-erase-keys evi-push-continuation evi-standard-continuation evi-delayed-buffer-change-request other switch-to-buffer-other-window switch-to-buffer eval] 2] evi-prompt #[nil "?­ЏБВ!­ЉГДЕ \"€Ж‰‡" [evi-in-minibuf evi-sit-for 1 message "%s -" evi-prompt-keys-description t evi-prompted] 3] evi-do-command #[nil "«…БВЌЄ„ГДЕЏ‰­њЗ=¬“И €	«ѓК €¬…Ж!€МН!)‡" [evi-debug abort (byte-code "А €Б €В‡" [evi-get-command evi-pop-continuation nil] 1) code (byte-code "АБЌ‡" [abort (byte-code "А €Б €В‡" [evi-get-command evi-pop-continuation nil] 1)] 2) ((error (byte-code "А €Б\n@\nA\"‡" [evi-reset-top-level signal code] 3)) (quit (byte-code "А €Б\n@\nA\"‡" [evi-reset-top-level signal code] 3))) message t evi-soft-reset evi-error-bell beep evi-in-minibuf evi-fixup-cursor horizontal] 4] evi-reset-top-level #[nil "«ѓБ €ВДДДДД	Д\nНО!€П €Р €С €ТУ!€ФХ!‡" [evi-in-minibuf evi-abort-minibuf vi evi-mode nil evi-context evi-prefix-count evi-prefix-count-multiplier evi-register-spec evi-prompted evi-overstruck-char evi-vi-keymap-list evi-keymap-list evi-change-mode-id "Vi" evi-refresh-mode-line evi-erase-keys evi-discard-macros evi-set-continuation evi-standard-continuation evi-fixup-cursor horizontal] 2] evi-soft-reset #[nil "АВВВВВВ	\n¬‡МН!€О €П €Р €СТ!€УФ!‡" [vi evi-mode nil evi-context evi-prefix-count evi-prefix-count-multiplier evi-register-spec evi-prompted evi-overstruck-char evi-vi-keymap-list evi-keymap-list evi-in-minibuf evi-change-mode-id "Vi" evi-refresh-mode-line evi-erase-keys evi-reset-continuations evi-push-continuation evi-standard-continuation evi-fixup-cursor horizontal] 2] evi-emacs-command #[nil "А	!€ВГ!«ЌДЕЖBBДЗЖBBDЄЋ«‡Й DЄѓЙ C\n«„М О )‡" [evi-unread-command-char last-command-char boundp minor-mode-map-alist emacs local nil global evi-emacs-local-map current-global-map evi-keymap-list evi-global-directory evi-current-directory default-directory evi-get-command] 4 nil nil] evi-db #[(string) "pАБ!‰\n=®€\nq€c€q*‡" [get-buffer-create "*debug*" dbuf buf string] 4] evi-get-command #[nil "АВ ‰Ё«…Д!ЄѓЕ!ЗЗ	\nЗ‰ѓа@Н!«‹О\"‚9«ЊОJ\"‚@П=«–«ЊОA\"‚З‚@С=«™¬„¬ЊОA\"‚ЗЄя¬‡@Х=«с	¬нЦHAA>«…ЗЄаA@Ч=«„Ш Є‚Щ ‰­ЕОЦH=«¶Ь=«¤GЭU«ЌВ Ю\\Д!‰ЄћДЭHЮ\\!ЯЗOPЄЋД !ЭЗOPЄ‚\")ЄѓЗН!«§!«ЌвЭ!«€А	ЗЄiВ Д!PОД!\"ЄS;«›#«„де!€&'З#ий*#€Єял!«ќ#«„де!€&'З#З,Зн!€ЄЬ:«џ@о=«	¬”прс\nD\"€AC\nту!€Єё§«¬фGZ!€иЗO!€SHЦOО\"‰Є„З‰„¬‰A‰„$ *®Њ5«ѓц €чшщ \",‡" [t inhibit-quit evi-read-command-char char char-to-string vector keys nil keydef evi-timed-out evi-keymap-list keymap list keymapp lookup-key param evi-parameterized-macro map evi-remap evi-current-macro evi-enable-emacs-commands emacs 0 global current-global-map current-local-map evi-meta-prefix-char evi-emacs-version lucid19 1 128 2 evi-emacs-meta-prefix-char evi-timeout evi-sit-for evi-prompted message "" last-command-char last-command-event evi-push-macro #[(lck) "‰‡" [lck evi-last-command-keys] 2] evi-last-command-keys commandp quit-flag call-interactively prefix evi-extend-continuation #[(kl) "‰‡" [kl evi-keymap-list] 2] quote evi-push-continuation evi-prompt evi-lose-key evi-error-bell beep evi-error "Unknown command `%s'" evi-keys-description] 7] evi-read-command-char #[nil "А \n¬Ћ	Ё«†Г	!€Є„ГД!€	)‡" [evi-read-char char evi-current-macro evi-add-key 35] 2] evi-unread-command-char #[(char) "В ‡" [char evi-unread-command-char evi-lose-key] 1] evi-count-arg #[nil "C‡" [evi-prefix-count] 1] evi-register-args #[nil "@A	E‡" [evi-register-spec evi-prefix-count] 3] evi-character-arg #[nil "А 	D‡" [evi-read-command-char evi-prefix-count] 2] evi-context-arg #[nil "C‡" [evi-context] 1] evi-mode-line-format " Evi:%-6s" evi-in-mode-line-p #[(var) "<­ѓ	>‡" [mode-line-buffer-identification var] 2] evi-install-in-mode-line #[(var) "А	!®‘\n<«‡Г\n	C\"Є„\n	CB‰‡" [evi-in-mode-line-p var mode-line-buffer-identification append] 3] evi-deinstall-from-mode-line #[(var) "А	!­†ВГ\"‰‡" [evi-in-mode-line-p var evi-filter #[(mode-var) "	=?‡" [var mode-var] 2] mode-line-buffer-identification] 3]] 3)
(fset 'evi-change-mode-id #[(string) "А	\n\"‰‡" [format evi-mode-line-format string evi-mode-string] 3 "\
Change Evi's mode identification string to STRING."])
(fset 'evi-refresh-mode-line #[nil "АБ !‡" [set-buffer-modified-p buffer-modified-p] 2 "\
Redraw mode line."])
(byte-code "АБM€ВГM€ДЕM€ЖЗM‡" [evi-initialize #[nil "А\nCЖ €И=«ЊЙ\nЛђМ ‘€)ЄЉЙЛђМ ‘€)ОП!«‰РBB¬ѓУ ‡" [t evi-initialized default-directory evi-directory-stack meta-prefix-char evi-emacs-meta-prefix-char evi-init-special-keys evi-emacs-version emacs18 evi-startup-show-hook temp-buffer-show-hook "*Startup*" evi-customize temp-buffer-show-function boundp minor-mode-map-alist evi-enabled evi-top-level-map evi-meta-prefix-char evi-welcome-message] 2] evi-startup-show-hook #[(buf) "p	q€o«ѓm¬‘eb€Вc€Г	!€ДЕЖ!\"€q)‡" [curbuf buf "The following problems were found at startup:\n" display-buffer message "Use `z1=' to show only `%s'" buffer-name] 4] evi-customize #[nil "А ‰В «ѓГЄѓГ	PЕЖ!«†ЗИP!€ЕЙ!«„ЗЙ!€ККНОЌ‰­ќР €СТУ=«ѓФЄ„ХPЦR!?­ѓЧК!-‡" [user-login-name user-name user-real-login-name "~" home file-readable-p "~/.evirc" load-file "/.evirc" ".evirc" nil evi-interactive source abort (byte-code "¬€БГЕP!€ЖГЗP!€¬љ«†ЙГЙ!€КЛК!‰«…Н!€)«†ОГО!€ПЛП!‰«…Н!€)Р‡" [evi-suppress-ex-startup "~/.exrc" source evi-do-ex-command-file home "/.exrc" "~/.exrc.evi" "/.exrc.evi" evi-local-exrc ".exrc" "EXINIT" getenv exinit evi-do-ex-command-string ".exrc.evi" "EVIINIT" nil] 4) message beep y-or-n-p "Error in " t "" ": " ". Continue? " ex-quit] 6] evi-welcome-message #[nil "?­М	?­ИpВГ!=­БД ?­јЖИ	К=«ѓЛЄђ	М=«ѓНЄ‡	О=­ЃПР±€СТ!€УФ!€ЉВГ!q€Х €СТ!€)Ц‰‡" [evi-inhibit-startup-message noninteractive get-buffer "*scratch*" input-pending-p evi-version ".  " evi-copyright ".\n\nEvi is an enhanced emulator for Vi that runs in an emacs environment.\nIf you are familiar with vi, you should have very few problems using Evi.\nBy default, Evi is setup to emulate vi as closely as it can; however,\nthere are a number of new commands (mostly `:' commands) that support\nthe multiple window/multiple buffer environment that emacs provides.\nIn addition, file/buffer/command/etc completion is supported for `:'\ncommands (use `TAB' to complete).\n\nType `Q' to exit Evi (back to emacs).  Type `ZZ' to save *all* modified\nfiles and exit emacs.  Type `:w' to save the current file, and `:W' to\nsave all modified files.  Type `:q' to quit " evi-emacs-version emacs18 "emacs." emacs19 "the current frame, and\nquit emacs if only one frame exists." lucid19 "the current screen, and\nquit emacs if only one screen exists." "\n\nYou may be interested in the following enhancements, which are disabled\nby default: using emacs commands, command line editing, backslash escapes\n(such as `\\n') and disabling this message(!).  For more information, consult\nthe Evi manual (in the files `evi.info' or `evi.tex').  Hopefully this is\navailable by using `M-x info' and selecting the `Evi' menu item.  If\nnecessary, consult your nearest emacs guru for advice." set-buffer-modified-p nil sit-for 120 erase-buffer t inhibit-startup-message] 6]] 2)
(fset 'evi #[nil "¬¶	¬ѓВ €Г ЕЖ!€И=«†ЙК!ЛL€ЙМ!НL€ЙО!€«‡ЙР!L€СТ!€ХЦ!¬…Ч!€«Ћ«Љ¬ѓЬ €ЭЯа!€¬“б!!€в\"!€г#!€де!€Эж ‡" [evi-enabled evi-initialized evi-initialize current-local-map evi-emacs-local-map evi-install-in-mode-line evi-mode-string evi-emacs-version lucid19 make-local-variable interrupt-char 3 echo-keystrokes 0 blink-matching-paren evi-meta-prefix-char meta-prefix-char evi-set-continuation evi-standard-continuation evi-vi-keymap-list evi-keymap-list boundp minor-mode-map-alist use-local-map evi-top-level-map buffer-read-only buffer-file-name evi-read-only-buffers toggle-read-only t evi-buffer-read-only evi-change-mode-id "Vi" evi-show-match evi-tab-width evi-wrap-margin run-hooks evi-mode-hook evi-refresh-mode-line] 2 "\
Start vi emulation in this buffer." nil])
(fset 'evi-quit-evi #[nil "АВГ!€ДЕ!¬…Ж!€ИЙ!€\nЛ=«„ИМ!€Н ‡" [nil evi-enabled evi-deinstall-from-mode-line evi-mode-string boundp minor-mode-map-alist use-local-map evi-emacs-local-map kill-local-variable meta-prefix-char evi-emacs-version lucid19 interrupt-char evi-refresh-mode-line] 2 "\
Quit vi emulation in this buffer." nil])
(fset 'evi-backward-char-maybe-abort #[(&optional count) "`Бy€\n®ЃГZ`ZGW«„Е Є†b€Ж\n!)‡" [start 0 count 1 evi-minibuf-prompt evi-abort-minibuf do-evi-backward-char] 2 "\
Backup, aborting command if at beginning of input." (evi-count-arg)])
(fset 'evi-delete-backward-char-maybe-abort #[nil "`Бy€`Z\nGX«„Г Є†b€ДЕ!)‡" [start 0 evi-minibuf-prompt evi-abort-minibuf delete-backward-char 1] 2 "\
Backup and delete previous character, aborting command if at
beginning of input." nil])
(fset 'evi-scroll-page-forward #[(&optional count) "А	®ЃВВ=«†Г ДZЄ€Г S	®ЃВ_!€Е‰‡" [scroll-up count 1 window-height 3 t evi-reset-goal-column] 3 "\
Scroll COUNT pages forward." (evi-count-arg)])
(fset 'evi-scroll-page-backward #[(&optional count) "А	®ЃВВ=«†Г ДZЄ€Г S	®ЃВ_!€Е‰‡" [scroll-down count 1 window-height 3 t evi-reset-goal-column] 3 "\
Scroll COUNT pages backward." (evi-count-arg)])
(fset 'evi-scroll-text-forward #[(&optional count) "«„iВ«…‰Є€®…Е SЖҐЗИ `T\"	\nЛ\n!€	S\n^y€М	!*‡" [evi-reset-goal-column evi-goal-column nil count evi-scroll-count window-height 2 count-lines window-start window-line line-count scroll-up evi-move-to-column] 4 "\
Scroll COUNT lines forward.  Default is one half of a page or the last COUNT
specified to either \\[evi-scroll-text-forward] or \\[evi-scroll-text-backward] if one was previously
given.  The position of the cursor on the screen is maintained." (evi-count-arg)])
(fset 'evi-scroll-text-backward #[(&optional count) "«„iВ«…‰Є€®…Е SЖҐЗИ `T\"	\nЛ\n!€Е S	Z\n^[y€М	!*‡" [evi-reset-goal-column evi-goal-column nil count evi-scroll-count window-height 2 count-lines window-start window-line line-count scroll-down evi-move-to-column] 4 "\
Scroll COUNT lines backward.  Default is one half of a page or the last COUNT
specified to either \\[evi-scroll-up] or \\[evi-scroll-down] if one was previously
given.  The position of the cursor on the screen is maintained." (evi-count-arg)])
(fset 'evi-scroll-cursor-forward #[(&optional count) "«„iВГ®ЃЕ!€Ж	!‡" [evi-reset-goal-column evi-goal-column nil scroll-up count 1 evi-move-to-column] 2 "\
Scroll COUNT lines forward.  Maintain cursor position in the file
if possible." (evi-count-arg)])
(fset 'evi-scroll-cursor-backward #[(&optional count) "«„iВГ®ЃЕ!€Ж	!‡" [evi-reset-goal-column evi-goal-column nil scroll-down count 1 evi-move-to-column] 2 "\
Scroll COUNT lines backward.  Maintain cursor position in the file
if possible." (evi-count-arg)])
(fset 'evi-window-control #[(char &optional linenumber) "«„Б!€\nГYѓ \nДXѓ Е\nГZ!З ‰ИU«‹ЙК SZ!€Єи\nЛU«‡Й!€ЄЬ\nМU«‡Н!€ЄР\nОU«§ПU«…Р €ЄАСU«…Т €ЄµУU«…Ф €ЄЄХЦ!€Є¤\nЧU«џПU«…Р €Є”СU«…Т €Є‰УU«ѓШ €*ЄЪ\nЩU¬…\nЪU«‡ЫЬ !€ЄЙ\nЭU¬…\nЮU«‡ЫЯ !€Єё\nа=¬…\nб=«ѓПЄЈ\nИ=¬…\nв=«†К УҐЄ“\nМ=¬…\nг=«†К УZЄѓХЦ!$е$!€)&­ѓзи!‡" [linenumber do-evi-goto-line char 48 57 evi-read-number count evi-read-command-char 46 enlarge-window window-height 43 45 shrink-window 61 0 delete-window 1 delete-other-windows 2 split-window-vertically evi-error "Invalid window op" 124 split-window-horizontally 102 110 select-window next-window 98 112 previous-window 13 72 77 76 position recenter evi-prompted message ""] 4 "\
Position current line on the screen according to the following character.
With a prefix count, position that line." (evi-character-arg)])
(fset 'evi-move-to-column #[(column) "А	!€l­†n?­‚В ‡" [move-to-column column backward-char] 2])
(fset 'evi-insert #[(&optional count) "`Б €В!‡" [evi-insert-point evi-undo-boundary evi-enter-insert count] 2 "\
Enter insert mode." (evi-count-arg)])
(fset 'evi-insert-after #[(&optional count) "Аu€Б\n!‡" [nil evi-insert count] 2 "\
Enter insert mode after the current point." (evi-count-arg)])
(fset 'evi-open-after #[(&optional count) "А€Бc€`Г €Д!‡" [nil 10 evi-insert-point evi-maybe-indent evi-enter-insert count] 2 "\
Open a new line below the current one and enter insert mode." (evi-count-arg)])
(fset 'evi-open-before #[(&optional count) "Аy€Бc€В €`ДЕ!€Ж!‡" [0 10 backward-char evi-insert-point evi-maybe-indent t evi-enter-insert count] 2 "\
Open a new line above the current one and enter insert mode." (evi-count-arg)])
(byte-code "АБM€ВГM€ДЕM‡" [evi-enter-insert #[(count) "АБ\n\"€Г €Д ‡" [evi-extend-continuation evi-exit-insert count evi-suspend-continuation evi-insert-mode] 3] evi-insert-mode #[nil "Аm«‹\n¬€ГД!€ЕД!€¬‡ЗИ!€Й €КC­ѓCНО!«Ќ­—РСBBCЄЋ­Љ­†BCD$‰‡" [insert evi-mode buffer-read-only newline 1 backward-char evi-in-minibuf evi-change-mode-id "Insert" evi-refresh-mode-line append evi-input-map-map evi-minibuf-input-map boundp minor-mode-map-alist evi-insert-mode-local-bindings emacs local evi-emacs-local-suppress-key-list evi-emacs-local-map evi-insert-map evi-input-map evi-keymap-list] 6] evi-exit-insert #[(&optional count) "А €Б\n!€n¬ѓГ €ДЖ ‡" [evi-maybe-kill-indentation evi-exit-input-mode count backward-char t evi-reset-goal-column evi-save-command-keys] 2]] 2)
(fset 'evi-exit-input-mode #[(&optional count) "А €	«–\n`{	S‰ДV«‰c€	S‰Єs*Е	®†КЛ!€М ‡" [ex-expand-abbrev count evi-insert-point input-string 0 vi evi-mode evi-vi-keymap-list evi-keymap-list evi-in-minibuf evi-change-mode-id "Vi" evi-refresh-mode-line] 3 "\
Exit from an input mode." nil])
(fset 'evi-insert-mode-delete-backward-char #[nil "`V«„БВ!‡ГД!‡" [evi-insert-point delete-backward-char 1 message "Beginning of inserted text"] 2 "\
Backup and delete previous character, but no further than insert point." nil])
(fset 'evi-insert-mode-delete-backward-word #[nil "`X«„БВ!‡`Д €`W«ѓb€`|)‡" [evi-insert-point message "Beginning of inserted text" start do-evi-backward-word] 2 "\
Backup and delete previous word, but no further than insert point." nil])
(fset 'evi-insert-mode-kill-line #[nil "`X«„БВ!‡`Дy€«•ЖДHИU­ЃЙP!«…Gu€`W«ѓb€`|)‡" [evi-insert-point message "Beginning of inserted text" start 0 evi-in-minibuf looking-at evi-minibuf-prompt 91 "\\"] 3 "\
Kill current line, but no further than insert point." nil])
(byte-code "АБM€ВГM‡" [evi-maybe-indent #[(&optional forward) "­®`ВГw€	`|€)«…Ж=«”Љ«…Гu€ЄѓИ €Й )j€ЄѓК €i‰‡" [evi-auto-indent start " 	" nil evi-insert-mode-local-bindings indent-line-function indent-to-left-margin forward backward-char current-indentation indent-according-to-mode evi-current-indentation] 2 nil nil] evi-maybe-kill-indentation #[nil "­§	iU­ўЉВГx€n­Ѓ`‰­ЉВГw€l­ѓ`B*‰­…@A|)‡" [evi-auto-indent evi-current-indentation " 	" nil start region] 3]] 2)
(fset 'evi-newline #[nil "А €`Вc€Г €Љ	b€Д *‡" [ex-expand-abbrev start 10 evi-maybe-indent evi-maybe-kill-indentation] 1 "\
Insert a newline, and indent to the current indentation level.
Kills indentation on current line if the line is otherwise empty." nil])
(fset 'evi-forward-indent #[nil "i‰		¦Z\\ЉГДx€`)Ж`Z!€«Њi‰\nW«…Иc€Єt\nV«„ЖЙ!€КЛ\niZ\"+‡" [start-column evi-shift-width target-column " " nil backup-point delete-backward-char indent-tabs-mode 9 1 insert-char 32] 5 "\
Move forward to the next indentation level, defined by shiftwidth." nil])
(fset 'evi-calc-backward-indent #[nil "i‰	¦‰ГU«ѓ	ЄЃ\n)ЉЕГ`Z]x€iZ)^+‡" [start-column evi-shift-width toffset 0 offset " 	" furthest] 5])
(fset 'evi-backward-indent #[nil "АБ В\"‡" [backward-delete-char-untabify evi-calc-backward-indent nil] 3 "\
Move backward to the previous indentation level, defined by shiftwidth." nil])
(fset 'evi-replace-mode-backward-indent #[nil "`X«„БВ!‡Г ‰V«†ЖbЄ€Z`Zb)‡" [evi-insert-point message "Beginning of replaced text" evi-calc-backward-indent offset evi-replaced-string-index 0] 3 "\
Move backward to the previous indentation level, defined by shiftwidth." nil])
(fset 'evi-quoted-insert #[nil "А c‡" [evi-read-char] 1 nil nil])
(fset 'evi-replace #[nil "А €БГД!€Е €ЖdS!‡" [evi-undo-boundary replace evi-mode evi-extend-continuation evi-exit-replace evi-suspend-continuation evi-replace-mode] 2 "\
Enter replace mode." nil])
(byte-code "АБM€ВГM€ДЕM‡" [evi-replace-mode #[(max-replace-position) "¬ѓБ \nГ“€`ЕЗЙК!€Л €D‰‡" [evi-replace-max make-marker max-replace-position nil evi-insert-point "" evi-replaced-string 0 evi-replaced-string-index evi-change-mode-id "Replce" evi-refresh-mode-line evi-input-map-map evi-replace-map evi-keymap-list] 3] evi-switch-to-insert #[nil "Б‰“€В ‡" [evi-replace-max nil evi-insert-mode] 3] evi-exit-replace #[nil "Б=«ѓВ ‡GW«–```GZ\\|€ЖЗO!€b€)И=«ѓЙ €З\nЛ €n¬ѓМ €«†З‰“€ОР ‡" [evi-mode insert evi-exit-insert evi-replaced-string-index evi-replaced-string start insert-before-markers nil change evi-exit-change-mode evi-overstruck-char evi-exit-input-mode backward-char evi-replace-max t evi-reset-goal-column evi-save-command-keys] 4]] 2)
(fset 'evi-self-replace #[nil "А €`	Y¬…gВU«‰ГД!!€Ж ‡GU«€Дg!PT`	К!€`	ZЛV­‘	T	T`{‰G‰)‡" [evi-kill-undo-boundary evi-replace-max 10 evi-push-macro char-to-string last-command-char evi-switch-to-insert evi-replaced-string-index evi-replaced-string start evi-replace-one-char 1 evi-insert-point] 4 "\
Replace character under cursor with the command character." nil])
(fset 'evi-replace-one-char #[(char) "``T|€АБ!«Џ\n«Њ`U«‡ДЕ\n\"€ЖИU¬†ЙU«ѓК ‡c‡" [boundp buffer-undo-list evi-overstruck-char evi-replace-max evi-change-last-undo 0 nil char 10 13 evi-newline] 3])
(fset 'evi-replace-mode-delete-backward-char #[nil "`X«„БВ!‡Г €S‰‡" [evi-insert-point message "Beginning of replaced text" backward-char evi-replaced-string-index] 2 "\
Backup to previous character, undoing last replacement, but no further
than insert point." nil])
(fset 'evi-replace-mode-delete-backward-word #[nil "`X«„БВ!‡`Д €`W«ѓb€`ZZ‰)‡" [evi-insert-point message "Beginning of replaced text" start do-evi-backward-word evi-replaced-string-index] 3 "\
Backup and delete previous word, but no further than insert point." nil])
(fset 'evi-replace-mode-kill-line #[nil "`X«„БВ!‡`Дy€«•ЖДHИU­ЃЙP!«…Gu€`W«ѓb€Д‰\n)‡" [evi-insert-point message "Beginning of replaced text" start 0 evi-in-minibuf looking-at evi-minibuf-prompt 91 "\\" evi-replaced-string-index] 3 "\
Kill current line, but no further than insert point." nil])
(fset 'evi-replace-char #[(char &optional count) "АБЌ«†ВГ!€Є®Д €®ЃЖ‰ЗV«‹И	!€S‰Єq)	КU¬†	ЛU«ѓМ €n¬ѓН €ОР ‡" [abort (byte-code "АБВД$‡" [evi-motion-command do-evi-forward-char horizontal count to-end] 5) evi-error "Can't replace that many characters" evi-exchange-point-and-mark count 1 0 evi-replace-one-char char 10 13 evi-maybe-kill-indentation backward-char t evi-reset-goal-column evi-save-command-keys] 3 "\
Replace the following COUNT characters with CHAR." (evi-character-arg)])
(fset 'evi-toggle-case #[(&optional count) "АБВД$€Љ`Z‰ЖV«ІЗ €g‰ЙY«ЋКX«€Л``T\"€Є’МY«ЊНX«†О``T\"€)S‰ЄJ*ПВ!€РТ ‡" [evi-motion-command do-evi-forward-char horizontal count to-end evi-mark 0 backward-char char 97 122 upcase-region 65 90 downcase-region evi-fixup-cursor t evi-reset-goal-column evi-save-command-keys] 6 "\
Toggle the case of the following COUNT characters." (evi-count-arg)])
(fset 'evi-change #[(&optional count) "АБ!€ВГ!€ДЖ\"‡" [evi-extend-continuation evi-operator-after-after evi-push-continuation evi-change-internal evi-operator-command count to-end] 3 "\
Change operator." (evi-count-arg)])
(byte-code "АБM€ВГM‡" [evi-change-internal #[nil "АБ!€В €ЉГ€`V)¬…`U«‡`|€Е ‡Sf`b€S|€Иc€ЙК!«†\nAA\nb€)ЛНО!€П €Р!‡" [evi-copy-region-to-registers t evi-exchange-point-and-mark nil evi-mark evi-insert evi-overstruck-char here 36 boundp buffer-undo-list change evi-mode evi-extend-continuation evi-exit-replace evi-suspend-continuation evi-replace-mode] 2] evi-exit-change-mode #[nil "А	!­§`	W­ў	`ZS@¬ѓA`А	!|€	Д‰“€ЕГ!­…Ж\n\")‡" [marker-position evi-replace-max overstrike-offset buffer-undo-list nil boundp evi-change-last-undo evi-overstruck-char] 3]] 2)
(fset 'evi-delete #[(&optional count) "АБ!€АВ!€ГЕ\"‡" [evi-extend-continuation evi-operator-after-after evi-delete-internal evi-operator-command count to-next] 3 "\
Delete operator." (evi-count-arg)])
(fset 'evi-delete-internal #[nil "АБ!€В €`U«†ДЕ!€Є’З=«€И`T\"€Є„`|€ЙК=«ѓЛЄЃМ!‡" [evi-copy-region-to-registers t evi-exchange-point-and-mark evi-mark message "Nothing deleted" evi-region-shape rectangle delete-rectangle evi-fixup-cursor chars horizontal vertical] 3])
(fset 'evi-yank #[(&optional count) "АБ!€АВ`\"€ГЕ\"‡" [evi-extend-continuation evi-operator-after-after evi-yank-internal evi-operator-command count to-next] 3 "\
Yank operator." (evi-count-arg)])
(fset 'evi-yank-internal #[(start) "АБ!€\n`U«„ГД!€b‡" [evi-copy-region-to-registers nil evi-mark message "Nothing to yank" start] 2])
(fset 'evi-put-after #[(&optional register-number register-append count) "	®Ѓ\nH‰«ЯAД=«ҐЕ€m¬ѓЕu€Љ®ЃЗ‰ИV«Њ@c€S‰Єp*ЄДn«ѓl¬ѓЕu€®ЃЗ‰ИV«™AЙ=«†@c€Є…К@!€S‰Єc)Л €Єђ	«‰МНО	!\"€Є„МП!€)РТ ‡" [evi-registers register-number evi-register-unnamed register lines nil count 1 0 chars insert-rectangle backward-char message "Nothing in register %c" evi-register-name "No text to put" t evi-reset-goal-column evi-save-command-keys] 5 "\
Put back yanked or deleted text after cursor." (evi-register-args)])
(fset 'evi-put #[(&optional register-number register-append count) "	®Ѓ\nH‰«РAД=«џЕy€Љ®ЃЗ‰ЕV«Њ@c€S‰Єp*Є»®ЃЗ‰ЕV«™AИ=«†@c€Є…Й@!€S‰Єc)К €Єђ	«‰ЛМН	!\"€Є„ЛО!€)ПС ‡" [evi-registers register-number evi-register-unnamed register lines 0 count 1 chars insert-rectangle backward-char message "Nothing in register %c" evi-register-name "No text to put" t evi-reset-goal-column evi-save-command-keys] 5 "\
Put back yanked or deleted text." (evi-register-args)])
(fset 'evi-shift-right #[(&optional count) "АБ!€АВГ\"€ДЖ\"‡" [evi-extend-continuation evi-operator-after-after evi-shift-internal 1 evi-operator-command count whole-lines] 3 "\
Shift right operator." (evi-count-arg)])
(fset 'evi-shift-left #[(&optional count) "АБ!€АВГ\"€ДЖ\"‡" [evi-extend-continuation evi-operator-after-after evi-shift-internal -1 evi-operator-command count whole-lines] 3 "\
Shift left operator." (evi-count-arg)])
(fset 'evi-shift-internal #[(direction) "`U«†БВ!€Є€Г`_#€b€ЖЗw‡" [evi-mark message "Nothing shifted" indent-rigidly evi-shift-width direction " 	" nil] 5])
(fset 'evi-indent #[(&optional count) "АБ!€АВ!€ГЕ\"‡" [evi-extend-continuation evi-operator-after-after evi-indent-internal evi-operator-command count whole-lines] 3 "\
Indent region." (evi-count-arg)])
(fset 'evi-indent-internal #[nil "`U«†БВ!€Є†Г`Д#€b€ЕДw‡" [evi-mark message "Nothing indented" indent-region nil " 	"] 4])
(fset 'evi-shell-filter #[(&optional count) "АБ`\"€ВД\"‡" [evi-push-continuation evi-shell-filter2 evi-operator-command count whole-lines] 3 "\
Filter region thru shell command." (evi-count-arg)])
(byte-code "АБM€ВГM‡" [evi-shell-filter2 #[(start) "АБ!€АВ\"€ДЕ!‡" [evi-extend-continuation evi-operator-after-after evi-filter-internal start evi-read-string "!"] 3] evi-filter-internal #[(start) "Б«‰\n®ѓГД!Є‚Е`З$€b‡" [evi-minibuf-contents "!" evi-last-shell-command evi-error "No previous shell command to substitute for !" shell-command-on-region evi-mark t start] 5]] 2)
(fset 'evi-send-to-process #[(&optional count) "АБ`\"€ВД\"‡" [evi-push-continuation evi-send-to-process2 evi-operator-command count to-next] 3 "\
Send region to emacs process buffer." (evi-count-arg)])
(byte-code "АБM€ВГM‡" [evi-send-to-process2 #[(start) "АБ!€АВ\"€ДЕ!‡" [evi-extend-continuation evi-operator-after-after evi-to-process-internal start evi-read-string "*"] 3] evi-to-process-internal #[(start) "`	b€\nГ«‰¬€ЕЖ!€Є‚\nЗ#€)ЙКBB‰‡" [end start evi-minibuf-contents "*" evi-process-buffer evi-error "No previous process to substitute for *" process-send-region evi-mark other (progn (goto-char (process-mark (get-buffer-process evi-process-buffer))) (evi-insert)) evi-delayed-buffer-change-request] 4]] 2)
(fset 'evi-loop-over-lines-in-region #[(&optional count) "АБ!€ВД\"‡" [evi-push-continuation evi-loop-over-lines2 evi-operator-command count to-end] 3 "\
Execute a sequence of operations on every line in a region." (evi-count-arg)])
(byte-code "АБM€ВГM€ДЕM€ЖЗM€ИЙM€КЛM‡" [evi-loop-over-lines2 #[nil "АБ!€АВ!€ГД!‡" [evi-extend-continuation evi-operator-after-after evi-loop-lines-internal evi-read-string "[{"] 2] evi-loop-lines-internal #[nil "ААГ Д А“b€Зy€И	К	$)‡" [nil evi-last-command-keys evi-prefix-count make-marker point-marker ending-mark evi-mark 0 evi-push-macro evi-minibuf-contents evi-loop-lines-internal2] 5] evi-loop-lines-internal2 #[(macro ending-mark) "А€Аu€БВГ`!ДГЕ!!З°!€`Е!W«ЉИ	К	$‡А‰“€ЛМ!‡" [nil evi-db "{" prin1-to-string "," marker-position ending-mark "}" evi-push-macro macro evi-loop-lines-internal2 evi-fixup-cursor vertical] 7] evi-operator-command #[(count context) "АБВD\"€И	КЛ!МBОBEBАС!‡" [evi-push-continuation evi-operator-after quote evi-keymap-list context evi-context count evi-prefix-count-multiplier nil evi-prefix-count evi-make-local-keymap (((char-to-string last-command-char) evi-whole-lines)) param evi-param-map map evi-map-map evi-motion-map evi-prompt] 4] evi-operator-after #[(old-keymap-list) "ВВЕ ‡" [old-keymap-list evi-keymap-list nil evi-context evi-prefix-count-multiplier evi-pop-continuation] 1] evi-operator-after-after #[nil "АВ ‡" [t evi-reset-goal-column evi-save-command-keys] 1]] 2)
(fset 'evi-join-lines #[(&optional count) "`А®ЃДSЕ]‰ЖV«ГА€З «‰	¬‚\nИЄ­Аu€`SЙАw€`|€	¬‚`hКU¬—hЛU¬’gМU¬ЌНКhОU«ѓДЄЃЕ\"€S‰Є9)	b€*ПС ‡" [nil ending-point starting-point count 2 1 0 evi-eobp -1 " 	" 32 9 41 insert-char 46 t evi-reset-goal-column evi-save-command-keys] 5 "\
Join together COUNT + 1 lines, supplying appropriate whitespace." (evi-count-arg)])
(byte-code "АБM€ВГM€ДЕM€ЖЗM€ИЙM‡" [evi-exchange-point-and-mark #[nil "`	b)‡" [evi-mark temp] 1] evi-expand-region-to-lines #[(context) "А €Бy€А €В€m¬€Д=¬ѓВu€Е‰‡" [evi-exchange-point-and-mark 0 nil context to-end lines evi-region-shape] 2] evi-normalize-region #[nil "l­§ЉАy€`	V­€	b€ВГx€n)­“Д €Аy€Д €m¬ѓГu€Е‰‡" [0 evi-mark " 	" nil evi-exchange-point-and-mark lines evi-region-shape] 2] evi-fixup-cursor #[(direction) "Б=­Ї\nГ=«“m«†o¬ѓД €l­ћn?­љД ‡m«‹o¬€Д €Еy€Ж‡l­†n?­‚Д ‡" [evi-mode vi direction horizontal backward-char 0 nil] 2] evi-motion-command #[(move-function direction count context &optional arg) "«„`Є–\nГ=¬…\nД=«Љ«‰iЗЄ‚И	«Љ\n	\n#€Є†\n\n\"€«ў`	W«ѓЛ €Н=¬…О=«„П!‡РТ=­‚У ‡Ф!‡" [context evi-mark move-function do-evi-next-line do-evi-previous-line evi-reset-goal-column evi-goal-column nil t arg count evi-exchange-point-and-mark direction vertical whole-lines evi-expand-region-to-lines chars evi-region-shape to-next evi-normalize-region evi-fixup-cursor] 4]] 2)
(fset 'evi-forward-char #[nil "АБВГ $‡" [evi-motion-command do-evi-forward-char horizontal evi-adjust-count evi-context] 5 "\
Move right COUNT characters on the current line." nil])
(fset 'do-evi-forward-char #[(&optional count context) "`Б€\n®ЃГ`ZW«€\n®ЃГ\\b€)l­‡?­ѓЕЖ!‡" [here nil count 1 context evi-error "End of line"] 3])
(fset 'evi-backward-char #[nil "АБВГ $‡" [evi-motion-command do-evi-backward-char horizontal evi-adjust-count evi-context] 5 "\
Move left COUNT characters on the current line." nil])
(fset 'do-evi-backward-char #[(&optional count context) "`Бy€\n®ЃГS`ZW«‰\n®ЃГSZb€)n«„ДЕ!‡Ж ‡" [here 0 count 1 evi-error "Beginning of line" backward-char] 3])
(fset 'evi-next-line #[nil "АБВГ $‡" [evi-motion-command do-evi-next-line vertical evi-adjust-count evi-context] 5 "\
Go to ARGth next line." nil])
(fset 'do-evi-next-line #[(&optional count context) "А	®ЃВ!€®‡Д €Е!‡" [evi-next-line-internal count 1 context evi-adjust-scroll-up move-to-column evi-goal-column] 2])
(fset 'evi-beginning-of-next-line #[nil "АБВГ $‡" [evi-motion-command do-evi-beginning-of-next-line vertical evi-adjust-count evi-context] 5 "\
Go to beginning of ARGth next line." nil])
(byte-code "АБM€ВГM€ДЕ!«†ЖЗM€Є„ЖИM€А‡" [do-evi-beginning-of-next-line #[(&optional count context) "А	®ЃВ!€¬ѓД €ЕЖw‡" [evi-next-line-internal count 1 context evi-adjust-scroll-up " 	" nil] 2] evi-next-line-internal #[(count) "`	ym?®“	ГU®Ћb€Д	ЕU«ѓЖЄЃЗ!*‡" [starting-point count offset 0 evi-error 1 "Last line in buffer" "Not that many lines left in buffer"] 3] fboundp window-end evi-adjust-scroll-up #[nil "АБ `T\"В S`Д Y­—\n‰ЕҐ\\W­Ћ`З€ИЙ!€b)*‡" [count-lines window-start window-height window-line window-end 3 start nil recenter -1] 4] #[nil "АБ `T\"Г SЉБ b€y€`)`Y­Њ\n‰ЕҐ\\W­ѓЖЗ!+‡" [count-lines window-start window-line window-height window-end 3 recenter -1] 4]] 2)
(fset 'evi-previous-line #[nil "АБВГ $‡" [evi-motion-command do-evi-previous-line vertical evi-adjust-count evi-context] 5 "\
Go to ARGth previous line." nil])
(fset 'do-evi-previous-line #[(&optional count context) "А	®ЃВ!€®‡Д €Е!‡" [evi-previous-line-internal count 1 context evi-adjust-scroll-down move-to-column evi-goal-column] 2])
(fset 'evi-beginning-of-previous-line #[nil "АБВГ $‡" [evi-motion-command do-evi-beginning-of-previous-line vertical evi-adjust-count evi-context] 5 "\
Go to beginning of ARGth previous line." nil])
(byte-code "АБM€ВГM€ДЕM‡" [do-evi-beginning-of-previous-line #[(&optional count context) "А	®ЃВ!€¬ѓД €Е ‡" [evi-previous-line-internal count 1 context evi-adjust-scroll-down back-to-indentation] 2] evi-previous-line-internal #[(count) "`	[y‰ГU?­Ћb€Д	ЕU«ѓЖЄЃЗ!*‡" [starting-point count offset 0 evi-error 1 "First line in buffer" "Not that many lines left in buffer"] 4] evi-adjust-scroll-down #[nil "`А W­–Б`TА \"В S‰\nДҐW­ѓЕЖ!*‡" [window-start count-lines window-height window-line 3 recenter 0] 4]] 2)
(fset 'evi-goto-line #[nil "АБВГ $‡" [evi-motion-command do-evi-goto-line vertical evi-adjust-count evi-context] 5 "\
Go to line number LINE, or to end of file if no count specified." nil])
(fset 'do-evi-goto-line #[(&optional count context) "А €Б\n!‡" [evi-push-context ex-goto-line count] 2])
(fset 'evi-goto-top-of-window #[nil "АБВГ $‡" [evi-motion-command do-evi-goto-top-of-window vertical evi-adjust-count evi-context] 5 "\
Go to the top line of the window.  With an arg, OFFSET, goes to the
OFFSET'th line of the window." nil])
(fset 'do-evi-goto-top-of-window #[(&optional offset context) "А	®ЃВS!€®ѓДЕw‡" [move-to-window-line offset 1 context " 	" nil] 2])
(fset 'evi-goto-middle-of-window #[nil "АБВГ $‡" [evi-motion-command do-evi-goto-middle-of-window vertical evi-adjust-count evi-context] 5 "\
Go to the middle line of the window." nil])
(fset 'do-evi-goto-middle-of-window #[(&optional offset context) "АБ ВҐ!€®ѓДЕw‡" [move-to-window-line window-height 2 context " 	" nil] 3])
(fset 'evi-goto-bottom-of-window #[nil "АБВГ $‡" [evi-motion-command do-evi-goto-bottom-of-window vertical evi-adjust-count evi-context] 5 "\
Go to the bottom line of the window.  With an arg, OFFSET, goes to the
OFFSET'th line from the bottom of the window." nil])
(fset 'do-evi-goto-bottom-of-window #[(&optional offset context) "АБ S\n®ЃГZ!€®ѓЕЖw‡" [move-to-window-line window-height offset 1 context " 	" nil] 3])
(fset 'evi-goto-column #[nil "АБВГ $‡" [evi-motion-command do-evi-goto-column horizontal evi-adjust-count evi-context] 5 "\
Go to column COLUMN, or as close to that column as possible." nil])
(fset 'do-evi-goto-column #[(&optional column context) "А	®ЃВS!‡" [move-to-column column 1] 2])
(fset 'evi-whole-lines #[nil "АБВГ $‡" [evi-motion-command do-evi-whole-lines vertical evi-adjust-count evi-context] 5 "\
Go ARG - 1 lines forward." nil])
(fset 'do-evi-whole-lines #[(&optional count context) "А	®ЃВS!‡" [evi-next-line-internal count 1] 2])
(fset 'evi-beginning-of-line #[nil "АБВГ $‡" [evi-motion-command do-evi-beginning-of-line horizontal evi-adjust-count evi-context] 5 "\
Go to beginning of line." nil])
(fset 'do-evi-beginning-of-line #[(&optional count context) "Аy€Б‡" [0 nil] 1])
(fset 'evi-goto-indentation #[nil "АБВГ $‡" [evi-motion-command do-evi-goto-indentation horizontal evi-adjust-count evi-context] 5 "\
Go to beginning of indented text on current line." nil])
(fset 'do-evi-goto-indentation #[(&optional count context) "Аy€Б ‡" [0 back-to-indentation] 1])
(fset 'evi-end-of-line #[nil "АБВГ $‡" [evi-motion-command do-evi-end-of-line horizontal evi-adjust-count evi-context] 5 "\
Go to end of line." nil])
(byte-code "АБM€ВГM‡" [do-evi-end-of-line #[(&optional count context) "А	®ЃВS!€Г€ДГ‰‡" [evi-next-line-internal count 1 nil 1000000 evi-goal-column evi-reset-goal-column] 2] evi-eobp #[nil "d`ZАW‡" [3] 2]] 2)
(fset 'evi-forward-word #[nil "АБВГ $‡" [evi-motion-command do-evi-forward-word horizontal evi-adjust-count evi-context] 5 "\
Move to the beginning of the COUNTth next word." nil])
(fset 'do-evi-forward-word #[(&optional count context) "А	\n®ЃГ#‡" [evi-forward-word-internal evi-word count 1 context] 4])
(fset 'evi-forward-Word #[nil "АБВГ $‡" [evi-motion-command do-evi-forward-Word horizontal evi-adjust-count evi-context] 5 "\
Move to the beginning of the COUNTth next white-space delimited word." nil])
(byte-code "АБM€ВГM‡" [do-evi-forward-Word #[(&optional count context) "А	\n®ЃГ#‡" [evi-forward-word-internal evi-Word count 1 context] 4] evi-forward-word-internal #[(pattern count context) "¬€Б «„ВГ!€«ѓSЕ!«ѓTЗИЙ$«­К=«ЌЗЉИ€`)Й#«›Л=«’МV¬†Е!«„М•b‡Иu‡М”b‡m­‚Н ‡" [context evi-eobp evi-error "End of buffer" count looking-at pattern re-search-forward nil limit to-next to-end 0 backward-char] 5]] 2)
(fset 'evi-end-of-word #[nil "АБВГ $‡" [evi-motion-command do-evi-end-of-word horizontal evi-adjust-count evi-context] 5 "\
Move to the end of the COUNTth next word." nil])
(fset 'do-evi-end-of-word #[(&optional count context) "А	\n®ЃГ#‡" [evi-end-of-word-internal evi-word count 1 context] 4])
(fset 'evi-end-of-Word #[nil "АБВГ $‡" [evi-motion-command do-evi-end-of-Word horizontal evi-adjust-count evi-context] 5 "\
Move to the end of the COUNTth next whitespace delimited word." nil])
(byte-code "АБM€ВГM‡" [do-evi-end-of-Word #[(&optional count context) "А	\n®ЃГ#‡" [evi-end-of-word-internal evi-Word count 1 context] 4] evi-end-of-word-internal #[(pattern count context) "¬€Б «„ВГ!€¬ѓДu€ЕДЗ$«ЊЙ•«ѓЙЄЃКZb‡m­‚Л ‡" [context evi-eobp evi-error "End of buffer" nil re-search-forward pattern limit count 0 1 backward-char] 5]] 2)
(fset 'evi-backward-word #[nil "АБВГ $‡" [evi-motion-command do-evi-backward-word horizontal evi-adjust-count evi-context] 5 "\
Move to the beginning of the COUNTth previous word." nil])
(fset 'do-evi-backward-word #[(&optional count context) "А	\n®ЃГ\"‡" [evi-backward-word-internal evi-word count 1] 3])
(fset 'evi-backward-Word #[nil "АБВГ $‡" [evi-motion-command do-evi-backward-Word horizontal evi-adjust-count evi-context] 5 "\
Move to the beginning of the COUNTth previous whitespace delimited word." nil])
(byte-code "АБM€ВГM€ДЖИ	КМОРТФХM‡" [do-evi-backward-Word #[(&optional count context) "А	\n®ЃГ\"‡" [evi-backward-word-internal evi-Word count 1] 3] evi-backward-word-internal #[(pattern count) "o«„АБ!€\n‰ГV«»ДЖЗ#«¬И!€Г•Ж	\nИ!«’Г•\nU«‹o‰	¬…Л €Єi	¬ѓЖu€*Є‚М\nS‰ЄA\nГU)‡" [evi-error "Beginning of buffer" count 0 re-search-backward pattern nil limit looking-at at-beginning end backward-char -1] 5] "\\([.?!][]\"')]*\\([	\n]\\| [ 	\n]\\)\\|^[ 	]*\n\\|\\`\\)[ 	\n]*[^ 	\n]" evi-sentence-beginning "\\([.?!][]\"')]*\\([	\n]\\| [ 	\n]\\)\\|^[ 	]*$\\)" evi-sentence-ending "\\(^\n\\|\\`\\)[ 	\n]*[^ 	\n]" evi-paragraph-beginning "\\(^[ 	]*\n\\|\\`\\)[ 	\n]*[^ 	\n]" evi-paragraph-beginning-mod "[ 	\n]*[^ 	\n]\n$" evi-paragraph-ending "^[ 	]*$" evi-paragraph-ending-mod "^\\({\\|\\.\\(NH\\|SH\\|H\\|HU\\|nh\\|sh\\)[ 	\n]\\)" evi-section-beginning "[ 	\n]*\n\\(}\\|\\.\\(NH\\|SH\\|H\\|HU\\|nh\\|sh\\)[ 	\n]\\)" evi-section-ending evi-not-at #[(pattern &optional limit) "`Б\nГ#«ЉД•U?b€ЄЃЕ)‡" [start re-search-backward pattern limit 0 t] 4]] 2)
(fset 'evi-forward-sentence #[nil "АБВГ $‡" [evi-motion-command do-evi-forward-sentence horizontal evi-adjust-count evi-context] 5 "\
Move to the beginning of the COUNT'th next sentence." nil])
(fset 'do-evi-forward-sentence #[(&optional count context) "¬€Б «„ВГ!€Дu€Е=«€Ж!«‚ИЙДК®ЃМ«ѓМЄЃНZ$­¬«§И=«ЊЙДК#­њПДx‡ЙЉЙДК#€Н”S)К#­…С ‡С ‡" [context evi-eobp evi-error "End of buffer" nil to-next evi-not-at evi-sentence-beginning to-end re-search-forward limit count 1 0 evi-sentence-ending " 	\n" evi-paragraph-ending backward-char] 6])
(fset 'evi-backward-sentence #[nil "АБВГ $‡" [evi-motion-command do-evi-backward-sentence horizontal evi-adjust-count evi-context] 5 "\
Move to the beginning of the COUNT'th previous sentence." nil])
(fset 'do-evi-backward-sentence #[(&optional count context) "o«„АБ!€ВГx€ДГЖ®ЃИ$­„Й•Sb‡" [evi-error "Beginning of buffer" " 	\n" nil re-search-backward evi-sentence-beginning limit count 1 0] 5])
(fset 'evi-forward-paragraph #[nil "АБВГ $‡" [evi-motion-command do-evi-forward-paragraph horizontal evi-adjust-count evi-context] 5 "\
Move to the beginning of the COUNT'th next paragraph." nil])
(fset 'do-evi-forward-paragraph #[(&optional count context) "¬€Б «„ВГ!€«ВЕu€Ж=«€З!«‚ЙКЕЛ®ЃНЙ=«ѓНЄЃОZ$­іЙ=«ЌКЕЛ#­ЌО”Sb‡«ѓОy€Р ‡КЕЛ®ЃН$«„О•b€Ж=­‚Р ‡" [context evi-eobp evi-error "End of buffer" evi-modified-paragraph nil to-next evi-not-at evi-paragraph-beginning-mod to-end re-search-forward limit count 1 0 evi-paragraph-ending-mod backward-char evi-paragraph-ending] 7])
(fset 'evi-backward-paragraph #[nil "АБВГ $‡" [evi-motion-command do-evi-backward-paragraph horizontal evi-adjust-count evi-context] 5 "\
Move to the beginning of the COUNT'th previous paragraph." nil])
(fset 'do-evi-backward-paragraph #[(&optional count context) "o«„АБ!€\n«‘ГЕЖ®ЃИ$­¦Й•Sb‡\nЛ=«‹n«€o¬…SГЕЖ®ЃИ$­ѓЙ”b‡" [evi-error "Beginning of buffer" evi-modified-paragraph re-search-backward evi-paragraph-beginning-mod nil limit count 1 0 context to-next evi-mark evi-paragraph-beginning] 5])
(fset 'evi-forward-section #[nil "АБВГ $‡" [evi-motion-command do-evi-forward-section horizontal evi-adjust-count evi-context] 5 "\
Move to the beginning of the COUNT'th next section." nil])
(fset 'do-evi-forward-section #[(&optional count context) "¬€Б «„ВГ!€¬„Д`!€`ЖЗw€m¬ѓЗu€И=«‰Й\n\"«‚Л)М\nЗН®ЃПЛ=«ѓПЄЃРZ$­џЛ=«‘МЗН#­’hТ=®ЌР”b‡Р”b€­‚У ‡" [context evi-eobp evi-error "End of buffer" evi-push-context start "^ 	\n" nil to-next evi-not-at evi-section-beginning to-end re-search-forward limit count 1 0 evi-section-ending 125 backward-char] 7])
(fset 'evi-backward-section #[nil "АБВГ $‡" [evi-motion-command do-evi-backward-section horizontal evi-adjust-count evi-context] 5 "\
Move to the beginning of the COUNT'th previous section." nil])
(fset 'do-evi-backward-section #[(&optional count context) "o«„АБ!€\n¬„Г`!€ДЖЗ®ЃЙ$‡" [evi-error "Beginning of buffer" context evi-push-context re-search-backward evi-section-beginning nil limit count 1] 5])
(fset 'evi-region-arbitrary #[nil "`W«ѓБ €Вu€Г‰‡" [evi-mark evi-exchange-point-and-mark nil chars evi-region-shape] 2 "\
Define region bounded by mark and point (containing point)." nil])
(fset 'evi-region-mouse #[nil "А `	W«ѓВ €Гu€Д‰‡" [mark evi-mark evi-exchange-point-and-mark nil chars evi-region-shape] 2 "\
Define region bounded by last mouse selection." nil])
(fset 'evi-region-rectangle #[nil "`W«ѓБ €В‰‡" [evi-mark evi-exchange-point-and-mark rectangle evi-region-shape] 2 "\
Define region as rectangle bounded by mark and point (containing point)." nil])
(fset 'evi-region-rows #[(context) "`W«ѓБ €В!‡" [evi-mark evi-exchange-point-and-mark evi-expand-region-to-lines evi-context] 2 "\
Define region as rows bounded by mark and point (containing point)." (evi-context-arg)])
(fset 'evi-region-columns #[nil "`W«ѓБ €Љb€i)i‰db€l«ѓД €Еy€`\n\\b€*Ж‰‡" [evi-mark evi-exchange-point-and-mark end-col start-col backward-char 0 rectangle evi-region-shape] 3 "\
Define region as columns bounded by mark and point (containing point)." nil])
(fset 'evi-search-forward #[nil "АБВГDВДDЕ ВD%€ЗИ!‡" [evi-extend-continuation evi-after-string-arg quote do-evi-search-forward horizontal evi-adjust-count evi-context evi-read-string "/"] 7 "\
Search forward for the ARGth occurence of a pattern.  A null string will
repeat the previous search." nil])
(fset 'do-evi-search-forward #[(string &optional count context) "АБ\n®ЃД#‡" [evi-do-vi-search t string count 1] 4])
(fset 'evi-search-backward #[nil "АБВГDВДDЕ ВD%€ЗИ!‡" [evi-extend-continuation evi-after-string-arg quote do-evi-search-backward horizontal evi-adjust-count evi-context evi-read-string "?"] 7 "\
Search backward for the ARGth occurence of a pattern.  A null string will
repeat the previous search." nil])
(byte-code "АБM€ВГM‡" [do-evi-search-backward #[(string &optional count context) "АБ\n®ЃД#‡" [evi-do-vi-search nil string count 1] 4] evi-do-vi-search #[(search-forward search-spec count) "p	q€В €«ѓДЄЃЕЗ±€eb€И Й \nq€М¬„«ЌО‰#€Є„СТ!€\nУV«†Ф\n!Є‹\nУW­…Х\n[!+‡" [ex-user-buffer ex-work-space erase-buffer search-forward 47 63 search-spec "\n" ex-scan-regular-expression ex-scan-line-offset offset string "" evi-search-pattern evi-do-search evi-search-forward count evi-error "No previous search pattern" 0 evi-next-line-internal evi-previous-line-internal] 4]] 2)
(fset 'evi-search-next #[nil "АБВГ $‡" [evi-motion-command do-evi-search-next horizontal evi-adjust-count evi-context] 5 "\
Search for the next ARGth occurence of the previous search pattern." nil])
(fset 'do-evi-search-next #[(&optional count context) "«‰Б\n®ЃД#‡ЕЖ!‡" [evi-search-pattern evi-do-search evi-search-forward count 1 evi-error "No previous search pattern"] 4])
(fset 'evi-search-next-reverse #[nil "АБВГ $‡" [evi-motion-command do-evi-search-next-reverse horizontal evi-adjust-count evi-context] 5 "\
Search for the next ARGth occurence of the previous search pattern
but look in the opposite direction." nil])
(byte-code "АБM€ВГM€ДЕM€ЖЗM‡" [do-evi-search-next-reverse #[(&optional count context) "?Б\n\")‡" [evi-search-forward do-evi-search-next count context] 3] evi-do-search #[(search-forward search-string count) "`«‡Д\"Є…З\"«‰И	!€Й”bЄћ	b€КЛV«ѓМЄЃН«ѓПЄ‡«ѓРЄЃСP!*‡" [evi-ignore-case starting-point case-fold-search search-forward evi-search-forward-count search-string count evi-search-backward-count evi-push-context 0 evi-error 1 "Nth occurrence not found" "Pattern not found" evi-search-wraparound "" " before end of file" " before beginning of file"] 3] evi-search-forward-count #[(string count) "БV«¤Вu€ГВЕ#«†ЖS\"‡­Џeb€ГВЕ#­…ЖS\"‡Е‡" [count 0 nil re-search-forward string t evi-search-forward-count evi-search-wraparound] 4] evi-search-backward-count #[(string count) "БV«ЎВДЕ#«†ЖS\"‡­Џdb€ВДЕ#­…ЖS\"‡Е‡" [count 0 re-search-backward string nil t evi-search-backward-count evi-search-wraparound] 4]] 2)
(fset 'evi-find-character #[nil "АБВГ Е %‡" [evi-motion-command do-evi-find-character horizontal evi-adjust-count evi-context evi-read-command-char] 6 "\
Search for CHAR on the current line.  With COUNT find the COUNT'th occurance." nil])
(fset 'do-evi-find-character #[(char &optional count context) "ВДЖ®ЃИ	\"‡" [char evi-find-character t evi-find-forward nil evi-find-up-to evi-find-character-internal count 1 context] 3])
(fset 'evi-find-char-backwards #[nil "АБВГ Е %‡" [evi-motion-command do-evi-find-char-backwards horizontal evi-adjust-count evi-context evi-read-command-char] 6 "\
Search backwards for CHAR on the current line.  With COUNT find the
COUNT'th occurance." nil])
(fset 'do-evi-find-char-backwards #[(char &optional count context) "ВВЕ®ЃЗ\"‡" [char evi-find-character nil evi-find-forward evi-find-up-to evi-find-character-backwards-internal count 1 context] 3])
(fset 'evi-find-character-before #[nil "АБВГ Е %‡" [evi-motion-command do-evi-find-character-before horizontal evi-adjust-count evi-context evi-read-command-char] 6 "\
Search for CHAR on the current line and leave the cursor on the character
before it.  With COUNT find the COUNT'th occurance." nil])
(fset 'do-evi-find-character-before #[(char &optional count context) "ВВЕ®ЃЗ\"‡" [char evi-find-character t evi-find-forward evi-find-up-to evi-find-character-internal count 1 context] 3])
(fset 'evi-find-char-backwards-after #[nil "АБВГ Е %‡" [evi-motion-command do-evi-find-char-backwards-after horizontal evi-adjust-count evi-context evi-read-command-char] 6 "\
Search backwards for CHAR on the current line and leave the cursor on
the character after it.  With COUNT find the COUNT'th occurance." nil])
(fset 'do-evi-find-char-backwards-after #[(char &optional count context) "ВДЖ®ЃИ	\"‡" [char evi-find-character nil evi-find-forward t evi-find-up-to evi-find-character-backwards-internal count 1 context] 3])
(fset 'evi-find-next-character #[nil "АБВГ $‡" [evi-motion-command do-evi-find-next-character horizontal evi-adjust-count evi-context] 5 "\
Search for the next COUNT'th occurence of the previous search character." nil])
(fset 'do-evi-find-next-character #[(&optional count context) "«“	«€В®ЃД\"‡Ж®ЃД\"‡ЗИ!‡" [evi-find-character evi-find-forward evi-find-character-internal count 1 context evi-find-character-backwards-internal evi-error "No previous search character"] 3])
(fset 'evi-find-next-character-reverse #[nil "АБВГ $‡" [evi-motion-command do-evi-find-next-character-reverse horizontal evi-adjust-count evi-context] 5 "\
Search for the next COUNT'th occurence of the previous search character
in the opposite direction." nil])
(byte-code "АБM€ВГM€ДЕM€ЖЗM‡" [do-evi-find-next-character-reverse #[(&optional count context) "?Б\n\")‡" [evi-find-forward do-evi-find-next-character count context] 3] evi-find-character-internal #[(count context) "Аu€АВГ!ЉА€`)Е$«‰«ЊИ €Є‡И €ЙК!€)®‚И ‡" [nil case-fold-search search-forward char-to-string evi-find-character t count evi-find-up-to backward-char evi-error "No more occurences on this line" context] 5] evi-find-character-backwards-internal #[(count context) "АВГ!ЉЕy€`)Ж$¬„ИЙ!€)\n­‚Аu‡" [nil case-fold-search search-backward char-to-string evi-find-character 0 t count evi-error "No more occurences on this line" evi-find-up-to] 5] evi-modify-paren-syntax #[(char) "АБВGW«ПHU«є«њБЙКTHP\"€ЙTHЛP\"€ЄљВЙЛSHP\"€ЙSHКP\"€T?Є+,‡" [0 t nil evi-parens len match-open open i char modify-syntax-entry "(" ")"] 5]] 2)
(fset 'evi-paren-match #[nil "АБВГ $‡" [evi-motion-command do-evi-paren-match horizontal evi-adjust-count evi-context] 5 "\
Move cursor to matching parenthesis, brace or bracket." nil])
(fset 'do-evi-paren-match #[(&optional count context) "ЉА€`)ВГ	Д#«»Е €Ж И!	К	!€Лh!«ЌМН!€¬•Е €ЄђАu€«…TРН!€К!*ЄѓСТ!)‡" [nil end-point re-search-forward "[][(){}]" t backward-char syntax-table st copy-syntax-table newst set-syntax-table evi-modify-paren-syntax forward-sexp 1 context evi-mark backward-sexp evi-error "Nothing on rest of line to balance"] 4])
(fset 'evi-paren-match #[nil "АБВГ $‡" [evi-motion-command do-evi-paren-match horizontal evi-adjust-count evi-context] 5 "\
Move cursor to matching parenthesis, brace or bracket." nil])
(byte-code "АБM€ВГM€ДЕM€ЖЗM€ИЙM€КЛM€МНM€ОПM‡" [do-evi-paren-match #[(&optional count context) "`ЉА€`)ГД	Е#ѓС hАЕЖ	‰\nЛU«…М	Єѕ\nНU«€М	АЄ°\nОU«…П	ЄҐ\nРU«€П	АЄ—\nСU«…Т	ЄЊ\nУU«†Т	А«©Г	АЕ#«—h\nU¬ЉS‰ЖYЄЌTЄa\nb€ФХ!¬YЄЄЦ €Ч	АЕ#«—g\nU¬ЉS‰ЖYЄЌTЄa\nb€ФХ!¬Y®Ћ«„Ц Є†T‰,ЄѓФЪ!*‡" [nil end-point start re-search-forward "[][(){}]" t 0 depth forward match c 91 "[][]" 93 40 "(\\|)" 41 123 "{\\|}" 125 evi-error "No match" backward-char re-search-backward context evi-mark "Nothing on rest of line to balance"] 5] evi-add-key #[(k) "	Y«‹	В\\ДВЕ\"PI€TИ!P‰‡" [evi-command-keys-index evi-command-keys-length 256 evi-command-keys make-string 0 k evi-prompt char-to-string] 4] evi-lose-key #[(&optional count) "БV­€\n®ЃГZ‰‡" [evi-command-keys-index 0 count 1] 2] evi-erase-keys #[nil "АВ‰‡" [0 evi-command-keys-index nil evi-prompt] 2] evi-copy-keys #[nil "Б\nO‡" [evi-command-keys 0 evi-command-keys-index] 3] evi-keys-description #[nil "АБВ Г#‡" [mapconcat single-key-description evi-copy-keys ""] 4] evi-prompt-keys-description #[nil "АБ\nГ#‡" [mapconcat single-key-description evi-prompt ""] 4] evi-save-command-keys #[nil "А \nД‰‡" [evi-copy-keys evi-last-command-keys evi-prefix-count evi-last-prefix-count 0 evi-hidden-repeat-count evi-register-spec evi-last-register-spec] 2]] 2)
(fset 'evi-repeat #[nil "«„Є‚	\n«„\nЄ‚TЖЗ!€И	К	#‡" [evi-prefix-count evi-last-prefix-count evi-register-spec evi-last-register-spec evi-hidden-repeat-count evi-repeat-count evi-push-continuation evi-repeat-continuation evi-push-macro evi-last-command-keys evi-repeat-after] 4 "\
Repeat last modifying command." nil])
(byte-code "АБM€ВГM‡" [evi-repeat-continuation (lambda nil) evi-repeat-after #[(command-keys) "\nД‰‡" [command-keys evi-last-command-keys evi-repeat-count evi-hidden-repeat-count 0] 2]] 2)
(fset 'evi-prompt-repeat #[nil "АБ\n\"Д!€‰)‡" [evi-read-string "Repeat: " evi-last-command-keys command evi-execute-macro] 3 "\
Print last modifying command." nil])
(fset 'evi-read-number #[(prefix-value) "А ‰ВY«ђ	ГX«‹ДЖ_	ВZ\\!Є…З	!€)‡" [evi-read-command-char char 48 57 evi-read-number prefix-value 10 evi-unread-command-char] 5])
(fset 'evi-prefix-digit #[nil "А €	®ЃВГ_ЕZ\\ЖЗ!‡" [evi-lose-key evi-prefix-count 0 10 last-command-char 48 evi-push-continuation evi-prompt] 3 "\
Prefix count." nil])
(byte-code "АБM€ВГM‡" [evi-digit-or-beginning-of-line #[nil "«ѓБ ‡В ‡" [evi-prefix-count evi-prefix-digit evi-beginning-of-line] 1 nil nil] evi-adjust-count #[nil "«‰	®ЃВ_‰‡	‡" [evi-prefix-count-multiplier evi-prefix-count 1] 2]] 2)
(fset 'evi-prefix-register #[nil "А €Б €В А €Д!ЕY­ѓЖX?B)ИБ!‡" [evi-lose-key evi-prompt evi-read-command-char char evi-register-number 97 122 evi-register-spec evi-push-continuation] 3 "\
Prefix register." nil])
(byte-code "АБM€ВГM€ДЕM€ЖЗM€ИЙM€КЛM€МНM€ОПM‡" [evi-register-number #[(register-name) "БY«‹ВX«†БZГ\\‡ДY«‹ЕX«†ДZГ\\‡ЖY«‘ЗX«ЊЙZ\n\\\\Л¦‡М=«ѓ‡О=«€®‡РС!‡РТ!‡" [register-name 97 122 10 65 90 49 57 evi-digit-register 48 evi-repeat-count 9 94 evi-register-unnamed 64 evi-last-macro-register evi-error "No previous macro register specified" "Invalid register name"] 3] evi-register-name #[(register-number) "БV«„В\\‡Г\\‡" [register-number 9 87 49] 2] evi-copy-region-to-registers #[(number-register-also) "Б=«‡В`T\"Єѓ`{Е\"€­	BI€	КU«ѓЛЄѓ	S‰	)‡" [evi-region-shape rectangle extract-rectangle evi-mark region evi-copy-region-to-register evi-register-spec number-register-also evi-registers evi-digit-register 0 8] 4] evi-copy-region-to-register #[(region register-spec) "@‰\n=¬‡\nBI€­џ	A«•Ж=¬ђ	H‰@PA)BЄѓBI)‡" [register-spec register-number evi-register-unnamed evi-registers region evi-region-shape rectangle register] 5] evi-register-string #[(count) "АБ\n\"€ГД!‡" [evi-extend-continuation evi-register-string-after count evi-read-string "\""] 3 nil (evi-count-arg)] evi-register-string-after #[(count) "АВ®ѓЖB\"‡" [chars evi-region-shape evi-copy-region-to-register evi-minibuf-contents evi-register-spec evi-register-unnamed nil] 4] evi-register-char #[(char &optional count) "АБ\n!!‡" [evi-register-string char-to-string char] 3 nil (evi-character-arg)] evi-buffer-name #[nil "АБ !‡" [evi-register-string buffer-name] 2 nil nil]] 2)
(fset 'evi-undo #[nil "¬‡	¬„ВГ!€Д €Е €ЖЗ!‡" [evi-current-macro evi-in-minibuf message "undo!" evi-undo-start evi-undo-one-change evi-fixup-cursor vertical] 2 "\
Undo previous change." nil])
(fset 'evi-undo-line #[nil "А €Б €ВГ!‡" [evi-undo-start evi-undo-one-line evi-fixup-cursor vertical] 2 "\
Undo all changes to this line." nil])
(fset 'evi-undo-start #[nil "А €БВ!«ђ­Њ@?­‹A‰¬uД‡ЕЖ!‡" [undo-start boundp buffer-undo-list pending-undo-list nil undo-more 1] 3])
(fset 'evi-undo-more #[nil "АБ!«љАВ!«Џ¬‡¬„ЕЖ!€З €Є“ИЙ!€ЄЌ¬‡¬„ЕЖ!€З €КЛ!‡" [boundp buffer-undo-list pending-undo-list evi-current-macro evi-in-minibuf message "undo more!" evi-undo-one-change evi-error "No previous undo to continue" evi-fixup-cursor vertical] 2 "\
Continue undoing previous changes." nil])
(byte-code "АБM€ВГ!¬‚ДВЕ!«„ЖЗM€ИЙM€КЛM€МНM‡" [evi-undo-one-change #[nil "А ВГ!€	«‡А ¬ѓД €)Е‰‡" [buffer-modified-p modified undo-more 1 delete-auto-save-file-if-necessary t evi-reset-goal-column] 2] boundp evi-last-undo-line-mark nil buffer-undo-list evi-undo-one-line #[nil "	A=«„ВГ!€ЉДy€`)ЉЖ€`)ЖЖ	\nЖ‰ѓ:@‰@Н=«Љ¤‚:@;«іAY«џAX«—@G\\C¤Н	‚1ЖC¤¤‚:@Ёѓ(@AW«ѓЄ‚V«„Є‚‰ZX«иY«вU¬ЫBC¤Н	W¬‡V«¶ЖC¤€W«‰BC¤€V«ђZZBC¤€A¤€ЖЄ•ZНЄ‹ЖC¤¤Ж-Є‡Ж=«ЊН«‰A‰„* *	««У \nХЦ!€¬€¬„ЩЪ!€	Дy€«‡У ¬ѓЫ €)Є„ВГ!€,Н‰‡" [evi-last-undo-line-mark buffer-undo-list evi-error "No undo for this line" 0 begin nil end undo-new something-to-do pending-undo-list undo-record list t first second begin2 end2 diff buffer-modified-p modified undo-more 1 evi-current-macro evi-in-minibuf message "Undo!" delete-auto-save-file-if-necessary evi-reset-goal-column] 5] evi-change-last-undo #[(pos char) "‰@<«‹	@@¬†	A‰ЄqВГД	@!ЕQ!€	@@I)‡" [buffer-undo-list ul evi-db "{" prin1-to-string "}" pos char] 5] evi-undo-boundary #[nil "Б=®…ВB‰‡" [evi-emacs-version emacs18 nil buffer-undo-list] 2] evi-kill-undo-boundary #[nil "­‰@?­„A‰‡" [buffer-undo-list] 2]] 2)
(fset 'evi-set-mark #[(char &optional count) "БY«ЏВX«ЉБZД\\Е I‡Ж=­„`‰‡" [char 97 122 evi-registers 36 point-marker 46 evi-mark] 3 "\
Mark location." (evi-character-arg)])
(fset 'evi-goto-mark-horizontal #[nil "АБВГ $‡" [evi-motion-command do-evi-goto-mark-horizontal horizontal evi-adjust-count evi-context] 5 "\
Goto a mark." nil])
(fset 'do-evi-goto-mark-horizontal #[(&optional count context) "АБ \n\"‡" [evi-goto-mark-internal evi-read-command-char context] 3])
(fset 'evi-goto-mark-vertical #[nil "АБВГ $‡" [evi-motion-command do-evi-goto-mark-vertical vertical evi-adjust-count evi-context] 5 "\
Goto a mark.  If an operand, define a whole lines region." nil])
(byte-code "АБM€ВГM€ДЕM€ЖЗM€ИЙM€КЛM‡" [do-evi-goto-mark-vertical #[(&optional count context) "АБ \n\"€\n®‚Г ‡" [evi-goto-mark-internal evi-read-command-char context back-to-indentation] 3] evi-goto-mark-internal #[(char &optional context) "БY«ЁВX«ЈБZД\\HpЖ!=¬ЌЗЖ!!€«ѓ`	К €b)‡Л=¬…М=«„Н b‡О=«„П b‡Р=­ѓС b‡" [char 97 122 evi-registers 36 marker marker-buffer switch-to-buffer context evi-mark evi-push-context 96 39 evi-exchange-context 46 evi-pop-context 44 evi-unpop-context] 3] evi-push-context #[(&optional offset) "«‡Б В“Є‚Г I€ЗU«ѓИЄѓT‰)‡" [offset make-marker nil point-marker marker evi-context-ring evi-context-ring-cursor 9 0] 3] evi-pop-context #[nil "БU«ѓВЄ‚SH‡" [evi-context-ring-cursor 0 9 evi-context-ring] 2] evi-unpop-context #[nil "БU«ѓВЄ‚TH‡" [evi-context-ring-cursor 9 0 evi-context-ring] 2] evi-exchange-context #[nil "БU«ѓВЄ‚SHЕ I€)‡" [evi-context-ring-cursor 0 9 cursor evi-context-ring point-marker] 4]] 2)
(fset 'evi-redraw #[nil "Б=«ѓВ ‡Г=«‹«…ЕЖ !‡В ‡З=­„ИЙ !‡" [evi-emacs-version emacs18 redraw-display emacs19 window-system redraw-frame selected-frame lucid19 redraw-screen selected-screen] 2 "\
Redraw the display." nil])
(fset 'evi-file-info #[nil "АБ`Td^\"‰А`d\"\\SЖЗ«Ћ«‡ЙК \"Є„ЄЃЛ«ѓНЄЃЛО «ѓПЄЃЛ\niT\nР_Ґ&+‡" [count-lines 1 line-number total-lines buffer-file-name file-name message "\"%s\"%s%s line %d of %d, column %d --%d%%--" evi-global-directory evi-abbreviate-file-name evi-current-directory "" evi-buffer-read-only " [Read only]" buffer-modified-p " [Modified]" 100] 11 "\
Give information on the file associated with the current buffer." nil])
(fset 'evi-abbreviate-file-name #[(file-name directory &optional abbrev) "G	SHВU	ДV«¦G	Y« Д	O«®ЃЗ	¬ѓ«ѓДЄЃИ\\ЙOPЄЃ*‡" [directory length 47 ends-in-slash 0 file-name abbrev "" 1 nil] 4])
(fset 'evi-tag #[nil "АБВГД$€Е`{!‡" [evi-motion-command do-evi-forward-word horizontal 1 to-end ex-tag evi-mark] 5 "\
Go to the tag which is the next word in the buffer." nil])
(byte-code "АБM€ВГ!¬ѓА ДЕM€ЖЗM€ИЙM€КЛM€МНM€ОПM€РСM€ТУM€ФХM€ЦЧM€ШЩM€ЪЫM€ЬЭM€ЮЯM€Ва!¬ѓб Вв!¬ѓб\"б‡" [evi-make-char-table #[nil "АБВ\"ГЖS‰X«‡ЗI€ЄqИЙS‰X«‡КI€ЄqЛМS‰X«‡КI€ЄqНВS‰X«‡ОI€Єq*‡" [make-vector 256 0 58 i table 48 1 91 65 2 123 97 32 4] 3] boundp evi-char-table evi-is-num #[(c) "А	\nHГ\"ГU‡" [logand evi-char-table c 1] 3] evi-is-alpha #[(c) "А	\nHГ\"ГU‡" [logand evi-char-table c 2] 3] evi-is-alphanum #[(c) "А	\nHГ\"ДU?‡" [logand evi-char-table c 3 0] 3] evi-is-nonalphanum #[(c) "А	\nHГ\"ДU‡" [logand evi-char-table c 3 0] 3] evi-is-control-char #[(c) "А	\nHГ\"ГU‡" [logand evi-char-table c 4] 3] evi-is-printable #[(c) "А	!?­ѓ	ВW‡" [evi-is-control-char c 127] 2] evi-display-and-prompt #[(command &optional args) "А Б ‰Д =«…ЕЖ !€З	\"­§ЕД !€КЛ!€М ‰ОU¬ЊПU¬†РU«…С\n!ЄѓЕ!)*‡" [selected-window current-window-configuration wconf window minibuffer-window select-window previous-window apply command args message "Hit SPACE or RET to continue, anything else to keep window" evi-read-char c 10 13 32 set-window-configuration] 4] evi-display-list-and-prompt #[(buffer list &optional initial max-len) "АБ\nF\"‡" [evi-display-and-prompt evi-display-list buffer list initial max-len] 6] evi-display-list #[(buffer list &optional initial max-len) "ЉА	!q€В €Г €«ѓc€Ж=«‡З ИҐИZ	«ЊК	®„З ИZ\"€eb€Л	М\"€)М‡" [get-buffer-create buffer erase-buffer evi initial max-len half window-width 2 list evi-insert-list-pretty display-buffer t] 4] evi-insert-list-pretty #[(list max-len) "GВ!^‰Е\\З ‰Ґ			S\\	Ґ\nЛЛ		W«ђ	Ґ‰ЕZ		О\n	‰РV«•S\n_›BS‰Єg)\n‰РV«ХРЛ‰‰«є@\nZ›@‰«Ўj€GV«‹РЕZOФPЄ‚c€\\)A‰¬F+Хc€S‰Є'РU.	‡" [list len evi-max-len max-len max-width 2 col-width window-width width cols rows nil counters indent 1 count 0 found item s "..." 10] 5] evi-max-len #[(list) "АБ\n\"ДЕ\")‡" [mapcar length list lengths apply max] 3] evi-pretty-char #[(c) "А	!«„В	!‡Г	!«·«¬	ЕU«‚Ж‡	ЗU«‚И‡	ЙU«‚К‡	ЛU«‚М‡НВ	‰ЛW«ѓОЄЃП\\!P‡РВ	П\\!P‡	СU«‡«‚Т‡У‡ФХ	\"‡" [evi-is-printable c char-to-string evi-is-control-char ex-input-escapes 10 "\\n" 13 "\\r" 9 "\\t" 27 "\\e" "\\C-" 96 64 "^" 127 "\\C-?" "^?" format "\\%03o"] 5] evi-pretty-string #[(s) "АБ\nГ#‡" [mapconcat evi-pretty-char s ""] 4] evi-pretty-binding #[(b) "А	@!ВА	A:«…	AAЄ‚	A!Q‡" [evi-pretty-string b " = "] 4] ex-user-buffer nil ex-printed] 2)
(fset 'evi-ex-command #[nil "АБВ \"€pДЖЗД	$‡" [evi-extend-continuation ex-read-command-after current-window-configuration ex-user-buffer nil ex-printed evi-read-string ":" evi-ex-map evi-ex-input-map] 5 "\
Execute an ex command." nil])
(byte-code "АБM€ВГM€ДЕM€ЖЗM€ИЙM€КЛM€МНM€ОПM€РСM€ТУM€ФХM€ЦЧM€ШЩM€ЪЫM€ЬЭM€ЮЯM€абM€вгM€деM€жзM€ийM€клM€мнM€опM€рсM€туM€фхM€цчM€шщM€ъыM€ьэM€юяM€Ѓ@ ЃA M€ЃB ЃC M€ЃD ЃE M€ЃF ЃG M€ЃH ЃI M€ЃJ ЃK M€ЃL ЃM M€ЃN ЃO M€ЃP ЃQ M€ЃR ЃS M€ЃT ЃU M€ЃV ЃW M€ЃX ЃY M€ЃZ Ѓ[ M€Ѓ\\ Ѓ] M€Ѓ^ Ѓ_ M€Ѓ` Ѓa M€Ѓb Ѓc M€Ѓd Ѓe M€Ѓf Ѓg M€Ѓh Ѓi M€Ѓj Ѓk M€Ѓl Ѓm M€Ѓn Ѓo M€Ѓp Ѓq M€Ѓr Ѓs M€Ѓt Ѓu M€Ѓv Ѓw M€Ѓx Ѓy M€Ѓz Ѓ{ !¬…Ѓ| {Ѓ} Ѓ~ M€Ѓ ЃЂ M€ЃЃ Ѓ‚ M€Ѓѓ Ѓ„ M€Ѓ… Ѓ† M€Ѓ‡ Ѓ€ M€Ѓ‰ ЃЉ M€Ѓ‹ ЃЊ M€ЃЌ ЃЋ M€ЃЏ Ѓђ M€Ѓ‘ Ѓ’ M€Ѓ“ Ѓ” M€Ѓ• Ѓ– M€—Ѓ =«Ћ™«ЉЃљ Ѓ› M€Єљ—Ѓњ =«ЉЃљ Ѓќ M€Є€Ѓљ Ѓћ M€А‡" [ex-read-command-after #[(wconf) "А	!€В!€«ЋЉЕq€ed=¬„ЖЗ!€)ИЙ!‡" [set-window-configuration wconf evi-do-ex-command-string evi-minibuf-contents ex-printed "*Print*" evi-display-and-prompt #[nil "eb€А €Бp!‡" [evi display-buffer] 2] evi-fixup-cursor vertical] 2] ex-do-completion #[(name start c-name c-list-fun) "«™;«’	«†В!!‡`|€c‡Еc‡Ж €ЉЗc€)ИЙ!€``К\\|‡" [c-name name evi-display-completions c-list-fun start " " beep " [no match]" sit-for 2 11] 3] evi-display-completions #[(list) "АБ\nГ#‡" [evi-display-list " *Completions*" list "Possible completions are:\n"] 4] ex-scan-one-command-point #[nil "А €`В l«‡Г	B`BЄЋДA@AЕ\"®ѓЖ`B`B*‡" [ex-scan-addresses start-of-com ex-scan-command-name command ex-scan-parameter-list t nil] 3] ex-scan-command-point #[nil "А ВГw€gДU«€Гu€А Єs	)‡" [ex-scan-one-command-point res " 	" nil 124] 2] ex-is-completable #[(proto) "Б=®¦В=®ЎГ=®њД=®—Е=®’Ж=®ЌЗ=®€И=®ѓЙ=‡" [proto file files shell-command buffer settings command map abbrev process] 2] ex-complete #[nil "Аy€Бu€В ‰@@@AЉЕБx€`)]‰`{И=¬ЉЙ=¬…К=«ЅЛ!Н!pq€«€СТ \"Є‚Т q€)ФG\\Х\"Ц$+‚;Ч=«ћШЩЪЫШЬЭ \"\"\"ФЯ\"а$)‚;б=«РЉb€вБw€`)`V«…г ‚;fд=«ћTfе=«–ж\\fз=¬ЌжБOж\\Ши)\"*ФЯ*\"л$)ЄШм=¬Љн=¬…о=««м=«‡Ши/\"ЄЌн=«†р1!Є‚23ФЯ3\"ф$)Єћх=«—Шцч \"8ФЯ8\"щ$)Є‚ъc,‡" [0 nil ex-scan-command-point cmd-point type "^ 	" start-of-word word file files shell-command file-name-nondirectory name file-name-directory odir cur-buffer ex-user-buffer expand-file-name evi-current-directory dir ex-do-completion file-name-completion #[(c-name) "А	\n\"‡" [file-name-all-completions c-name dir] 3] buffer mapcar list evi-filter #[(name) "БHВU?‡" [name 0 32] 2] buffer-name buffer-list buf-list try-completion #[(c-name) "А	\n\"‡" [all-completions c-name buf-list] 3] settings "^=\n" beep 110 111 2 118 car evi-option-list settings-list #[(c-name) "А	\n\"‡" [all-completions c-name settings-list] 3] command map abbrev ex-commands evi-keymap-bindings evi-map-map evi-abbrev-list cmd-list #[(c-name) "А	\n\"‡" [all-completions c-name cmd-list] 3] process #[(x) "А	!C‡" [process-name x] 2] process-list proc-list #[(c-name) "А	\n\"‡" [all-completions c-name proc-list] 3] 9] 8 nil nil] evi-filter #[(pred list) "А‰B‰«“@!«‡\n@АBЎA‰¬m	A*‡" [nil head end list pred] 4] evi-do-ex-command-file #[(filename) "А	!­ЎpВ Гq€И €	К	!€)eb€Л €q+‡" [file-readable-p filename evi-current-directory nil evi-interactive def-dir ex-user-buffer ex-work-space erase-buffer default-directory insert-file-contents evi-do-ex-command] 3] evi-do-ex-command-string #[(command-string) "p	q€В €Д±€eb€Е €q)‡" [ex-user-buffer ex-work-space erase-buffer command-string "\n" evi-do-ex-command] 2] evi-do-ex-command #[nil "m?­љА \nq€«ѓД Ж	!€q€Иu€)Єb‡" [ex-scan-command command ex-user-buffer evi-global-directory evi-current-directory default-directory eval ex-work-space nil] 2] ex-scan-command #[nil "gАU«ѓБu€gВU«ѓБ€Г Е ‰A@@@@A@A	AA\n¬„ЛМ!€Н!V«€ЛО#€П	Б\"СБw€ТУ!¬’m¬ЏЛФ`ХБw€СБx€`{\"€\nЦ=«‰Ч@DBЄђШ=«€ЧDBЄ‚.B‡" [58 nil 34 ex-scan-addresses addresses ex-scan-command-name command-struct number-of-addresses command-name command-prototype command-function evi-error "Unknown ex command" ex-count-addresses "The %s command only needs %d addresses" ex-scan-parameter-list parameter-list " 	" looking-at "[|\n]" "garbage after end of command: `%s'" "^|\n" 1 quote 2] 6] ex-scan-parameter-list #[(prototype-list completing) "­н@A@@Б=\n«†ДЕw€ЄЉ@@Ж=«ѓЗ €`<«њ@Й=«–КA@!­’Л8`К!®†БЄѓК!«Ћl«‹О!«†BЄ†ПA\"«„Є…B-‡" [prototype-list t skip-white prototype " 	" nil backup backward-char start if ex-scan-parameter 2 param completing ex-is-completable ex-scan-parameter-list recurs] 3] ex-scan-parameter #[(prototype) "¬‚Б‡;«„В!‡Г=«…ДЕ D‡Ж=«…ДЗ D‡И=«…ЙКЛ\"‡М=¬…Н=«…ЙБО\"‡П=¬…Р=«…ЙБС\"‡Т=¬ЉУ=¬…Ф=«…ЙБЛ\"‡Х=«ѓЦ ‡Ч=«„ЦШ!‡Щ=«…ДЪ D‡Ы=«…ДЬ D‡Э=«ѓЮ ‡Я=«…ЙаС\"‡б=«ѓв ‡г=­‚д ‡" [prototype nil ex-scan-string address quote ex-scan-address register ex-scan-register file ex-scan-quoted "%#*?$[" " 	|\n" buffer words "|\n" rest-of-line process "\n" word map abbrev regular-expression ex-scan-regular-expression regular-expression2 t command ex-scan-command settings ex-scan-settings files ex-scan-files shell-command "%#" offset ex-scan-edit-offset mark ex-scan-mark] 3] ex-scan-addresses #[nil "АБw€gВU«ЏБu€ГДBЕBЖБBЕBB‡ЗИ!«ќЙ АБw€gКU«‹Бu€АБw€Й Є…Б‰BЕBB‡Б‰BЕBБ‰BЕBB‡" [" 	" nil 37 number 1 0 dollar looking-at "[-+0-9.$^'/?]" ex-scan-address 44] 3] ex-scan-address #[nil "А Б B‡" [ex-scan-linespec ex-scan-line-offset] 2] ex-scan-linespec #[nil "g‰БY«•ВX«ђ`ДЕw€ЖЗ`{!)BЄИИ=«€Еu€ЙЕBЄ»К=«€Еu€ЛЕBЄ®М=«€Еu€НЕBЄЎО=«€Пu€РhBЄ”С=«†ТУ BЄ‰Ф=­„ХУ B)‡" [char 48 57 start "0-9" nil number string-to-int 46 dot 36 dollar 94 prev 39 2 mark 47 re-forward ex-scan-regular-expression 63 re-backward] 5] ex-scan-regular-expression #[(&optional esc-ampersand) "АБ!?­лВu€`­ЃЕ?­ЃЗPЙКh!QМНQВw€А!«ґgПU¬…gРU«ќВu€GСU¬ЋАТНQ!«…`S`|€Вu€Є†Уc€Вu€Вw€ЄF`{l¬ѓВu€,‡" [looking-at "[|\n]" nil start esc-ampersand "&" evi-search-magic ".[*" stop-chars "^\n\\\\" char-to-string skip-chars "[\\\\" "]" stop-pat 92 22 0 "[" "\\"] 4] ex-scan-line-offset #[nil "АБ!«§`Гu€ДГw€`\nZЕU«ђhЖW«‹hЗU«ѓЕЄ€ИЄ…Й\n`{!)‡К‡" [looking-at "[0-9+-]" start nil "0-9" 1 48 43 -1 string-to-int 0] 3] ex-scan-edit-offset #[nil "gАU??­ЊБu€Вg!«ѓГ ‡Д‡" [43 nil evi-is-num ex-scan-line-offset -1] 2] ex-define-region #[(addresses whole-lines default-whole-file) "@A‰@@¬‰«†edbЄ•`Ж\n!€`Ж	\"€)­ѓИЙ!*‡" [addresses end start default-whole-file evi-mark starting-point ex-goto-address whole-lines evi-expand-region-to-lines ex] 4] ex-goto-line #[(line) "«›`eb€SyВV¬‡m­Љo?­†	b€ГД!)‡db€hЕU«ѓЖy‡Вy€З‡" [line starting-point 0 evi-error "Past end of buffer" 10 -1 nil] 2] ex-goto-address #[(address &optional starting-point) "@@@A‰Г=«‡Д	!€‚™ \nЕ=«Љ«ьb€Єц\nЗ=«†ДИ!€Єл\nЙ=«Ќ«„b€Кy€ЄЩ\nЛ=«†М	!€ЄО\nН=«¶	GОU«Џ«…Є‰РС!€Єѓ	«„b€И€ТУЌ‰«€Кy€Р!€)Є“\nХ=«Ћ«„b€ЦИ	Ч#€*Ay‡" [address value token number ex-goto-line dot starting-point dollar nil prev -1 mark evi-goto-mark-internal re-forward 0 ex-previous-re evi-error "No previous regular expression" abort (byte-code "АБ\nГ#€Д‡" [evi-do-search t value 1 nil] 4) message re-backward evi-do-search 1] 5] ex-goto-line-after-address #[(address) "@@¬ѓБy‡@@В=«Љ@AГU«ѓeb‡Д!€Бy‡" [address nil number 0 ex-goto-address] 2] ex-count-addresses #[(addresses) "@@@Б=«‚В‡A@@Б=«‚Г‡Д‡" [addresses nil 0 1 2] 2] ex-scan-command-name #[nil "АБw€`ГД!«ћБu€h‰ЖY«…ЗX¬ЉИY«‰ЙX«„КБw€)Л\n`{\")‡" [" 	" nil start looking-at "[a-zA-Z!<=>&@]" char 97 122 65 90 "a-zA-Z" ex-lookup-command ex-commands] 5] ex-lookup-command #[(command-list command) "Б‰‰«–@Е@\"­Ѓ‰¬†A‰¬j\n+‡" [command-list nil found cmd-struct list ex-command-eq command] 4] ex-command-eq #[(command command-cell) "@\n	®\nG‰AY­Ћ	GW­€\n@Д\nGO))‡" [command-cell full-command command command-length 0] 5] ex-scan-register #[nil "Аg!«”gВu€Г	!	ДY­ѓ	ЕX)?B‡ВB‡" [evi-is-alpha char nil evi-register-number 97 122 evi-register-unnamed] 3] ex-scan-mark #[nil "Аg!«™gВu€	‰ГY«€	ДX«ѓГЄЃЕZЖ\\)‡ЗИ!‡" [evi-is-alpha char nil 97 122 65 36 evi-error "marker name required for mark command"] 3] ex-scan-files #[nil "А‰ГДЕ\"‰GЖV«Љ\n	BЗАw€ЄkИ	џ*АBB‡" [nil flist file ex-scan-quoted "%#*?$[" " 	|\n" 0 " 	" quote] 3] ex-scan-quoted #[(stop-chars delim-chars) "`А	\nQГ	ДQЕ	Еw€К!ѓg‰МU«‹``T|€Еu€‚ш НU«я«ц``T|€g‰ПU«Љ``T|€Рc€ЄЬСU«Љ``T|€Тc€ЄМУU«Љ``T|€Фc€ЄјХU«Љ``T|€Цc€Є¬ЧU«Ј`TfШU«њ`Щ\\f‰‰ЪW«ѓЫЄЃЬZc€``Э\\|€)ЄѓЮu€)ЄЗЕu€ЄВЯU«›а!!‰\"«‹``T|€\"c€Є„гд!€)ЄЎеU«•&«‹``T|€&c€ЄЊгз!€Є†иЕu€)Еw€‚ «—й	`к	`{Pи$€	b€л\nPЕw€	`U?­„	`{,‡" ["^\\\\" stop-chars delim-chars "[\\\\" "]" nil expand-glob stop-pat skip-chars start looking-at char 22 92 ex-input-escapes 101 27 110 10 114 13 116 9 67 45 2 97 64 96 3 1 37 buffer-file-name ex-user-buffer file-name evi-error "Buffer has no filename to substitute for %%%%" 35 evi-prev-file "No alternate filename to substitute for #" t shell-command-on-region "echo " "^"] 7] ex-scan-string #[(string) "G‰ЉВГw€`)`ZX­ђ``	\\{­„	u€Е))‡" [string string-length "^|\n" nil buffer-string t] 4] ex-not-implemented #[(&optional arg) "АБ!‡" [message "Command not implemented"] 2] ex-abbrev #[(abbrev definition) "«ІБ\n\"‰«•«€GBЎЄќЕЖЗAA!\"Є“«Њ‰GBB\nB‰Є„ИЙ\")‡КЛМН\n\"\"‡" [abbrev assoc evi-abbrev-list elem definition message "%s" evi-pretty-string evi-error "No abbrev for `%s'" evi-display-list-and-prompt "*Abbrevs*" mapcar evi-pretty-binding] 6] ex-expand-abbrev #[nil "Б‰­іД@@`@A@ZЕ#«ћЖh!«‘``@A@\\|€@AAc€Є€`@A@\\b€A‰¬NБ*‡" [evi-abbrev-list nil case-fold-search abbrev search-backward t evi-is-nonalphanum] 5] evi-self-insert #[nil "А €Б\n!«ѓГ €ДЕ!‡" [evi-kill-undo-boundary evi-is-nonalphanum last-command-char ex-expand-abbrev self-insert-command 1] 2 nil nil] ex-change-buffer #[(exclam buffer-name) "А	\nГ#‡" [ex-change-buffer-internal exclam buffer-name nil] 4] ex-change-buffer-other-window #[(exclam buffer-name) "А	\nГ#‡" [ex-change-buffer-internal exclam buffer-name t] 4] ex-change-buffer-internal #[(exclam buffer-name other-window) "¬†АБp!!В!¬ѓ«Џ«†Ж!€Є‹З!€Є…ИЙ\"€К )‡" [buffer-name other-buffer ex-verify-buffer found exclam other-window switch-to-buffer-other-window switch-to-buffer message "Buffer \"%s\" does not exist" evi] 3] ex-verify-buffer #[(buffer-name) "А Б‰‰«’@Е!‰¬†A‰¬n\n+‡" [buffer-list nil found buf list buffer-name] 4] evi-expand-file-name #[(file-name) "А	!‰G\nSHДU«ѓ\nЄѓ\nЕP*‡" [expand-file-name file-name expanded-name len 47 "/"] 3] evi-current-directory #[nil "«ѓ	@‡\n‡" [evi-global-directory evi-directory-stack default-directory] 1] ex-change-directory #[(directory-name) "А	®ЃВ!«… Є„‰)‡" [evi-expand-file-name directory-name "~" expnd-dir-name evi-global-directory evi-directory-stack default-directory] 2] ex-push-directory #[(directory-name) "«€Б!\nB‰‡\nA¬„ГД!‡\nA@\n@\nAABB‰‡" [directory-name evi-expand-file-name evi-directory-stack evi-error "Only one directory"] 3] ex-pop-directory #[nil "A¬„БВ!‡A‰‡" [evi-directory-stack evi-error "Only one directory left"] 2] ex-directory-stack #[nil "АБ!ГДЕЗ#!)‡" [getenv "HOME" home message mapconcat #[(f) "А	\nГ#‰GSHЖU«†ЗOЄЃ*‡" [evi-abbreviate-file-name f home "~" dir end 47 0] 5] evi-directory-stack " "] 5] ex-copy #[(from-addresses to-address) "А	ВГ#€`{Ж!€c)‡" [ex-define-region from-addresses t nil evi-mark text ex-goto-line-after-address to-address] 4] ex-delete #[(addresses register-struct) "ВДЕ#€ЖД!€`W«ѓИ €`|)‡" [register-struct evi-register-spec ex-define-region addresses t nil evi-copy-region-to-registers evi-mark evi-exchange-point-and-mark] 4] ex-edit #[(exclam offset file-name) "А	\nД$‡" [ex-edit-internal exclam offset file-name nil] 5] ex-edit-other-window #[(exclam offset file-name) "А	\nД$‡" [ex-edit-internal exclam offset file-name t] 5] ex-edit-internal #[(exclam offset file-name other-window) "¬¬	¬Ќ\n¬ЉГ «†ДЕ!€ЄА\n«…Ж €Єё¬†ДИ!€Є®ЙКЛ\"€М €Є¤Нp!\n«†П!€Є„Р!€Нp!=¬†З!М €)­‹УФU?­‚!‡" [file-name exclam other-window buffer-modified-p message "Buffer modified since last save (use :edit! to override)" split-window-vertically buffer-file-name "Buffer has no file associated with it" revert-buffer nil t evi get-buffer prev-buf find-file-other-window find-file evi-prev-file offset ex-goto-line -1] 3] ex-elisp-execute #[(lisp-expression) "АБ\n!@!‡" [eval read-from-string lisp-expression] 3] ex-file #[(file-name) "«„Б!‡В ‡" [file-name set-visited-file-name evi-file-info] 2] ex-global #[(addresses notmatch pattern command) "Б Б ВГ`В	\nGМU«ђ«†ЄЉОП!€Є„РГ‰#€Т €`ZФV‰«„ХЦ!€В“€`W«±`Вy€	`В“€b€Ч	SГ#=¬Ћb€В`Щ!€	b€ЄI«„ХЫ!€	В‰“€В‰“€b€­ѓОЬ!.‡" [evi-ignore-case make-marker nil t large-region end-pos none-found start end-line-mark next-line-mark case-fold-search pattern 0 ex-previous-re evi-error "No previous regular expression" ex-define-region addresses evi-exchange-point-and-mark evi-mark 5000 message "running global command... " re-search-forward notmatch eval command "running global command... complete." "No occurance of pattern found"] 8] ex-vglobal #[(addresses pattern command) "А	В$‡" [ex-global addresses t pattern command] 5] ex-recurse #[(fun) "p	q€В `q€Е!€p	q€З €c€b€q+‡" [ex-user-buffer ex-work-space buffer-string work-point work-string eval fun erase-buffer] 2] ex-initialize #[nil "АБ!‡" [ex-recurse (evi-customize)] 2] ex-kill-buffer #[(exclam buffer-name) "А	\nГ#‡" [ex-kill-buffer-internal exclam buffer-name nil] 4] ex-kill-buffer-delete-windows #[(exclam buffer-name) "А	\nГ#‡" [ex-kill-buffer-internal exclam buffer-name t] 4] ex-kill-buffer-internal #[(exclam buffer windows-too) "А	®Ѓp!\n¬ЋГ	!«‰Д	!«„ЕЖ!€	q€ЗИ!€Й €\n«…ИЛМЏ€Н	!€p‰‡" [get-buffer buffer exclam buffer-file-name buffer-modified-p evi-error "No write since last change (use :kill! to override)" set-buffer-modified-p nil delete-auto-save-file-if-necessary windows-too (delete-windows-on buffer) ((error)) kill-buffer ex-user-buffer] 3] boundp evi-special-keys (f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 kp-f1 kp-f2 kp-f3 kp-f4 left right up down M-left M-right deletechar deleteline insertline redo undo insert execute begin end next M-next prior home find menu select props kp-enter kp-separator kp-add kp-subtract kp-period kp-0 kp-1 kp-2 kp-3 kp-4 kp-5 kp-6 kp-7 kp-8 kp-9) ex-find-fkey #[(suffix) "А	!Г\n!Ж=«‰\nќ­ґЄ±И	!‰\n@М\n«ќAљ«‹@М‰\nЄl\nA‰\n@Є_+*‡" [intern suffix sym vector key window-system x evi-special-keys evi-keymap-bindings function-key-map bindings it nil fkey] 3] ex-map #[(exclam key definition) "«ѓ	ЄЃ\n«тGЕV«ЇЖHЗU«ЁИЕH!«—ЙКЕЛOP!®–ЙМЕЛOP!®ЊЄ‰ЙЕЛO!®ЃН!«‡ОР#€«“«€ТУ#Є«ТФ#ЄЈХ\"‰;«‰ЧШЩ!\"Є„ЪЫ\")Є‰ЬЭЮЯа!\"\")‡" [exclam evi-input-map-map evi-map-map map key 1 0 35 evi-is-num ex-find-fkey "f" nil "kp-f" vectorp define-key evi-top-level-map evi-top-level definition evi-define-key (input-map) (map) lookup-key mapping message "%s" evi-pretty-string evi-error "No map for `%s'" evi-display-list-and-prompt "*Mappings*" mapcar evi-pretty-binding evi-keymap-bindings] 7] ex-mark #[(address marker) "ЉА	`\"€\nД I)‡" [ex-goto-address address evi-registers marker point-marker] 3] ex-move #[(from-addresses to-address) "А	ВГ#€`{ЕЉЖ!€`)!	`W«ѓК €`|€b€	c€Г‰“*‡" [ex-define-region from-addresses t nil evi-mark copy-marker ex-goto-line-after-address to-address to-mark text evi-exchange-point-and-mark] 4] ex-preserve #[nil "А ‡" [do-auto-save] 1] ex-print #[(addresses) "ЉА	ВГ#€`{ЕЖ!q€¬ѓИ €Вc)‡" [ex-define-region addresses t nil evi-mark get-buffer-create "*Print*" ex-printed erase-buffer] 4] ex-next #[(exclam files) "А	\nГ#‡" [ex-next-internal exclam files nil] 4] ex-next-other-window #[(exclam files) "А	\nГ#‡" [ex-next-internal exclam files t] 4] ex-next-internal #[(exclam files other-window) "«­БВ\"‰­ЈДp!«‡З@!€Є…И@!€Дp!=¬…Й!\nЛ ))‡МН!‰«њ	\nПp!€«‡З!€Є…И!€Л ЄѓРС!)‡" [files mapcar find-file-noselect next-buffers get-buffer prev-buf other-window switch-to-buffer-other-window switch-to-buffer buffer-file-name evi-prev-file evi evi-next-file-buffer t next-buffer bury-buffer message "All files are displayed"] 4] evi-next-file-buffer #[(not-in-window) "А AБ‰«–@«…Е\n!¬…Ж\n!¬†A‰¬j*‰­ѓ@)‡" [buffer-list nil buffer list not-in-window get-buffer-window buffer-file-name rest-of-list] 3] ex-put #[(address register-struct) "А	!€\n@H‰«ЇЉAЕ=«ЊЖ@G!€З@G!€AЕ=«‡И@!€Є„@c€AЙ=­‚Кc)Є‘«ЉМНО@!\"ЄѓМП!)‡" [ex-goto-line-after-address address evi-registers register-struct register rectangle newline backward-char insert-rectangle chars 10 evi-register-spec message "Nothing in register %c" evi-register-name "No text to put"] 5] evi-list-apply #[(func l) "­Љ	@!€В	A\"‡" [l func evi-list-apply] 3] ex-quit #[(discard) "	!‡" [evi-quit-function discard] 2] evi-emacs-version emacs19 window-system ex-quit-internal #[(discard) "А GБU«„В!‡Д ‡" [frame-list 1 ex-really-quit discard delete-frame] 2] lucid19 #[(discard) "А GБU«„В!‡Д ‡" [screen-list 1 ex-really-quit discard delete-screen] 2] #[(discard) "А	!‡" [ex-really-quit discard] 2]] 2)
(byte-code "АБM€ВГM€ДЕM€ЖЗM€ИЙM€КЛM€МНM€ОПM€РСM€ТУM€ФХM€ЦЧ!¬ѓШЩЪM€ЫЬM€ЭЮM€ЯаM€бвM€гдM€ежM€зиM€)к=«Њ+м=«†ноM€Є„нпM€рсM€туM€фхM€цчM€шщM€ъыM€ьэM€юяM€Ѓ@ ЃA M€ЃB ЃC M€ЃD ЃE M€ЃF ЃG M€ЃH ЃI M€ЃJ ЃK M€ЃL ЃM M‡" [ex-really-quit #[(discard) "«€БВГ \"€ЄЎДЕГ \"‰«–A¬‡@p=¬†ЗИ!€Є„ЗЙ!€)К ‡" [discard evi-list-apply #[(buf) "А	!­…	q€В ‡" [buffer-file-name buf delete-auto-save-file-if-necessary] 2] buffer-list evi-filter #[(buf) "А	!ВHД	!­ЉЕU?­„ЖU?)‡" [buffer-name buf 0 c buffer-modified-p 32 42] 2] modified-buffers evi-error "Modified buffers exist (use :quit! to override, :Wq to save buffers and quit)" "No write since last change (use :quit! to override)" kill-emacs] 4] ex-read #[(address shell-command arg) "А	!€\n«”\nГ=«„ДЕ!‡ЖИГИЙ\n&‡К!‡" [ex-goto-line-after-address address shell-command t evi-error "Incomplete shell escape" call-process shell-file-name nil "-c" evi-insert-file arg] 7] evi-insert-file #[(filename) "АБ!«ЊВc€`S`|€	AAГ!‡" [boundp buffer-undo-list 64 insert-file-contents filename] 2] ex-recover #[(exclam file-name) "¬–	‰«Ќ\n¬ЋГ «ЉДЕ!€Є„ДЖ!€З!€ИЙ!€КЛ!€М ‡" [file-name buffer-file-name exclam buffer-modified-p evi-error "No write since last change (use :recover! to override)" "Buffer has no file associated with it" recover-file auto-save-mode 1 message "Auto save mode on" evi] 2] ex-set #[(settings) "«„Б!‡ВГДЖ#!‡" [settings ex-set-internal message mapconcat evi-get-option evi-set-options " "] 5] ex-set-internal #[(settings) "­ё@‰@	A\nД«ђЕЖЗИЙК\"\"МН$€Є•Ё«ЊОП\n!!€ОР!€Є…С\n\"€ТA!+‡" [settings setting name value "all" evi-display-list-and-prompt "*Settings*" mapcar #[(x) "А	@@!‡" [evi-get-option x] 2] evi-filter #[(x) "AA‡" [x] 1] evi-option-list nil half princ evi-get-option " " evi-set-option ex-set-internal] 8] ex-scan-settings #[nil "АБw€БГД!«ї`ЖБw€`{)ГИ!«ЏЙu€КБЛ\"B\nBЄГМ!«ЊЙu€НB\nBЄ‡ОB\nB)АБw€Є<ГП!«ђРС\n«€ТУ\n@@\"ЄЃФ\"€\n)‡" [" 	" nil settings looking-at "[A-Za-z-]" start "A-Za-z-" option "=" 1 ex-scan-quoted " 	|\n" "?" 63 t "[^|\n]" evi-error "Invalid setting%s" format " after `%s'" ""] 5] evi-get-option #[(option) "А	\n\"®›\nGГV­•\nДHЕU­Ћ\nЖHЗU­‡А	\nГИO\"‰	A@‰\nИ=«‡ЛМ\n\"‚ї 	@ОПРЏ	AAИ=«•¬„«‡ЛФ\"ЄиХPЄв\nЦ=«ђЧ=«„ЄТШPЄМ\nЩ=«‘Ъ«†Ы!ЄЃЬQЄµ\nЭ=«‘Ъ«†Ю!ЄЃЬQЄћ\nЯ=«‘Ъ«†а!ЄЃЬQЄ‡Лбв\n!\"**‡" [evi-search-option-list evi-option-list option 2 0 110 1 111 nil option-struct type evi-error "Invalid option `%s'" long-name code (byte-code "А	AA!‡" [eval option-struct] 2) ((error)) value evi-interactive evi-report-unsupported-options "Option `%s' not implemented" "=<ignored>" bool t "no" number "=" int-to-string "<undef>" string evi-pretty-string char evi-pretty-char "Internal Error: Invalid type `%s'" prin1-to-string] 6] evi-set-option #[(option value) "А	\n\"®ћ\nGГV­\nДHЕU­‘\nЖHЗU­ЉА	\nГИO\"И	‰\nA@‰И=«€МН\n\"€‚Ц \nAAИ=«“¬…ѓЦ МР\n@\"€‚Ц С=«ђ	;«шМТ\n‰#€И\nЄнУ=«	;«€Ф	!	ЄЪМХ\n‰#€И\nЄПЦ=«’	;¬ДМЧ\n‰#€\nИL€Є·Ш=«©	;«™	GЖU«€	ДH	ЄќМЩ\n\"€И\nЄ“МЪ\n‰#€И\nЄ€ЫЬЭ!\"€\nAA«ї\nAA	L€И‰ ‰!«•!@‰ \nљ‰¬€!A‰!¬k+¬ђ«€\nC¤€Є„\nCв\nAA!­‡\nAA	!*‡" [evi-search-option-list evi-option-list option 2 0 110 1 111 nil value option-struct type evi-warning "Invalid option `%s'" evi-interactive evi-report-unsupported-options "Option `%s' not implemented" bool "Only %s or no%s allowed" number string-to-int "Use %s=<number> to set, or %s? to query" string "Use %s=<string> to set, or %s? to query" char "Only single character can be assigned to `%s'" "Use %s=<character> to set, or %s? to query" evi-error "Internal Error: Invalid type `%s'" prin1-to-string evi-set-options found opt list fboundp] 6] evi-search-option-list #[(option-list option) "Б‰‰«ќ@‰@Ж\"­…@AB)‰¬†A‰¬c\n+‡" [option-list nil found option-struct list option-strings evi-string-list-match option] 4] evi-string-list-match #[(string-list string) "­Ќ	@«‚В‡ГA	\"‡" [string-list string t evi-string-list-match] 3] boundp evi-shell-mode-hook nil evi-shell-mode-setup #[nil "АБ!€ВГ!ДL€ВЕ!ЖL€ЕЖ!€ВЗ!ИL€Й €\n‰‡" [run-hooks evi-shell-mode-hook make-local-variable evi-insert-mode-local-bindings t evi-wrap-margin 0 evi-emacs-local-suppress-key-list (27) evi evi-shell-map evi-buffer-local-vi-map] 2] evi-shell-send-input #[nil "АБ!«’В €Д=­ЊЕЖp!!b€З ‡И ‡" [fboundp comint-mode comint-send-input evi-mode vi process-mark get-buffer-process evi-insert shell-send-input] 3 nil nil] ex-shell #[nil "АБ!­Ѓ	ВД €Е *‡" [boundp shell-mode-hook evi-shell-mode-setup evi-shell-mode-hook shell evi-insert] 2] ex-gdb #[(program-name) "АБ!­Ѓ	ВД!€Ж *‡" [boundp gdb-mode-hook evi-shell-mode-setup evi-shell-mode-hook gdb program-name evi-insert] 2] ex-source-file #[(file-name) "А	!«ђВ	!«†ГД	D!‡ЕЖ	\"‡ЕЗ	\"‡" [file-exists-p file-name file-readable-p ex-recurse evi-do-ex-command-file evi-warning "Unable to read file `%s'" "No such file or directory: %s"] 3] ex-split #[(file-name) "А ‡" [split-window-vertically] 1] ex-substitute #[(addresses pattern replacement global query) "`Б В`Г	КВГ#€«ЎGНU«”«†Є¦b€ПР!€ЄњЄ–«ЉЄ€b€ПУ!€¬ѓФНHХU¬€НHЦU«ѓГШ €`ZЪV‰«„ЫЬ!€Г“€`W«ўЭВ#«™Н”b€Г`Ю\"€¬]Гy€ЄX«„Ыа!€Г‰“€b€­…Пб\".‡" [evi-ignore-case make-marker t nil large-region end-pos none-found end-line-mark start case-fold-search ex-define-region addresses pattern 0 ex-previous-re evi-error "No previous regular expression" ex-previous-replacement replacement "No previous substitution" "" 94 36 global evi-exchange-point-and-mark evi-mark 5000 message "running substitute command... " re-search-forward ex-replace-match query "running substitute command... complete." "No occurance of pattern `%s' found"] 7] ex-substitute-again #[(addresses) "А	В‰Г‰%‡" [ex-substitute addresses "" nil] 6] evi-emacs-version emacs19 window-system x evi-hilight-region #[(start end) "А	\nT\"ДЕЖ#€ЗИ!€Й!)‡" [make-overlay start end ov overlay-put face region sit-for 99999 delete-overlay] 4] #[(start end) "`АБb€\n«™ЖЗ!¬…А‰Єt«ѓЄ‚b€?Єdb+‡" [nil t going flag here start sit-for 1 end] 4] ex-replace-match #[(query replacement) "«ЗБ”Б•В¬±ЖЗ!€ИS\"€Й ‰КU«ѓЛ €МU¬cНU¬^ОU¬YПU¬TР €В‰«OМU®ѓОU+«‡СУВ#‡Б•b‡" [query 0 nil answer end beginning message "replace? (y or n)" evi-hilight-region evi-read-char 3 keyboard-quit 121 110 89 78 beep replace-match replacement t] 5] ex-tag #[(tag) "«„Є‡	¬„ВГ!€Д	!€Е ‡" [tag ex-tag evi-error "No previous tag specified" find-tag evi] 2] ex-unabbrev #[(abbrev) "Б‰­ў@@«’\n«‡\nAЎ€ЄѓAБ‰ЄeA‰¬_Б*‡" [evi-abbrev-list nil alist2 alist abbrev] 3] ex-unmap #[(exclam key) "«†БВД#‡БЕД#‡" [exclam evi-define-key (input-map) key nil (map)] 4] ex-evi-version #[nil "А	!‡" [message evi-version] 2] ex-write #[(addresses exclam shell-command append file-arg) "«ћБ=«„ВГ!‡ЉДБ‰#€`)BИЙC\")‡\n®‚‰НHОU¬‡П P¬Ў«—СТ!«‹Т!Т!Є…¬†У!¬»¬€\n¬„¬ЄЉДБ‰#€\n¬“eU«Ќ`dU«€ХБ!€Ц Є‰Ч`$)Є€ВЩ!ЄѓВЪ!)‡" [shell-command t evi-error "Incomplete shell escape" ex-define-region addresses evi-mark region evi-display-and-prompt #[(cmd) "А	@	A\n#€Д=«‘ЕЖ!­ЌЉЖq€Зed\"ИV)‡Й‡" [shell-command-on-region region cmd evi-emacs-version emacs19 get-buffer "*Shell Command Output*" count-lines 1 t] 4] file-arg buffer-file-name file-name 0 47 evi-current-directory exclam fboundp file-truename file-exists-p evi-buffer-read-only set-buffer-modified-p basic-save-buffer write-region append "File read-only (use :write! to attempt override)" "File exists, use :write! to override"] 6] ex-write-all-buffers #[(quietly) "А	!‡" [save-some-buffers quietly] 2] ex-write-kill #[nil "АБ!€В €ГД‰\"‡" [set-buffer-modified-p t basic-save-buffer ex-kill-buffer nil] 3] ex-write-quit #[(discard) "АБ!€В €Г!‡" [set-buffer-modified-p t basic-save-buffer ex-quit discard] 2] ex-write-all-and-quit #[(quietly) "А	В\"€ГВ!‡" [save-some-buffers quietly t ex-quit] 3] ex-yank #[(addresses register-struct) "ЉВДЕ#€ЖЕ!*‡" [register-struct evi-register-spec ex-define-region addresses t nil evi-copy-region-to-registers] 4] ex-shell-command #[(addresses background shell-command) "Б«‰\n®ѓГД!Є‚«ўЖ ИЙК!!€Л €Н €ОКПР%€СТ !)‡@@@¬ђЉЙК!q€Л €)ФХC\"‡ЦЧШ#€Щ`Ч$‡" [shell-command "!" evi-last-shell-command evi-error "No previous shell command to substitute for !" background evi-current-directory curdir switch-to-buffer-other-window get-buffer-create "*Shell Command Output*" evi default-directory erase-buffer start-process "sh" "-c" select-window previous-window addresses evi-display-and-prompt #[(cmd) "А	!€\nГ=«‘ДЕ!­ЌЉЕq€Жed\"ЗV)‡И‡" [shell-command cmd evi-emacs-version emacs19 get-buffer "*Shell Command Output*" count-lines 1 t] 3] ex-define-region t nil shell-command-on-region evi-mark] 6] ex-shift-right #[(addresses) "А	ВГ#€Д`#€Зy€ИГw‡" [ex-define-region addresses t nil indent-rigidly evi-mark evi-shift-width -1 " 	"] 4] ex-shift-left #[(addresses) "А	ВГ#€Д`[#€Зy€ИГw‡" [ex-define-region addresses t nil indent-rigidly evi-mark evi-shift-width -1 " 	"] 4] ex-null #[(addresses) "А	ВГ#€Дy€ЕГw‡" [ex-define-region addresses t nil -1 " 	"] 4]] 2)
(defvar evi-evi-list "evi-list@brandx.rain.com" "\
Address of site maintaining mailing list for Evi.")
(defvar evi-bug-address "jlewis@cse.ogi.edu" "\
Address of who maintains evi.")
(byte-code "АБM€ВГM€ДЕM€ЖЗM€ИЙM€КЛ!‡" [ex-mail #[(to) "АБ\n\"€Г €ДЕ!€Ж ‡" [mail nil to evi message "Type `:send' to send message.  Type `:kill' to abort." evi-insert] 3] ex-mail-list #[(subject) "АБ\n#€Д €db€ЕЗИ Й±€КЛ!€М ‡" [mail nil evi-evi-list subject evi "Using " evi-version " (" emacs-version ").\n\n" message "Type `:send' to send message.  Type `:kill' to abort." evi-insert] 5] ex-elisp-bind #[(input key definition) "А	«ѓВЄЃГЕ!@#‡" [evi-define-key input (insert replace ex) (vi) key read-from-string definition] 5] ex-report-bug #[(subject) "АБ\n#€Д €db€ЕЗИ Й±€КЛ!€М ‡" [mail nil evi-bug-address subject evi "In " evi-version " (" emacs-version ")\n\n" message "Type `:send' to send bug report.  Type `:kill' to abort." evi-insert] 5] ex-send-mail #[(exclam) "А €	­„ВГД\"‡" [mail-send exclam ex-kill-buffer t nil] 3] provide evi] 2)