ikan Uploader :
Directory : /proc/thread-self/root/proc/self/root/usr/share/emacs/25.2/lisp/emulation/
Upload File : |
| Current File : //proc/thread-self/root/proc/self/root/usr/share/emacs/25.2/lisp/emulation/viper-ex.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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, 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\376\314\321!\203. \322 \202\376\314\323!\203= \320u\210\324\211\202\376\314\325!\203m \326`!\210\327\330!\210\f\331=\203U \332\202` \f\333=\203_ \334\202` \335\336`\337\313!{!\211\202\376\314\340!\203| \320u\210\341\211\202\376\314\342!\203\213 \320u\210\343\211\202\376\314\344!\203\302 \314\345!\204\235 \314\346!\203\254 \320u\210\347c\210\350u\210\331\211\202\376\314\351!\203\273 \320u\210\331\211\202\376\352@!\202\376\314\353!\203\371 \314\354!\204\324 \314\355!\203\343 \320u\210\347c\210\350u\210\333\211\202\376\314\356!\203\362 \320u\210\333\211\202\376\352@!\202\376\314\357!\203>\320u\210\326`!\210\313 Al\204%A\203%\327\360!\210\361\362\363\364!\"\204 \312A\202 )\350u\210`\337\313!{\314\357!\2038\320u\210\365\211\202\376\314\366!\203\204\320u\210\326`!\210\313 Al\204vA\203v\327\367!\210\361\370\363\364!\"\204g\312A\350u\210\314\371!\204N\320u\210\202N)\372`S\337\313!{\211\202\376\314\373!\203\223\320u\210\374\211\202\376\314\375!\203\242\320u\210\376\211\202\376\314\377!\203\263\316\317g!\320u\202\376\314\201C !\203\350\201D \320u\210\314\201C !\203\317\312\202\343\314\321!\203\332g\202\343\352\201E \201F \"\210\320u\202\376\314\371!\203\372\201G \201H \211\202\376\352B!+\207" [#1=#:wconfig viper-ex-work-buf-name viper-ex-work-buf case-fold-search ex-token-type ex-token current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] 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\\)" looking-back "[^\\\\]\\(\\\\\\\\\\)*\\\\/" line-beginning-position 0 search-forward "\\?" "[^\\?]*\\(\\?\\|\n\\)" "[^\\\\]\\(\\\\\\\\\\)*\\\\\\?" "\n" search-backward "," comma ";" semi-colon "[!=><&~]" viper-BadAddress cont viper-BadExCommand "'" 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\362
\"r\320\321!q\210p\322 \210\"\306\211#$\323\211%\323 & '\324 \210\325\326!\210+\211 ( )\327\330*!!\331(!\210+\202\362 \f`{\332 *\"\211\323=\203\220 \333\334!\202\362 \306=\203\234 \333\335!\202\362 \fb\210`d|\210c\210\306 +\336\337P*\")\nG\340V\205\362
,r\320\321!q\210p\322 \210,\306\211#$\323\211%\323 & '\324 \210\325\326!\210+\211 - )\327\330\341\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 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\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;\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] " " 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\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\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 #[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\210\312\313!\203H \314\315`S\"\204? &\316\230\204? \317\320u\210\311\306w\210\202H \317\320u\210\311\306w\210\312\321!\203Y \317\211\322u\210\311\306w\210\312\323!\203z \320u\210\324`!\210\325\326!\210\327u\210`\330\317!{\320u\210\311\306w\210&\331\235\203\262 `dS{\332&\333\230\203\222 \334\202\223 \335 \"\203\253 \306' \336\225\306O# \336\224\336\225O\202\254 \307`dS|\210db\210\337\306x\210e`{*('\203\321 \340\341\342\"!\211\202\330 \206\326 \307\211)\207" [prompt ex-file ex-variant ex-append ex-offset ex-cmdfile nil "" get-buffer-create " " looking-at "!" looking-back "[ ]" "read" t 1 ">>" 2 "+" 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\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 @ 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 (#$ . 44800)])
(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])
Kontol Shell Bypass