;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\302\303!\210\302\304!\210\305\301\306\307\310\311\312\313&\207" [provide viper-ex require viper-keym 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) "\301A@!\207" [cmd eval] 2])
(defalias 'ex-splice-args-in-1-letr-cmd #[(key list) "\303\304\305\306O \"!\211\205% \307\nA@\306GW\205 \306\310OC\"\nAA@E)\207" [key list oneletter ex-cmd-is-one-letter assoc 0 1 append nil] 7])
(defalias 'ex-cmd-assoc #[(key list) "\304 \"\305\211\306=\203 \307 \"\2025 ;\203' \310 \"\2065 \307 \"\2025 \305=\2034 \310 \"\2025 \305\211A@;\203D \311\nA@ \"\n*\207" [key list result entry 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 or MS Windows.\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\313g \314U\203& \315\316 !@\317u\202\320\321!\2031 \322 \202 \323U\203@ \317u\210\324\211\202\320\325!\203k \326`!\210\327\330!\210
\331\267\202\\ \332\202] \333\202] \334\335`\336\313!{!\211@\202 \337U\203z \317u\210\340\211\202 \341U\203\211 \317u\210\342\211\202 \343U\203\300 \320\344!\204\233 \320\345!\203\252 \317u\210\346c\210\347u\210\350\211\202\320\351!\203\271 \317u\210\350\211\202\352A!\202 \353U\203\367 \320\354!\204\322 \320\355!\203\341 \317u\210\346c\210\347u\210\356\211\202\320\357!\203\360 \317u\210\356\211\202\352A!\202 \360U\203=\317u\210\326`!\210\313 Bl\204#B\203#\327\361!\210\362\363\364\365!\"\204\312B\202)\347u\210`\336\313!{@g\360U\2037\317u\210\366\211\202 \367U\203\204\317u\210\326`!\210\313 Bl\204uB\203u\327\370!\210\362\371\364\365!\"\204f\312B\347u\210g\372U\204M\317u\210\202M)\373`S\336\313!{\211@\202 \374U\203\223\317u\210\375\211\202 \376U\203\242\317u\210\377\211\202\320\201D !\203\266\315\316 !@\317u\202 \201E U\203\355\201F \317u\210g\201E U\203\323\312@\202\350\320\321!\203\337g@\202\350\352\201G \201H \"\210\317u\202 \372U\203 \201I \201J \211@\202\352C!,\207" [#1=#:wconfig viper-ex-work-buf-name viper-ex-work-buf char case-fold-search ex-token-type current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] get-buffer-create " |" nil t 35 command char-to-string 1 looking-at "[a-z]" viper-get-ex-com-subr 46 dot "[0-9]" set-mark re-search-forward "[0-9]*" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (plus 84 minus 88)) add-number sub-number abs-number string-to-number mark 36 end 37 whole 43 "+[-+]" "+[\n|]" "1" -1 plus "+[0-9]" error 45 "-[-+]" "-[\n|]" minus "-[0-9]" 47 "[^/]*\\(/\\|\n\\)" looking-back "[^\\\\]\\(\\\\\\\\\\)*\\\\/" line-beginning-position 0 search-forward 63 "[^\\?]*\\(\\?\\|\n\\)" "[^\\\\]\\(\\\\\\\\\\)*\\\\\\?" 10 search-backward 44 comma 59 semi-colon ex-token viper-BadAddress cont viper-BadExCommand "[!=><&~]" 39 goto-mark "%s" "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*\315 !\203$ \316 \202< \315 !\203/ \317c\202< \315\n!\203: \316 \202< \317c+\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 #[nil "\301!\207" [#1# set-window-configuration] 2] get-buffer-create looking-back exit-minibuffer " " viper-ex-work-buf] 4 nil nil])
(defalias 'ex-cmd-complete #[nil "\306\211\211\211\211 \212\307\306x`) \310U\204( \311\312\313 \"\204( \311\314\313 \"\203z \311\315\313 \"\206; \311\312\313 \"\206; \316\317!?\205\354
#r\320\321!q\210p\322 \210#\306\211$%\323\211&\323 ' (\324 \210\325\326!\210+\211 ) *\327\330+!!\331)!\210+\202\354 \f`{\332 +\"\211\333\267\202\226 \334\335!\202\354 \334\336!\202\354 \fb\210`d|\210c\210\306 ,\337\340P+\")\nG\341V\205\354
-r\320\321!q\210p\322 \210-\306\211$%\323\211&\323 ' (\324 \210\325\326!\210+\211 . *\327\330\342\n!!!\331.!\210+-\207" [completion-result string-to-complete compl-list dist save-pos default-directory nil "[a-zA-Z!=>&~]" 0 looking-back "\\([ ]*['`][ ]*[a-z]*\\)" line-beginning-position "^[ ]*[a-zA-Z!=>&~][ ]*[/?]*[ ]+[a-zA-Z!=>&~]+" "[a-zA-Z!=>&~][ ]*[/?]*[ ]*" looking-at "[^ \n
]" get-buffer-create "*Completions*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook display-completion-list viper-alist-to-list internal-temp-output-buffer-show try-completion #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (t 138 nil 144)) viper-tmp-insert-at-eob " (Sole completion)" " (No match)" viper-filter-alist "^" 1 reverse #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\211 0 1\306\211 2 3\306 4\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\211 2P\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\210g\344U\203.\345u\210\202Bg\346U\203:\306,\202B\335\336<A#\210+)\202\321:\347=\203Y\335\336<?#\210\202\321:\350=\203y\306;\203nd;B\202tde;BB;\202\321:\351=\203\2323\350=\203\211e
\204\221`\202\222
;B;\202\321:\352=\203\3023\350=\203\252e
\203\261
-
\204\271`\202\272
;B;\202\321\353
-\"\211 B\203\320B):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 #[nil "\301!\207" [#1=#:wconfig set-window-configuration] 2] 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 #[nil "\301!\207" [#2=#:wconfig set-window-configuration] 2] " " 124 1 10 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\301 \315u\210\327`!\210\330 &m\204\234 &\203\234 \331\320\332
\211#\312\330#\204v '\333\235\203s \322\334!\210\202v db\210\335\320\336
\"\337\340!\"\204\210 \312&\202P \341\342!\210
c\210l\203P \312\211&u\210\202P )\343\330!`U\203\251 \344\202\257 `S\343\330!{'\345u\210l\203\304
c\210\345u\210\202\304 \312'
+\207" [#1=#:wconfig viper-ex-work-buf-name viper-ex-work-buf ex-g-variant ex-g-flag c current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] 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" looking-back "[^\\\\]\\(\\\\\\\\\\)*\\\\%c" line-beginning-position 0 delete-char -2 mark "" -1 cont ex-token] 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 #[nil "\301!\207" [#1# set-window-configuration] 2] get-buffer-create looking-at format "%c" 1 " " nil "g" t "c"] 5])
(defalias 'viper-default-ex-addresses #[(&optional whole-flag) "\204 \203 deD\202 ``D\211\207A?\205 @B\211\207" [ex-addresses whole-flag] 2])
(defalias 'viper-get-ex-address #[nil "\306 \307\310\311\203S \312 \210\f\313\267\202A \n\314\235\203$ \307\311\211\202\n \315\316!\210\202 \311\211\202\n \315\317!\210\202 \315\320\n
#\210\202 \321 \306 \"\211 \203O )\202 *\207" [cont address ex-token ex-flag ex-token-type viper-SpuriousText point-marker t "" nil viper-get-ex-token #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (command 22 end-mark 43 whole 49 comma 56)) ("print" "list" "#") error "Address expected in this Ex command" "Trailing address expected" "`%s': %s" viper-get-ex-address-subr ans] 5])
(defalias 'viper-get-ex-address-subr #[(old-address dot) "\305 \204 \n \306\267\202\227 \n\202\227 \212 b\210 \307U\203\" \fS\202# \fy\210\310 )\202\227 \212 b\210\f[y\210\310 )\202\227 \212eb\210\f\307U\203J \307\202Q \fSy\210\310 )\202\227 \212dSb\210\310 )\202\227 \202\227 \202\227 \212\311\312!\210\310 )\202\227 \212\311\305!\210\310 )\202\227 \212\f\204\212 \313 \210\202\223 \314\f\315ZT\316\"b\210\310 ))\207" [address old-address dot ex-token-type ex-token nil #s(hash-table size 10 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (dot 14 add-number 19 sub-number 44 abs-number 59 end 85 plus 97 minus 100 search-forward 103 search-backward 115 goto-mark 127)) 0 point-marker ex-search-address t 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 #[nil "\301!\207" [#1# set-window-configuration] 2] 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 #[nil "\301!\207" [#1# set-window-configuration] 2] 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\211r q\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 \323 \324\224\324\225{ \325\326`\327Z\"\203d \330 !\210\202{ \331 !\210 \332\230\203w \330\n!\210\202{ \330 !\210*\202@ \306\210e`{\333\334\"\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 looking-back "\\\\." 2 replace-match store-match-data "%" message "%s" viper-ex-tmp-buf-name char data] 4])
(defalias 'viper-get-ex-file #[nil "\306\211\306\211\306\211\307\"\212r\310#!\211$q\210\311\306w\210g\312U\203F h\313>\204= %\314\230\204= \315\316u\210\311\306w\210\202F \315\316u\210\311\306w\210\317\320!\203W \315\211\321u\210\311\306w\210g\322U\203x \316u\210\323`!\210\324\325!\210\326u\210`\327\315!{\316u\210\311\306w\210%\330\235\203\260 `dS{\331%\332\230\203\220 \333\202\221 \334 \"\203\251 \306& \335\225\306O\" \335\224\335\225O\202\252 \307`dS|\210db\210\336\306x\210e`{*'&\203\317 \337\340\341\"!\211\202\326 \206\324 \307\211)\207" [prompt ex-file ex-variant ex-append ex-offset ex-cmdfile nil "" get-buffer-create " " 33 (32 9) "read" t 1 looking-at ">>" 2 43 set-mark re-search-forward "[ \n]" -1 mark ("read" "write" "edit" "visual" "next") string-match "edit" "[^ \n]+\\([ ]+[^ \n]+\\)*" "[^ \n]+" 0 " \n" viper-ex-read-file-name format ":%s " ex-cmdfile-args viper-ex-work-buf-name viper-ex-work-buf ex-token viper-incomplete-ex-cmd viper-last-ex-prompt] 5])
(defalias 'viper-complete-filename-or-exit #[nil "\303\304 !\203 \305 \207\306\307\310 \"\203 \303\311c\207\312\313 \207" [viper-keep-reading-filename ex-token ex-cmdfile t ex-cmd-accepts-multiple-files-p exit-minibuffer looking-back "^[ ]*!.*" line-beginning-position " " nil minibuffer-complete-word] 3 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 \326 O.\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\f r\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 #[nil "\301!\207" [#1# set-window-configuration] 2] 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\243 !r\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+\3311\227 \332\333!\210\212\334\317!)0\202\242 \210\212\334\317!\210)\335\336\321\"\210) \327U\203\260 eb\210\202\266 b\210\337y\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 (quit) read-string "[Hit return to confirm] " kill-buffer signal quit 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\230 ! \"r\316\317!q\210p\320 \210\"!\321\211#$\315\211%\315 & '\322 \210\323\324!\210+\211 ( )\325`\314\315!{!\210\326(!\210+\3271\205 \330\331!0\202\217 \210\212\332\317!\210)\310\333!\210\212\332\317!)\202\323 *\203\315 \334*\335\"\203\262 \336*\227`\314\315!#\210\202\315 \334*!\203\306 \337*`\314\315!\321$\210\202\315 \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 (quit) read-string "[Hit return to confirm] " kill-buffer "Viper bell" viper-valid-register (Letter) viper-append-to-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 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\260 r\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 \204X deD \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\370 o\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\n V\203 \311\f!\210\212\312\n \"\210\313 \210
\203- \314`!\210
y\210 \203\217 r\315\316!q\210p\317 \210 \310\211!\"\320\211#\320 $ %\321 \210\322\323!\210+\211 & '\324`\325\320!{!\210\326&!\210+\3271\202 \330\331!\210\332(`\325\320!#0\202\205 \210\333 \210\212\334\316!\210)\202\230 \332(`\325\320!#\210`) Sb\210\335 +\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 (quit) read-string "[Hit return to confirm] " ex-line-subr ding kill-buffer 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\203 m\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\202Y r\313 !\211q\210\314\306w\210\315\316!\203S g\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) "\3062\265 \307\211\n\204G \310 \210\311 !\204\" \f\312\230\204. \313\314\f\"\204. \306\315!\210\316\306\307\"\210\202I \317\f!\211\320U\203: \321 \320W\203I \322\323!\210\202I \321\324 \320V\203q \203b @\204b A\211\204V S\211\320V\203L A\202L \n\203z @\202\263 @\203\260 \325@!\203\260
\203\217 \326 \202\221 \327 \330 ! \331 \325@!\"\210\332 !\210\333 \f\"*\202\263 \322\334!*0\207" [l count find-alt-file ex-offset ex-file cycle-other-window ex-edit nil viper-get-ex-file char-or-string-p "" string-match "^[0-9]+$" 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])
(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)!!#\210 p\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*r q\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 #[nil "\301!\207" [#1=#:wconfig set-window-configuration] 2] select-window sit-for 1 #[nil "\301!\207" [#2=#:wconfig set-window-configuration] 2] 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\210g\304U\203 \305u\210)\n\306W\203 \307 \207\310p!\207" [viper-ex-work-buf-name viper-ex-work-buf viper-expert-level get-buffer-create 33 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 @ A B\211 CC\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\344B\307=\203\344\311 D\347\350C\"\210\351\352!\204>\353\354!\210\355\356\357C\"!B\360\361B#\210C\362\235\203x\3631o\364B!@\211\247\206k\365\366CB#0\202w\210\365\366CB#\210C\367\235\203\205\370C\202\340C\371\235\203\230\372C\310A\314@\202\340C\373\235\203\254\322\374!\210\372C\324A\202\340C\375\235\203\311\322\376!\210\377C\356\201F B\"B\324A\202\340C\201G \235\203\340\201H C\356\201I B\"B)\202\351\360\361\"\210A\203\356\201J ACB
%\356\201K AC
$@\203Q\201L \356\201M E\"!\203Q\201N E\n#\210C\377\230\203Q \307V\203?\201N \201O
PE\f#\210\202Q\201N \314E\f#\210\201N \314E\n#\210A\203x\347\201P AC\201Q \201R B\"\203t\356\201S B\"\202vB$\210 \203\205\201T \364 !@!\210C\377\230\203\245 \307V\203\235\201U \201V !\210\202\245\201U \201W !\210C\315\230\205\260\201X .\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") (error) read-from-string error "%s: Invalid value, numberp, %S" ("sw" "shiftwidth") "viper-shift-width" ("ts" "tabstop") "tab-width" ("ts-g" "tabstop-global") tab-width ("wm" "wrapmargin") fill-column "fill-column" ask-if-save set-cmd val var cursor-in-echo-area viper-custom-file-name "(- (window-width) %s)" ("sh" "shell") "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 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`\310 db\210
\203#
\310x\210\202' \312\310x\210`\fb\210\203F \307\313\310\311#\203F \314\310\311#\210\315 \210\2021 b\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 "\3061 \307\310\311!!\210\312\313!\210\314\315!0\207\210\316\317!\210r\310\320!q\210p\321 \210 \322\211\323\211\323 \324 \210\325\326!\210+\211 \327\330\331\332\"!\333 !\210+\207" [default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks (error) pop-to-buffer get-buffer-create "*info*" info "viper" message "Type `i' to search for a specific topic" beep 1 " *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])
(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\"\203Rl\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 "\305r\306 !\211q\210\307\305w\210\310`!\210\311\305w\210\312\313!`{)\314\230\204% \315 \210\3161D \314\230\203: \317 \313\"\210\202> \320 !\210\321 0\202L \321 \210\322\f!))\207" [tag viper-ex-work-buf-name viper-ex-work-buf ex-tag conds nil get-buffer-create " " set-mark "^ | \n" mark t "" viper-change-state-to-emacs (error) find-tag find-tag-other-window viper-change-state-to-vi viper-message-conditions] 3])
(defalias 'ex-write #[(q-flag) "\306\307!\210\310 \210@A@p\311\211\211\211\211 0 1 212V\203* \3123!\2104\203D \31312\"\210\314`\315\307!56P#\202[5\316\230\203Y \317 \204Y \320\321\322\323 \"!5e1U\205d d2U5\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\2037\203\3505!\210db\210 c\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" #[nil "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\n Td^\" \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\210 \320\321\"\203m \322\227`\315\316!#\210\202\210 \320!\203\201 \323`\315\316!\324$\210\202\210 \310\"\210\325`\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) viper-append-to-register copy-to-register nil copy-region-as-kill ex-count ex-flag viper-SpuriousText ex-buffer 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!\202v \f@\fA@
\204X \212
b\210\320!\210\321`\322\323!\"\210\324`\322\323!\323\211%\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] 7])
#@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 (#$ . 44906)])
(defalias 'ex-line-no #[nil "\301\302\303e\204\f d\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\f U\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\343 3 4\344 \210\345\346!\210+\211 5 6\347\350 \351\352\260!\210\3535!\210+\343 7\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 #[nil "\301!\207" [#1# set-window-configuration] 2] 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?\205I rq\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])
|