;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:11:00 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/emulation/viper-ex.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\301\302!\210\210\303\304!\210\305\302\306\307\310\311\312\313&\207" [noninteractive provide viper-ex require viper-util custom-declare-group nil "Viper support for Ex commands." :prefix "ex-" :group viper] 8)
(defconst viper-ex-work-buf-name " *ex-working-space*")
(defvar viper-ex-work-buf (get-buffer-create viper-ex-work-buf-name))
(defconst viper-ex-tmp-buf-name " *ex-tmp*")
(defconst viper-ex-print-buf-name " *ex-print*")
(defvar viper-ex-print-buf (get-buffer-create viper-ex-print-buf-name))
(defalias 'ex-cmd-obsolete #[(name) "\301\302\"\207" [name error "`%s': Obsolete command, not supported by Viper"] 3])
(defalias 'ex-cmd-not-yet #[(name) "\301\302\"\207" [name error "`%s': Command not implemented in Viper"] 3])
(defconst ex-token-alist '(("!" (ex-command)) ("&" (ex-substitute t)) ("=" (ex-line-no)) (">" (ex-line "right")) ("<" (ex-line "left")) ("Buffer" (if ex-cycle-other-window (viper-switch-to-buffer) (viper-switch-to-buffer-other-window))) ("Next" (ex-next (not ex-cycle-other-window))) ("PreviousRelatedFile" (ex-next-related-buffer -1)) ("RelatedFile" (ex-next-related-buffer 1)) ("W" "Write") ("WWrite" (save-some-buffers t)) ("Write" (save-some-buffers)) ("a" "append") ("args" (ex-args)) ("buffer" (if ex-cycle-other-window (viper-switch-to-buffer-other-window) (viper-switch-to-buffer))) ("c" "change") ("ch" "chdir") ("cd" (ex-cd)) ("chdir" (ex-cd)) ("copy" (ex-copy nil)) ("customize" (customize-group "viper")) ("delete" (ex-delete)) ("edit" (ex-edit)) ("file" (ex-set-visited-file-name)) ("g" "global") ("global" (ex-global nil) is-mashed) ("goto" (ex-goto)) ("help" (ex-help)) ("join" (ex-line "join")) ("k" (ex-mark) one-letter) ("kmark" (ex-mark)) ("m" "move") ("make" (ex-compile)) ("map" (ex-map)) ("mark" (ex-mark)) ("move" (ex-copy t)) ("next" (ex-next ex-cycle-other-window)) ("p" "print") ("preserve" (ex-preserve)) ("print" (ex-print)) ("put" (ex-put)) ("pwd" (ex-pwd)) ("quit" (ex-quit)) ("r" "read") ("re" "read") ("read" (ex-read)) ("recover" (ex-recover)) ("rewind" (ex-rewind)) ("s" "substitute") ("su" "substitute") ("sub" "substitute") ("set" (ex-set)) ("shell" (ex-shell)) ("source" (ex-source)) ("stop" (suspend-emacs)) ("sr" (ex-substitute t t)) ("submitReport" (viper-submit-report)) ("substitute" (ex-substitute) is-mashed) ("suspend" (suspend-emacs)) ("t" "transfer") ("tag" (ex-tag)) ("transfer" (ex-copy nil)) ("u" "undo") ("un" "undo") ("undo" (viper-undo)) ("unmap" (ex-unmap)) ("v" "vglobal") ("version" (viper-version)) ("vglobal" (ex-global t) is-mashed) ("visual" (ex-edit)) ("w" "write") ("wq" (ex-write t)) ("write" (ex-write nil)) ("xit" (ex-write t)) ("yank" (ex-yank)) ("~" (ex-substitute t t)) ("append" (ex-cmd-obsolete "append")) ("change" (ex-cmd-obsolete "change")) ("insert" (ex-cmd-obsolete "insert")) ("open" (ex-cmd-obsolete "open")) ("list" (ex-cmd-not-yet "list")) ("z" (ex-cmd-not-yet "z")) ("#" (ex-cmd-not-yet "#")) ("abbreviate" (error "`%s': Vi abbreviations are obsolete.  Use the more powerful Emacs abbrevs" ex-token)) ("unabbreviate" (error "`%s': Vi abbreviations are obsolete.  Use the more powerful Emacs abbrevs" ex-token))))
(defalias 'ex-cmd-is-mashed-with-args #[(cmd) "AA@\301=\205\n\207" [cmd is-mashed] 2])
(defalias 'ex-cmd-is-one-letter #[(cmd) "AA@\301=\205\n\207" [cmd one-letter] 2])
(defalias 'ex-cmd-execute #[(cmd) "\302\211A@)!\207" [cmd x eval] 3])
(defalias 'ex-splice-args-in-1-letr-cmd #[(key list) "\304\305\306\307O	\"!\211\205(\310\n\211A@)\307GW\205\"\307\311OC\"\nAA@E)\207" [key list oneletter x ex-cmd-is-one-letter assoc 0 1 append nil] 7])
(defalias 'ex-cmd-assoc #[(key list) "\305	\"\306\211\307=\203\310	\"\2025;\203'\311	\"\2065\310	\"\2025\306=\2034\311	\"\2025\306\211\211A@);\203J\312\n\211A@)	\"\n*\207" [key list result entry x try-completion nil t assoc ex-splice-args-in-1-letr-cmd ex-cmd-assoc] 4])
(defconst ex-variable-alist '(("wrapscan") ("ws") ("wrapmargin") ("wm") ("tabstop-global") ("ts-g") ("tabstop") ("ts") ("showmatch") ("sm") ("shiftwidth") ("sw") ("shell") ("sh") ("readonly") ("ro") ("nowrapscan") ("nows") ("noshowmatch") ("nosm") ("noreadonly") ("noro") ("nomagic") ("noma") ("noignorecase") ("noic") ("noautoindent-global") ("noai-g") ("noautoindent") ("noai") ("magic") ("ma") ("ignorecase") ("ic") ("autoindent-global") ("ai-g") ("autoindent") ("ai") ("all")))
(defvar ex-token nil)
(defvar ex-token-type nil)
(defvar ex-addresses nil)
(defvar ex-flag nil)
(defvar ex-buffer nil)
(defvar ex-count nil)
(defvar ex-g-flag nil)
(defvar ex-g-variant nil)
(defvar ex-g-marks nil)
(defvar ex-reg-exp nil)
(defvar ex-repl nil)
(defvar ex-g-pat nil)
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\313\306\307&\210\300\314\315\316\304\317\306\307&\210\300\320\321\322\304\323\306\307&\207" [custom-declare-variable ex-unix-type-shell (let ((case-fold-search t)) (and (stringp shell-file-name) (string-match (concat "\\(" "csh$\\|csh.exe$" "\\|" "ksh$\\|ksh.exe$" "\\|" "^sh$\\|sh.exe$" "\\|" "[^a-z]sh$\\|[^a-z]sh.exe$" "\\|" "bash$\\|bash.exe$" "\\)") shell-file-name))) "Is the user using a unix-type shell under a non-OS?" :type boolean :group viper-ex ex-unix-type-shell-options (let ((case-fold-search t)) (if ex-unix-type-shell (cond ((string-match "\\(csh$\\|csh.exe$\\)" shell-file-name) "-f") ((string-match "\\(bash$\\|bash.exe$\\)" shell-file-name) "-noprofile")))) "Options to pass to the Unix-style shell.\nDon't put `-c' here, as it is added automatically." (choice (const nil) string) ex-compile-command "make" "The command to run when the user types :make." string viper-glob-function (cond (ex-unix-type-shell 'viper-glob-unix-files) (viper-ms-style-os-p 'viper-glob-mswindows-files) (t 'viper-glob-unix-files)) "Expand the file spec containing wildcard symbols.\nThe default tries to set this variable to work with Unix, Windows,\nand OS/2.\n\nHowever, if it doesn't work right for some types of Unix shells or some OS,\nthe user should supply the appropriate function and set this variable to the\ncorresponding function symbol." symbol] 8)
(defvar ex-tag nil)
(defvar ex-file nil)
(defvar ex-variant nil)
(defvar ex-offset nil)
(defvar ex-append nil)
(defvar ex-cmdfile nil)
(defvar ex-cmdfile-args "")
(defvar viper-keep-reading-filename nil)
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\307&\207" [custom-declare-variable ex-cycle-other-window t "If t, :n and :b cycles through files and buffers in other window.\nThen :N and :B cycles in the current window.  If nil, this behavior is\nreversed." :type boolean :group viper-ex ex-cycle-through-non-files nil "Cycle through *scratch* and other buffers that don't visit any file."] 8)
(defvar viper-ex-last-shell-com nil)
(defvar viper-incomplete-ex-cmd nil)
(defvar viper-last-ex-prompt "")
(defalias 'viper-get-ex-com-subr #[nil "\305\211\306`!\210\307\310!\210\311`\312\313!{\314\f\"\211\203$	@\211\202'\315\211*\207" [case-fold-search cmd ex-token-type ex-token ex-token-alist nil set-mark re-search-forward "[a-zA-Z][a-zA-Z]*" command mark t ex-cmd-assoc non-command] 4])
(defalias 'viper-get-ex-token #[nil "\306 \307\216\310	!\211q\210\311\312w\210\313\314\315!\203#\316\317g!\320u\202\314\321!\203.\322 \202\314\323!\203=\320u\210\324\211\202\314\325!\203m\326`!\210\327\330!\210\f\331=\203U\332\202`\f\333=\203_\334\202`\335\336`\337\313!{!\211\202\314\340!\203|\320u\210\341\211\202\314\342!\203\213\320u\210\343\211\202\314\344!\203\302\314\345!\204\235\314\346!\203\254\320u\210\347c\210\350u\210\331\211\202\314\351!\203\273\320u\210\331\211\202\352@!\202\314\353!\203\371\314\354!\204\324\314\355!\203\343\320u\210\347c\210\350u\210\333\211\202\314\356!\203\362\320u\210\333\211\202\352@!\202\314\357!\203K
\320u\210\326`!\210\313Al\2042
A\2032
\327\360!\210\361B\212\362B\312\313#)\205(
`\363\225U)\204	
\312A\202	
)\350u\210`\337\313!{\314\357!\203E
\320u\210\364\211\202\314\365!\203\236
\320u\210\326`!\210\313Al\204\220
A\203\220
\327\366!\210\367B\212\362B\312\313#)\205z
`\363\225U)\204\201
\312A\350u\210\314\370!\204[
\320u\210\202[
)\371`S\337\313!{\211\202\314\372!\203\255
\320u\210\373\211\202\314\374!\203\274
\320u\210\375\211\202\314\376!\203\315
\316\317g!\320u\202\314\377!\203\373
\201D\320u\210\314\377!\203\345
\312\202\366
\314\321!\203\360
g\202\366
\352\201E!\210\320u\202\314\370!\203
\201F\201G\211\202\352C!+\207" [#1=#:wconfig viper-ex-work-buf-name viper-ex-work-buf case-fold-search ex-token-type ex-token current-window-configuration ((set-window-configuration #1#)) get-buffer-create " 	|" nil t looking-at "#" command char-to-string 1 "[a-z]" viper-get-ex-com-subr "\\." dot "[0-9]" set-mark re-search-forward "[0-9]*" plus add-number minus sub-number abs-number string-to-number mark "\\$" end "%" whole "+" "+[-+]" "+[\n|]" "1" -1 "+[0-9]" error "-" "-[-+]" "-[\n|]" "-[0-9]" "/" "[^/]*\\(/\\|\n\\)" "[^\\\\]\\(\\\\\\\\\\)*\\\\/" re-search-backward 0 search-forward "\\?" "[^\\?]*\\(\\?\\|\n\\)" "[^\\\\]\\(\\\\\\\\\\)*\\\\\\?" "\n" search-backward "," comma ";" semi-colon "[!=><&~]" "'" viper-BadAddress cont str viper-BadExCommand goto-mark "Marks are ' and a-z" end-mark "goto"] 5])
(defalias 'ex-cmd-read-exit #[nil "\306\307\310\311\312 \313\216\314
!\211q\210db\210*\212\315\316\306#)\205+`\317\225U)\2034\320 \202l	\212\315\316\306#)\205F`\317\225U)\203O\321c\202l\n\212\315\316\306#)\205a`\317\225U)\203j\320 \202l\321c+\207" [viper-incomplete-ex-cmd stay-regex quit-regex2 quit-regex1 #1=#:wconfig viper-ex-work-buf-name t "\\(set[ 	]*\\|edit[ 	]*\\|[nN]ext[ 	]*\\|unm[ 	]*\\|^[ 	]*rep\\)" "[a-zA-Z][ 	]*\\(!\\|>>\\|\\+[0-9]+\\)*[ 	]*$" "\\(^[ 	]*$\\|[?/].*\\|[ktgjmsz][ 	]*$\\|^[ 	]*ab.*\\|tr[ansfer 	]*\\|sr[ 	]*\\|mo.*\\|^[ 	]*k?ma[^p]*\\|^[ 	]*fi.*\\|v?gl.*\\|[vg][ 	]*$\\|jo.*\\|^[ 	]*ta.*\\|^[ 	]*una.*\\|^[ 	]*\\([`'][a-z]\\|[.,%]\\)*[ 	]*su.*\\|^[ 	]*\\([`'][a-z]\\|[.,%]\\)*[ 	]*s[^a-z].*\\|['`][a-z][ 	]*\\|\\(r\\|re\\|rea\\|read\\)[ 	]*!\\|\\(w\\|wr\\|wri\\|writ.?\\)[ 	]+!\\|![ 	]*[a-zA-Z].*\\)!*" current-window-configuration ((set-window-configuration #1#)) get-buffer-create re-search-backward nil 0 exit-minibuffer " " viper-ex-work-buf str] 5 nil nil])
(defalias 'ex-cmd-complete #[nil "\306\211\211\211\211\212\307\306x`)\310U\204@\311\212\312
\306\313#)\205(`\310\225U)\204@\314\212\312
\306\313#)\205<`\310\225U)\203\254\315\212\312
\306\313#)\205P`\310\225U)\206k\311\212\312
\306\313#)\205d`\310\225U)\206k\316\317!?\205&
!\"r\320\321!q\210p\322 \210\"!\306\211#$\313\211%\313&'\323 \210\324\325!\210+\211()\326\327*!!\330(!\210+\202&
\f`{\331	*\"\211\313=\203\302\332\333!\202&
\306=\203\316\332\334!\202&
\fb\210`d|\210c\210\306+\335\336P*\")\nG\337V\205&
!,r\320\321!q\210p\322 \210,!\306\211#$\313\211%\313&'\323 \210\324\325!\210+\211-)\326\327\340\n!!!\330-!\210+-\207" [completion-result string-to-complete compl-list dist save-pos str nil "[a-zA-Z!=>&~]" 0 "\\([ 	]*['`][ 	]*[a-z]*\\)" re-search-backward t "^[ 	]*[a-zA-Z!=>&~][ 	]*[/?]*[ 	]+[a-zA-Z!=>&~]+" "[a-zA-Z!=>&~][ 	]*[/?]*[ 	]*" looking-at "[^ 	\n
]" get-buffer-create "*Completions*" kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook display-completion-list viper-alist-to-list internal-temp-output-buffer-show try-completion viper-tmp-insert-at-eob " (Sole completion)" " (No match)" viper-filter-alist "^" 1 reverse default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output ex-token-alist case-fold-search #3=#:old-dir #4=#:buf] 6 nil nil])
(defalias 'viper-ex #[(arg &optional string) "\204\306\211\307!\306\310,`-\306\211./\306\21101\306\21123\3064\3115\f\"\2106\203p\312\313\310!`\"\210`\313\310!V\203N\313\310!0`1\202V\313\310!1`0\2120b\210\314e`\"T.\315.\31401\"\316#/).\203~\317\320./#2\203\2112P\202\240\321\3222\3232?\205\227@\f2\205\236\324&4\325 7\326\216\3278!\2119q\210ed|\2104\330\261\210eb\210*\306\211:;,\205\330
\331 \210:\332>\203G

\203\336
;B;\333 \210\334<=\"\211>\204\365\335\336<?#\210\337>!\210\340>!\204
\341>!\203
\306,\202C
\212\325 @\342\216\3278!\2119q\210\343\306w\210\344\345!\203.
\346u\210\202B
\344\330!\203:
\306,\202B
\335\336<A#\210+)\202\321
:\347=\203Y
\335\336<?#\210\202\321
:\350=\203y
\306;\203n
d;B\202t
de;BB;\202\321
:\351=\203\232
3\350=\203\211
e
\204\221
`\202\222

;B;\202\321
:\352=\203\302
3\350=\203\252
e
\203\261

-
\204\271
`\202\272

;B;\202\321
\353
-\"\211B\203\320
B):3\202\305.\207" [string ex-g-flag ex-g-variant minibuffer-local-map map address nil copy-keymap t viper-add-keymap viper-enlarge-region mark count-lines + -1 format "%d,%d" viper-read-string-with-history ":" viper-ex-history " [Type command to execute on current region]" current-window-configuration ((set-window-configuration #1=#:wconfig)) get-buffer-create "\n" viper-get-ex-token (command end-mark) viper-deactivate-mark ex-cmd-assoc error "`%s': %s" ex-cmd-execute ex-cmd-is-mashed-with-args ex-cmd-is-one-letter ((set-window-configuration #2=#:wconfig)) " 	" looking-at "|" 1 non-command whole comma semi-colon viper-get-ex-address-subr cont dot reg-beg-line reg-end-line reg-beg reg-end initial-str prev-token-type com-str viper-ex-cmd-map arg #1# viper-ex-work-buf-name viper-ex-work-buf ex-token-type ex-addresses ex-token ex-token-alist cmd viper-BadExCommand #2# viper-SpuriousText ans] 8 nil "P"])
(defalias 'viper-get-ex-pat #[nil "\306 \307\216\310	!\211q\210\311\312w\210\313\314!\203#?\f?\315u\210\311\312w\210g\316\317\320\321
\"\"\2036\322\323!\210\202@
\324U\203@\322\325!\210\313\326!\203\316\315u\210\327`!\210\330%m\204\251%\203\251\331\320\332
\211#\312\330#\204v&\333\235\203s\322\334!\210\202vdb\210\320\335
\"'\212\336'\312\330#)\205\213`\337\225U)\204\225\312%\202P\340\341!\210
c\210l\203P\312\211%u\210\202P)\342\330!`U\203\266\343\202\274`S\342\330!{&\344u\210l\203\321
c\210\344u\210\202\321\312&
+\207" [#1=#:wconfig viper-ex-work-buf-name viper-ex-work-buf ex-g-variant ex-g-flag c current-window-configuration ((set-window-configuration #1#)) get-buffer-create " 	" nil looking-at "!" 1 string-match "[0-9A-Za-z]" format "%c" error "Global regexp must be inside matching non-alphanumeric chars" 63 "`?' is not an allowed pattern delimiter here" "[^\\\\\n]" set-mark t re-search-forward "[^%c]*%c" ("global" "vglobal") "Missing closing delimiter for global regexp" "[^\\\\]\\(\\\\\\\\\\)*\\\\%c" re-search-backward 0 delete-char -2 mark "" -1 cont ex-token str] 6])
(defalias 'viper-get-ex-opt-gc #[(c) "\305 \306\216\307	!\211q\210\310\311\312\"!\203\313u\210\314\315w\210\310\316!\203+\316\313u\210\317\202;\310\320!\203:\320\313u\210\317\202;\315*\207" [#1=#:wconfig viper-ex-work-buf-name viper-ex-work-buf c ex-token current-window-configuration ((set-window-configuration #1#)) get-buffer-create looking-at format "%c" 1 " 	" nil "g" t "c"] 5])
(defalias 'viper-default-ex-addresses #[(&optional whole-flag) "\204	\203deD\202``D\211\207A?\205 @B\211\207" [ex-addresses whole-flag] 2])
(defalias 'viper-get-ex-address #[nil "\306 \307\310\311\203e\312 \210\f\313=\203+\n\314\235\203$\307\311\211\202\n\315\316!\210\202	\f\317=\2037\311\211\202\n\f\320=\203D\315\321!\210\202	\f\322=\203S\315\323\n
#\210\202	\324	\306 \"\211\203a)\202		*\207" [cont address ex-token ex-flag ex-token-type viper-SpuriousText point-marker t "" nil viper-get-ex-token command ("print" "list" "#") error "Address expected in this Ex command" end-mark whole "Trailing address expected" comma "`%s': %s" viper-get-ex-address-subr ans] 5])
(defalias 'viper-get-ex-address-subr #[(old-address dot) "\305	\204\n\302=\203\n\202\307\306=\2032\212	b\210	\307U\203(\fS\202)\fy\210\310 )\202\307\311=\203G\212	b\210\f[y\210\310 )\202\307\312=\203g\212eb\210\f\307U\203\\\307\202c\fSy\210\310 )\202\307\313=\203y\212dSb\210\310 )\202\307\314=\204\307\315=\204\307\316=\203\227\212\317\320!\210\310 )\202\307\321=\203\251\212\317\305!\210\310 )\202\307\322=\203\307\212\f\204\272\323 \210\202\303\324\f\325ZT\326\"b\210\310 ))\207" [address old-address dot ex-token-type ex-token nil add-number 0 point-marker sub-number abs-number end plus minus search-forward ex-search-address t search-backward goto-mark exchange-point-and-mark viper-register-to-point 97 enforce-buffer] 3])
(defalias 'ex-search-address #[(forward) "\304\230\203	\204\305\n!\210\202	\202\203#\306y\210\307!\207\310y\210\311!\207" [ex-token viper-s-string viper-NoPrevSearch forward "" error 1 re-search-forward -1 re-search-backward] 2])
(defalias 'viper-get-ex-buffer #[nil "\306\211\306\307 \310\216\311\f!\211q\210\312\306w\210\313\314!\203%g\315u\210\312\306w\210\313\316!\203?\317`!\210\320\321!\210\322`\323\324!{!\312\306w\210\313\325!\203J\324\315u\210\313\326!?\205X\327\330#*\207" [ex-buffer ex-count ex-flag #1=#:wconfig viper-ex-work-buf-name viper-ex-work-buf nil current-window-configuration ((set-window-configuration #1#)) get-buffer-create " 	" looking-at "[a-zA-Z]" 1 "[0-9]" set-mark re-search-forward "[0-9][0-9]*" string-to-number mark t "[pl#]" "[\n|]" error "`%s': %s" ex-token viper-SpuriousText] 5])
(defalias 'viper-get-ex-count #[nil "\306\211\306\307 \310\216\311\f!\211q\210\312\306w\210\313\314!\203!\315\316u\210\312\306w\210\313\317!\203?\320`!\210\321\322!\210\323`\324\315!{!\312\306w\210\313\325!\203J\315\316u\210\313\326!?\205Z\327\330edS{#*\207" [ex-variant ex-count ex-flag #1=#:wconfig viper-ex-work-buf-name viper-ex-work-buf nil current-window-configuration ((set-window-configuration #1#)) get-buffer-create " 	" looking-at "!" t 1 "[0-9]" set-mark re-search-forward "[0-9][0-9]*" string-to-number mark "[pl#]" "[\n|]" error "`%s': %s" viper-BadExCommand] 5])
(defalias 'ex-expand-filsyms #[(cmd buf) "\306\211\211rq\210\f\307\306\310\")\n\204!\311\312
\"\203!\313\314!\210	\2040\311\315
\"\2030\313\316!\210r\317!q\210\320 \210
c\210eb\210\321\322\306\310#\203\217\323 \324\224\324\225{\325P\212\326\306\310#)\205h`\324\225U)\203t\327!\210\202\213\330!\210\331\230\203\207\327\n!\210\202\213\327	!\210*\202@\306\210e`{\332\333\"\210)+\207" [ret pf cf buf buffer-file-name cmd nil ex-next t string-match "[^\\]%\\|\\`%" error "No current file to substitute for `%%'" "[^\\]#\\|\\`#" "No alternate file to substitute for `#'" get-buffer-create erase-buffer re-search-forward "%\\|#" match-data 0 "\\\\" re-search-backward replace-match store-match-data "%" message "%s" viper-ex-tmp-buf-name char data str] 4])
(defalias 'viper-get-ex-file #[nil "\306\211\306\211\306\211\307#\212r\310$!\211%q\210\311\306w\210\312\313!\203V\314&\212\315&\306\316#)\2056`\317\225U)\204M'\320\230\204M\316\321u\210\311\306w\210\202V\316\321u\210\311\306w\210\312\322!\203g\316\211\323u\210\311\306w\210\312\324!\203\210\321u\210\325`!\210\326\327!\210\330u\210`\331\316!{\321u\210\311\306w\210'\332\235\203\300`dS{\333'\334\230\203\240\335\202\241\336	\"\203\271\306(	\317\225\306O#	\317\224\317\225O\202\272\307`dS|\210db\210\337\306x\210e`{*)(\203\337\340\341\342\"!\211\202\346	\206\344\307\211)\207" [prompt ex-file ex-variant ex-append ex-offset ex-cmdfile nil "" get-buffer-create " 	" looking-at "!" "[ 	]" re-search-backward t 0 "read" 1 ">>" 2 "+" set-mark re-search-forward "[ 	\n]" -1 mark ("read" "write" "edit" "visual" "next") string-match "edit" "[^ 	\n]+\\([ 	]+[^ 	\n]+\\)*" "[^ 	\n]+" " 	\n" viper-ex-read-file-name format ":%s " ex-cmdfile-args viper-ex-work-buf-name viper-ex-work-buf str ex-token viper-incomplete-ex-cmd viper-last-ex-prompt] 5])
(defalias 'viper-complete-filename-or-exit #[nil "\304\305	!\203\306 \207\307\212\310\n\311\304#)\205`\312\225U)\203$\304\313c\207\311\314 \207" [viper-keep-reading-filename ex-token str ex-cmdfile t ex-cmd-accepts-multiple-files-p exit-minibuffer "^[ 	]*!.*" re-search-backward nil 0 " " minibuffer-complete-word] 4 nil nil])
(defalias 'viper-handle-! #[nil "\302 \303!\230\203	\304\235\203\305 \210\306c\207" [default-directory ex-token buffer-string viper-abbreviate-file-name ("read" "write") erase-buffer "!"] 3 nil nil])
(defalias 'ex-cmd-accepts-multiple-files-p #[(token) "\301\235\207" [token ("edit" "next" "Next")] 2])
(defalias 'viper-ex-read-file-name #[(prompt) "\306\307	!\310\211\310\211\311	\"\210\312\211\211\203i\310\313P\310#\314
!\315\316
\"\203A\317!\203A\320
\320Q
\306\232\203L\306\202M\316
\211\306\232\203X\306\202Y\316R\205d\317!\211\204\315\321\"\315\322\"\323\235\203\215\315\324\"\203\215\312\nT\325P\n\206\223\326O.\207" [str minibuffer-local-completion-map beg end cont val "" copy-keymap nil viper-add-keymap t read-file-name expand-file-name string-match " " ex-cmd-accepts-multiple-files-p "\"" "[^ 	]" "[ 	]*$" ("read" "write") "[	 ]*!" " !" 0 ex-read-filename-map viper-keep-reading-filename prompt default-directory ex-token ex-cmdfile viper-last-ex-prompt] 6])
(defalias 'viper-undisplayed-files #[nil "\300\301\302 \"\207" [mapcar #[(b) "\304!?\205(\305!\211\203	\202'\n\205'\306!\211\307\310O\311\230?\205&))\207" [b f ex-cycle-through-non-files s get-buffer-window buffer-file-name buffer-name 0 1 " "] 4] buffer-list] 3])
(defalias 'ex-args #[nil "\306 \307\310\211\203\"\n@\203\311\312	\n@$T\nA\211\204	\307\230\203.\313\314!\202\212\315 \316\216\fr\317\320!q\210p\321 \210
\322\211\323\211 \323!\"\324 \210\325\326!\210+\211#$\327\330!\210\327\331!\210\327	!\210\327\331!\210\327\332!\210\327\333!\210\334#!\210+\335 ++\207" [file-count args l #1=#:wconfig default-directory #2=#:old-dir viper-undisplayed-files "" 1 format "%s %d) %s\n" message "All files are already displayed" current-window-configuration ((set-window-configuration #1#)) get-buffer-create " *viper-info*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ "\n\nThese files are not displayed in any window.\n" "\n=============\n" "\nThe numbers can be given as counts to :next. " "\n\nPress any key to continue...\n\n" internal-temp-output-buffer-show viper-read-event buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #3=#:buf standard-output] 6])
(defalias 'ex-cd #[nil "\302 \210\303\230\203\304\305\306!!\211\207" [ex-file default-directory viper-get-ex-file "" "~" file-name-as-directory expand-file-name] 3])
(defalias 'ex-copy #[(del-flag) "\306 \210\307 @A@\nb\210\212\310	\311\"\210\312\313\311!`\"\210\f\203+\314`\313\311!\"\210\2022\315`\313\311!\"\210
\203\213r\316\317!q\210p\320 \210\321\211\311\211 \311!\"\322 \210\323\324!\210+\211#$\325\f\204s%\204s&\203y\326\327!\202~`\313\311!{!\210\330#!\210+\321\331\332\217\210)\327U\203\230eb\210\202\236b\210\333y\210\326\327!c+\207" [ex-addresses beg end address del-flag ex-flag viper-default-ex-addresses viper-get-ex-address push-mark t viper-enlarge-region mark kill-region copy-region-as-kill get-buffer-create " *copy text*" kill-all-local-variables nil erase-buffer run-hooks temp-buffer-setup-hook princ current-kill 0 internal-temp-output-buffer-show (byte-code "\300\301!\210\212\302\303!\210)\300\207" [read-string "[Hit return to confirm] " kill-buffer " *copy text*"] 2) ((quit (byte-code "\212\300\301!\210)\302\303\304\"\207" [kill-buffer " *copy text*" signal quit nil] 3))) 1 default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output ex-g-flag ex-g-variant] 5])
(defalias 'ex-delete #[nil "\306 \210\307 \210@A@	\nV\203\310!\210\212\311	\n\"\210\312 \210\f\203/\313`!\210\fSy\210\2023\313\n!\210\311`\314\315!\"\210
\203\207!\"r\316\317!q\210p\320 \210\"!\321\211#$\315\211%\315&'\322 \210\323\324!\210+\211()\325`\314\315!{!\210\326(!\210+\321\327\330\217\210\212\331\317!)\202\337*\203\331\332*\333\"\203\276*\227`\314\315!+,\334,\335,!;\203\262\335,!\202\263\336+\n{P\"+\210\202\331\332*!\203\322\337*`\314\315!\321$\210\202\331\310-*\"\210\340`\314\315!\"+\207" [ex-addresses beg end viper-FirstAddrExceedsSecond ex-count ex-flag viper-default-ex-addresses viper-get-ex-buffer error viper-enlarge-region exchange-point-and-mark set-mark mark t get-buffer-create " *delete text*" kill-all-local-variables nil erase-buffer run-hooks temp-buffer-setup-hook princ internal-temp-output-buffer-show (read-string "[Hit return to confirm] ") ((quit (byte-code "\212\300\301!\210)\302\303!\207" [kill-buffer " *delete text*" error "Viper bell"] 2))) kill-buffer viper-valid-register (Letter) set-register get-register "" copy-to-register kill-region default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output ex-buffer start reg viper-InvalidRegister] 6])
(defalias 'ex-edit #[(&optional file) "\204\306 \210	\307\230\203\n\203\310\302 !\202#	\307\230\203#\311!\210\312\211\n\203M\313 \203;\314\315\316 \"\317\202M\320p!\204K\314\321\n\"\317\202M\312\f\203h\322
!\203b\323\312!\210\324p!\210\202h\325\326\316 \"\210*\327	!\211\204\210\330\331	p\"!\210\"\332=\204\202\333 \210eb\210\202\214\334!\210#\203\260r\335$!\211%q\210ed|\210#\336\261\210eb\210)\337 b\210\340 \210\341&	\"\207" [file ex-file buffer-file-name viper-NoFileSpecified do-edit msg viper-get-ex-file "" viper-abbreviate-file-name error nil buffer-modified-p format "Buffer %s is modified.  Discard changes? " buffer-name t verify-visited-file-modtime "File %s changed on disk.  Reread from disk? " yes-or-no-p set-buffer-modified-p kill-buffer message "Buffer %s was left intact" get-file-buffer ex-find-file ex-expand-filsyms dired-mode viper-change-state-to-vi switch-to-buffer get-buffer-create "\n" viper-get-ex-address beginning-of-line ex-fixup-history major-mode ex-offset viper-ex-work-buf-name viper-ex-work-buf viper-last-ex-prompt] 4])
(defalias 'ex-find-file #[(filespec) "\303\304	!\203\305	!\202!\306	\"\203\307\305\n	!\"\202!\305	!)\207" [nonstandard-filename-chars filespec viper-glob-function "[^-a-zA-Z0-9_./,~$\\]" file-exists-p find-file string-match mapcar] 4])
(defalias 'ex-global #[(variant) "\n\204\n\203\306\307	\"\210\202!\f\203\310\311\202!\311\310\312 \210\204-\306\313	\"\210)\314\230\203F
\204@\306!\210\202K
\202K\204XdeD\202[\315 \210\310\316@A@\310 ! V\203|\306\"!\210\212\317 \"\210\320 \210\311\321 #$\320 \210\322 \210m\203\233\323 \210$\203\370o\204\370`#Y\203\370\322 \210\324`!\210\310\210\325\326\311!\311#%\n\203\310%\204\321\203\340%\204\340\310\210!T!\321 B)\322 \210o\203\357\310\211$\202\235\327y\210\310\210\202\233+r\330&!\211'q\210`TdS{)\205*
@b\210\331\310\"\210!S!A\211\204
\310,\207" [ex-token gcommand ex-g-flag ex-g-variant variant viper-s-string error "`%s' within `global' is not allowed" nil t viper-get-ex-pat "`%s': Missing regular expression" "" viper-default-ex-addresses 0 viper-enlarge-region exchange-point-and-mark point-marker beginning-of-line viper-backward-char-carefully set-mark re-search-backward mark -1 get-buffer-create viper-ex viper-NoPrevSearch ex-g-pat ex-addresses ex-g-marks com-str beg end mark-count viper-FirstAddrExceedsSecond limit cont found viper-ex-work-buf-name viper-ex-work-buf] 5])
(defalias 'ex-goto #[nil "\204`\301B\302`\303\"\210@b\210\304 \207" [ex-addresses nil push-mark t beginning-of-line] 3])
(defalias 'ex-line #[(com) "\306 \210\307 \210@A@\310\nV\203\311\f!\210\212\312\n\"\210\313 \210
\203-\314`!\210
y\210\203|r\315\316!q\210p\317 \210\310\211 \320\211!\320\"#\321 \210\322\323!\210+\211$%\324`\325\320!{!\210\326$!\210+\310\327\330\217\210\212\331\316!\210)\202\205\332&`\325\320!#\210`)	Sb\210\333 +\207" [ex-addresses point beg end viper-FirstAddrExceedsSecond ex-count viper-default-ex-addresses viper-get-ex-count nil error viper-enlarge-region exchange-point-and-mark set-mark get-buffer-create " *join text*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook princ mark internal-temp-output-buffer-show (byte-code "\301\302!\210\303`\304\305!#\207" [com read-string "[Hit return to confirm] " ex-line-subr mark t] 5) ((quit (ding))) kill-buffer ex-line-subr beginning-of-line ex-flag default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output com] 6])
(defalias 'ex-line-subr #[(com beg end) "\305\230\203:	\n^b\210m?\2059`	\n]W\205e\306\210`	\n]X\203m\204\307y\210``S|\210\204\310 \210\202\207\311\230\204F\312\230\205e\313	\n^	\n]\311\230\203W\f\202Y\f[#\210	\n]b\210\306\210\314 \207" [com beg end ex-variant viper-shift-width "join" nil 1 fixup-whitespace "right" "left" indent-rigidly viper-forward-char-carefully] 5])
(defalias 'ex-mark #[(&optional name) "\306	\204\n`\306B\n\203(\nG\307=\203\310\n!\202Y\311\312\n\211\307\306O#\210\202Yr\313!\211q\210\314\306w\210\315\316!\203Sg\307u\210\314\306w\210\315\317!\204X\311\320
#\210\202X\311\321
\"\210)\212	@b\210\322\323ZT!*\207" [char ex-addresses name viper-ex-work-buf-name viper-ex-work-buf ex-token nil 1 string-to-char error "`%s': Spurious text \"%s\" after mark name" get-buffer-create " 	" looking-at "[a-z]" "[\n|]" "`%s': %s" "`%s' requires a following letter" point-to-register 97 viper-SpuriousText] 6])
(defalias 'ex-next #[(cycle-other-window &optional find-alt-file) "\300\301\215\207" [ex-edit (byte-code "\306\211\n\204C\307 \210\310!\204\f\311\230\204*\312\313\f\"\204*\314\315!\210\316\314\306\"\210\202E\317\f!\211\320U\2036\321	\320W\203E\322\323!\210\202E\321\324 	\320V\203m\203^@\204^A\211\204R	S\211\320V\203HA\202H\n\203v@\202\257@\203\254\325@!\203\254
\203\213\326 \202\215\327 \330!\331\325@!\"\210\332!\210\333\f\"*\202\257\322\334!*\207" [l count find-alt-file ex-offset ex-file cycle-other-window nil viper-get-ex-file char-or-string-p "" string-match "^[0-9]+$" ex-edit t throw string-to-number 0 1 error "Usage: `next <count>' (count >= 0)" viper-undisplayed-files get-file-buffer get-lru-window selected-window window-buffer set-window-buffer bury-buffer ex-fixup-history "Not that many undisplayed files" w b viper-last-ex-prompt] 5)] 2])
(defalias 'ex-next-related-buffer #[(direction &optional no-recursion) "\306	\"\210\307!\310 \311\211\211()\312!\203$\313!\314V\204(\315\316!\210);\2044\315\317)\"\210\320)!\206F\321)!\205F\322)!\211\203Y\320!\203Y\323\320!!\204e\315\324)\325\326)!!#\210p\232\203w*\204w\327\330	\331\"\210\f?\205\327\332!\211\204\215\333\334!\335\n\"\210\336 \203\273\337\340\n!!\210\340\n!\340
!\232\203\264\341 +\342\216\343\n!\210\344\345!\210*\202\312\343\n!\210\202\312\341 ,\346\216\343\n!\210\344\345!\210*rq\210()\347 \211-.\207" [viper-related-files-and-buffers-ring direction wind buf skip-rest old-win viper-ring-rotate1 viper-current-ring-item selected-window nil ring-p ring-length 0 error "This buffer has no related files or buffers" "File and buffer names must be strings, %S" get-buffer file-exists-p find-file-noselect buffer-name "Didn't find buffer %S or file %S" viper-abbreviate-file-name expand-file-name t ex-next-related-buffer norecursion viper-get-visible-buffer-window get-lru-window visible set-window-buffer viper-window-display-p raise-frame window-frame current-window-configuration ((set-window-configuration #1=#:wconfig)) select-window sit-for 1 ((set-window-configuration #2=#:wconfig)) point-marker old-ring file-or-buffer-name no-recursion #1# #2# viper-local-search-start-marker] 7])
(defalias 'ex-preserve #[nil "\300\301!\210\302\303!\207" [message "Autosaving all buffers that need to be saved..." do-auto-save t] 2])
(defalias 'ex-put #[nil "\204`\202\n@\304 \210\n	b\210o\203\305\306!\202 \307\306!)\207" [ex-addresses point ex-buffer viper-use-register viper-get-ex-buffer viper-Put-back 1 viper-put-back] 2])
(defalias 'ex-pwd #[nil "\301\302\"\207" [default-directory message "%s"] 3])
(defalias 'ex-quit #[nil "r\303!\211q\210\304\305!\203\306u\210)\n\307W\203\310 \207\311p!\207" [viper-ex-work-buf-name viper-ex-work-buf viper-expert-level get-buffer-create looking-at "!" 1 3 save-buffers-kill-emacs kill-buffer] 2])
(defalias 'ex-read #[nil "\306 \210\204`\202
@\307\211b\210\310 \210o\204!m\204!\311y\210\2046\f\312\230\2036
\2044\313!\210
\203M\314\315\f!Pp\"\316	\317\"\210\202Q\320\f!\210*\321\f#\207" [ex-addresses command point ex-variant ex-file buffer-file-name viper-get-ex-file nil viper-add-newline-at-eob-if-necessary 1 "" error ex-expand-filsyms shell-quote-argument shell-command t insert-file-contents ex-fixup-history viper-NoFileSpecified ex-cmdfile ex-cmdfile-args viper-last-ex-prompt] 5])
(defalias 'ex-fixup-history #[(&rest args) "\302\303\304#	AB\211\207" [args viper-ex-history mapconcat identity " "] 4])
(defalias 'ex-recover #[nil "\306 \210\204	\203\307\310\n\"\210\311\230\203#\f\204\307\312!\210\f\202'\313!\304 \230\204;\314 \203;
\204;\307\315!\210\316!\207" [ex-append ex-offset viper-SpuriousText ex-file buffer-file-name ex-variant viper-get-ex-file error "`recover': %s" "" "This buffer isn't visiting any file" expand-file-name buffer-modified-p "No write since last change (:rec! overrides)" recover-file] 3])
(defalias 'ex-rewind #[nil "\300\301!\207" [message "Use `:n <count>' instead.  Counts are obtained from the `:args' command"] 2])
(defalias 'ex-set-read-variable #[nil "\305!\306\307\211\310\311\312#\210\310\313\314#\210\315\316\317\307\320#!\203&\306\315\321!\210\322\323!\210	\2042\324\325!\210\326\327\330\331\f\"\211\"\203O\322\332!\210\315\333!\2042\324\325!\210\2022\n,\207" [minibuffer-local-completion-map batch str cursor-in-echo-area ex-variable-alist copy-keymap t nil define-key " " minibuffer-complete-and-exit "=" exit-minibuffer viper-set-unread-command-events ex-get-inline-cmd-args "[ 	]*[a-zA-Z]*[ 	]*" "
" 13 message ":set  <Variable> [= <Value>]" sit-for 2 string-match "^[ \\t\\n]*$" completing-read ":set " ":set <Variable> [= <Value>]" ""] 5])
(defalias 'ex-set #[nil "\306 \307\310\311\312\313\314\211\211\211@AB\211CC\315\230\203+\314\211@A\202
C\316\235\203A\317C\310A\314@\320B\202
C\321\235\203X\322\323!\210\317C\324A\320B\202
C\325\235\203k\317C\314@\326B\202
C\327\235\203\202\322\323!\210\317C\324A\326B\202
C\330\235\203\222\331C\320B\202
C\332\235\203\242\331C\326B\202
C\333\235\203\262\334C\320B\202
C\335\235\203\302\334C\326B\202
C\336\235\203\322\337C\320B\202
C\340\235\203\342\337C\326B\202
C\341\235\203\362\342C\320B\202
C\343\235\203
\342C\326B\202
C\344\235\203
\345C\320B\202
C\346\235\203
\345C\326BA\203\302
B\307=\203\302
\311D\347\350C\"\210\351\352!\204>
\353\354!\210\355\356\357C\"!B\360\361B#\210C\362\235\203Z
\314\363\364\217\210C\365\235\203g
\366C\202\276
C\367\235\203z
\370C\310A\314@\202\276
C\371\235\203\216
\322\372!\210\370C\324A\202\276
C\373\235\203\251
\322\374!\210\375C\356\376B\"B\324A\202\276
C\377\235\203\276
\201FC\356\201GB\"B)\202\307
\360\361\"\210A\203\344
\356\201HACB
%\356\201IAC
$@\203/\201J\356\201KE\"!\203/\201LE\n#\210C\375\230\203/	\307V\203\201L\201M
PE\f#\210\202/\201L\314E\f#\210\201L\314E\n#\210A\203V\347\201NAC\201O\201PB\"\203R\356\201QB\"\202TB$\210\203e\201R\201S!@!\210C\375\230\203\205	\307V\203}\201T\201U!\210\202\205\201T\201V!\210C\315\230\205\220\201W .\n\207" [orig-var val2 lisp-cmd-del-pattern actual-lisp-cmd delete-turn-on-auto-fill-pattern auto-cmd-label ex-set-read-variable 0 "setq" t "; don't touch or else..." "([ 	]*add-hook[ 	]+'viper-insert-state-hook[ 	]+'turn-on-auto-fill.*)" nil "all" ("ai" "autoindent") "viper-auto-indent" "t" ("ai-g" "autoindent-global") kill-local-variable viper-auto-indent "setq-default" ("noai" "noautoindent") "nil" ("noai-g" "noautoindent-global") ("ic" "ignorecase") "viper-case-fold-search" ("noic" "noignorecase") ("ma" "magic") "viper-re-search" ("noma" "nomagic") ("ro" "readonly") "buffer-read-only" ("noro" "noreadonly") ("sm" "showmatch") "blink-matching-paren" ("nosm" "noshowmatch") ("ws" "wrapscan") "viper-search-wrap-around" ("nows" "nowrapscan") message ":set %s = <Value>" viper-set-unread-command-events "" sit-for 2 read-string format ":set %s = " ex-fixup-history "set" ("sw" "shiftwidth" "ts" "tabstop" "ts-g" "tabstop-global" "wm" "wrapmargin") (byte-code "\303!@\211\247\204\304\305\n#\210\303\207" [val val2 var read-from-string error "%s: Invalid value, numberp, %S"] 4) ((error (error "%s: Invalid value, numberp, %S" var val))) ("sw" "shiftwidth") "viper-shift-width" ("ts" "tabstop") "tab-width" ("ts-g" "tabstop-global") tab-width ("wm" "wrapmargin") fill-column "fill-column" "(- (window-width) %s)" ("sh" "shell") ask-if-save set-cmd val var cursor-in-echo-area viper-custom-file-name "explicit-shell-file-name" "\"%s\"" "\n(%s %s %s) %s" "^\n?[ 	]*([ 	]*%s[ 	]+%s[ 	].*)[ 	]*%s" y-or-n-p "Do you want to save this setting in %s " viper-save-string-in-file "(add-hook 'viper-insert-state-hook 'turn-on-auto-fill) " "%s %s %s" string-match "^[ 	]*$" "%S" eval read-from-string auto-fill-mode 1 -1 ex-show-vars] 11])
(defalias 'ex-get-inline-cmd-args #[(regex-forw &optional chars-back replace-str) "r\306!\211q\210eb\210\307\n\310\311#\210`\310db\210
\203#
\310x\210\202'\312\310x\210`\fb\210\203F\307\313\310\311#\203F\314\310\311#\210\315 \210\2021b\210\f{+\207" [viper-ex-work-buf-name viper-ex-work-buf regex-forw end beg chars-back get-buffer-create re-search-forward nil t " 	\n
" " +" replace-match viper-forward-char-carefully replace-str] 4])
(defalias 'ex-shell #[nil "\300 \207" [shell] 1])
(defalias 'ex-help #[nil "\300\301\302\217\207" [nil (byte-code "\300\301\302!!\210\303\304!\210\305\306!\207" [pop-to-buffer get-buffer-create "*info*" info "viper" message "Type `i' to search for a specific topic"] 3) ((error (byte-code "\306\307!\210r\310\311!q\210p\312 \210	\313\211\314\211\314\315 \210\316\317!\210+\211\320\321\322\323\"!\324!\210+\207" [default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks beep 1 get-buffer-create " *viper-info*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ format "\nThe Info file for Viper does not seem to be installed.\n\nThis file is part of the standard distribution of %sEmacs.\nPlease contact your system administrator. " "" internal-temp-output-buffer-show inhibit-read-only #2=#:buf standard-output] 5)))] 3])
(defalias 'ex-source #[nil "\302 \210\303\230\203
\304	!\207\304!\207" [ex-file viper-custom-file-name viper-get-ex-file "" load] 2])
(defalias 'ex-substitute #[(&optional repeat r-flag) "\306\211\211\306\211\211!\"#\203\306$\202\307 $\204C%\203-&\202/'\211;\2049\310\311!\210(\312\n!\202p$\313\230\203O&\202Q$\211&\n'\307 $\204i\313\211$(\202p$$(\314!\203\211$\315\230\203\203\316\"\202p\316!\202p\317 \210)\203\262\212*\203\234*@b\210\320`!\210)Sy\210`\321\316!\306BB*)\202\317*\204\301``\306BB*\202\317*A\204\317*@*B**@*A@\306+,-\212\322-,\"\210\212`\321\316!]b\210\323 ).`\321\316!^b\210`.W\203\217
\212\306\210\324 \210\323 +)\325 \210\"\203R
l\204I
\326\n+\316#\203I
!\2033
\327\330\224\330\225\"\210\331\332!\203
\333 \210`	;\204A
\310\334!\210\335	\316\"\210\202
\306\210\324 \210\202\371\n\204Z
\310\336!\210\326\n+\316#\203\210
!\203u
\327\330\224\330\225\"\210\331\332!\203\210
\333 \210`	;\204\203
\310\334!\210\335	\316\"\210+b\210\202\371-
\203\227

b\210\325 \210!\205\242
\337\340!.\207" [viper-case-fold-search repl pat delim case-fold-search matched-pos nil viper-get-ex-pat error "No previous pattern to use in substitution" string-to-char "" viper-get-ex-opt-gc "g" t viper-get-ex-count set-mark mark viper-enlarge-region point-marker viper-forward-char-carefully beginning-of-line re-search-forward viper-put-on-search-overlay 0 y-or-n-p "Replace? " viper-hide-search-overlay "Can't perform Ex substitution: No previous replacement pattern" replace-match "Can't repeat Ex substitution: No previous regular expression" message "done" opt-c opt-g repeat ex-token r-flag viper-s-string ex-reg-exp ex-repl ex-count ex-addresses eol-mark end beg limit] 8])
(defalias 'ex-tag #[nil "\304r\305	!\211q\210\306\304w\210\307`!\210\310\304w\210\311\312!`{)\313\230\204%\314 \210\315\316\317\217)\207" [tag viper-ex-work-buf-name viper-ex-work-buf ex-tag nil get-buffer-create " 	" set-mark "^ |	\n" mark t #1="" viper-change-state-to-emacs conds (byte-code "\302\230\203\303	\304\"\210\202\305	!\210\306 \207" [tag ex-tag #1# find-tag t find-tag-other-window viper-change-state-to-vi] 3) ((error (byte-code "\301 \210\302!\207" [conds viper-change-state-to-vi viper-message-conditions] 2)))] 3])
(defalias 'ex-write #[(q-flag) "\306\307!\210\310 \210@A@p\311\211\211\211\21101212V\203*\3123!\2104\203D\31312\"\210\314`\315\307!56P#\202[
5\316\230\203Y\317 \204Y\320\321\322\323 \"!5e1U\205dd2U5\316\230\203q\317 \202u\3245!5\3255!\203\225\203\225\325!\204\225\3265!\327!P5\3305!5\317 \230	\203\312\f\203\312\331 \204\264\332\333!\210\202'
\334p!\210\335 \210\214~\210\336\n5ed$\210)\202'
\n\203\340\f\204\340\337\321\3405\"!\204\340\312\341!\210\342\216\212\31312\"\210`\315\307!{\343\344!\211q\210\3455\346\"\210\347 \210\n\203
7\203
\3505!\210db\210c\210\334p!\210\3118\335 \210\336\n5ed$\210*\317 \2033
\f\2033
\351 \210	\204G
\f\203G
\352\353!\210\332\354!\210\355\307!\2109\205[
:\353W\203X
\356 \202[
\357p!.\207" [ex-addresses writing-whole-file file-exists region writing-same-file temp-buf viper-default-ex-addresses t viper-get-ex-file nil error viper-enlarge-region shell-command-on-region mark "" buffer-file-name read-file-name format "Buffer %s isn't visiting any file.  File to save in: " buffer-name expand-file-name file-directory-p file-name-as-directory file-name-nondirectory file-exists-p buffer-modified-p message "(No changes need to be saved)" viper-maybe-checkout save-buffer ex-write-info yes-or-no-p "File %s exists.  Overwrite? " "Quit" ((byte-code "q\210\302\303!\210\304!\210	q\207" [temp-buf orig-buf set-buffer-modified-p nil kill-buffer] 2)) get-buffer-create " *ex-write*" set-visited-file-name noquery erase-buffer insert-file-contents set-visited-file-modtime sit-for 2 "Warning: you have saved only part of the buffer!" set-buffer-modified-p save-buffers-kill-emacs kill-buffer orig-buf beg end viper-FirstAddrExceedsSecond ex-cmdfile ex-file ex-cmdfile-args ex-append selective-display q-flag viper-expert-level] 9])
(defalias 'ex-write-info #[(exists file-name beg end) "\304\305\306!	\203
\307\202\310\311\nTd^\"\nZ%\207" [file-name exists beg end message "`%s'%s %d lines, %d characters" viper-abbreviate-file-name "" " [New file]" count-lines] 8])
(defalias 'ex-yank #[nil "\306 \210\307 \210@A@	\nV\203\310!\210\212\311	\n\"\210\312 \210\f\204(
\203,\310\313!\210\203=\314`!\210Sy\210\202A\314\n!\210\311`\315\316!\"\210\203S\310\317\"\210\203\245\320\321\"\203\212\227`\315\316!\322\323!;\203~\323!\202\324\n{P\"+\210\202\245\320!\203\236\325`\315\316!\326$\210\202\245\310\"\210\327`\315\316!\"+\207" [ex-addresses beg end viper-FirstAddrExceedsSecond ex-g-flag ex-g-variant viper-default-ex-addresses viper-get-ex-buffer error viper-enlarge-region exchange-point-and-mark "Can't execute `yank' within `global'" set-mark mark t "`yank': %s" viper-valid-register (Letter) set-register get-register "" copy-to-register nil copy-region-as-kill ex-count ex-flag viper-SpuriousText ex-buffer start reg viper-InvalidRegister] 5])
(defalias 'ex-command #[nil "\306r\307	!\211q\210\310\306w\210`d{\306\210)\311p\"\211G\312V\203=\312\313O\314\230\203=\2039\313\306OP\202=\315\316!\210\f\204I\317!\202u\f@\fA@
\204X\212
b\210\320!\210\321`\322\323!\"\210\324`\322\323!\323$\210)
b*)\207" [command viper-ex-work-buf-name viper-ex-work-buf viper-ex-last-shell-com ex-addresses beg nil get-buffer-create " 	" ex-expand-filsyms 0 1 "!" error "No previous shell command" shell-command set-mark viper-enlarge-region mark t shell-command-on-region end] 6])
#@186 Reads args from the command line, then runs make with the args.
If no args are given, then it runs the last compile command.
Type 'mak ' (including the space) to run make with no args.
(defalias 'ex-compile #[nil "\305r\306	!\211q\210`d{\305\210)\211GS\305O\307\230\203$\310GSO\311\230\2038\312\303!\2034\202<\f\202<\f\313Q\314!)\207" [args viper-ex-work-buf-name viper-ex-work-buf compile-command ex-compile-command nil get-buffer-create "\n" 0 "" boundp " " compile] 3 (#$ . 45634)])
(defalias 'ex-line-no #[nil "\301\302\303e\204\fd\202@\"T\"\207" [ex-addresses message "%d" count-lines] 5])
(defalias 'viper-info-on-file #[nil "\306\307!\306\310!\311\211\211\312e\306\310!\"\313 \203#\314\313 !\315P\2029\313\316 !\2035\314\313\316 !!\317P\2029\320 \321P\322\323\fU\203G\nT\202H\n\312ed\"`dSiT\324 \203Z\325\202[\326&\327\330G	G#\331\332 !W\203w\333\334	\335Q\"\202\307\336 \337\216/0r\340\341!q\210p\342 \2100/\311\2111\343\2112\34334\344 \210\345\346!\210+\21156\347\350	\351\352\260!\210\3535!\210+\3437\354\355 !\210)\356\341!*-\207" [info file lines pos2 pos1 #1=#:wconfig viper-line-pos start end nil count-lines buffer-file-name viper-abbreviate-file-name ":" buffer-base-buffer " (indirect buffer):" buffer-name " [Not visiting any file]:" format "line=%d/%d pos=%d/%d col=%d %s" buffer-modified-p "[Modified]" "[Unchanged]" + 1 window-width minibuffer-window message "%s" " " current-window-configuration ((set-window-configuration #1#)) get-buffer-create " *viper-info*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook princ "\n" "\n\n	" "\n\n" internal-temp-output-buffer-show viper-set-unread-command-events viper-read-event kill-buffer default-directory #2=#:old-dir buffer-read-only buffer-undo-list inhibit-modification-hooks inhibit-read-only #3=#:buf standard-output inhibit-quit] 9 nil nil])
(defalias 'ex-set-visited-file-name #[nil "\302 \210\303\230\203\f\304 \207\305!\303\230\203&	\203&\306	!\204&\307!\305	!P\310!\207" [ex-file buffer-file-name viper-get-ex-file "" viper-info-on-file file-name-nondirectory file-directory-p file-name-as-directory set-visited-file-name] 3])
(defalias 'ex-show-vars #[nil "r\306\307!q\210p\310 \210	\311\211\312\211\312-\313 \210\314\315!\210+\211./\316\2030\317\2021\320!\210\316\321\322!\203>\323\202?\324!\210\3160\203K\325\202L\326!\210\3161\203X\327\202Y\330!\210\316\n\203d\331\202e\332!\210\3162\203q\333\202r\334!\210\3163\203~\335\202\336!\210\316\337\3404\"!\210\316\337\341#\"!\210\316\337\342\321\343!\"!\210\316\337\344\345 'Z\"!\210\316\337\346\345 \321\347!Z\"!\210\316\337\350\351\352!\203\277*\202\300\353\"!\354.!\210+\207" [default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks get-buffer-create " *viper-info*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ "autoindent (local)\n" "noautoindent (local)\n" default-value viper-auto-indent "autoindent (global) \n" "noautoindent (global) \n" "ignorecase\n" "noignorecase\n" "magic\n" "nomagic\n" "readonly\n" "noreadonly\n" "showmatch\n" "noshowmatch\n" "wrapscan\n" "nowrapscan\n" format "shiftwidth 		= %S\n" "tabstop (local) 	= %S\n" "tabstop (global) 	= %S\n" tab-width "wrapmargin (local) 	= %S\n" window-width "wrapmargin (global) 	= %S\n" fill-column "shell 			= %S\n" boundp explicit-shell-file-name none internal-temp-output-buffer-show inhibit-read-only #2=#:buf standard-output viper-case-fold-search viper-re-search blink-matching-paren viper-search-wrap-around viper-shift-width] 7])
(defalias 'ex-print #[nil "\306 \210@A@	\nV\203\307!\210\212\310	\n\"\210\f\204\"
\203B\311`\312\313!#\210A?\205Irq\210\314\315 !\210\316 )\202I\314`\312\313!{!+\207" [ex-addresses beg end viper-FirstAddrExceedsSecond ex-g-flag ex-g-variant viper-default-ex-addresses error viper-enlarge-region append-to-buffer mark t ex-print-display-lines buffer-string erase-buffer viper-ex-print-buf ex-g-marks] 5])
(defalias 'ex-print-display-lines #[(lines) "\306\307\"\204\f\310\311\"\207\306\307\"GSU\203\310\311\312\313O\"\207r	r\314\315!q\210p\316 \210\n\317\211\320\211\320\321 \210\322\323!\210+\211\324!\325!\210,\207" [lines default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list string-match "\n" message "%s" 0 -1 get-buffer-create " *viper-info*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ internal-temp-output-buffer-show inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output] 6])