;ELC ;;; compiled by kwzh@nutrimat.gnu.ai.mit.edu on Sun Jul 21 15:30:33 1996 ;;; from file /gd/gnu/emacs/19.0/lisp/viper-ex.el ;;; emacs version 19.31.94.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`viper-ex.el' was compiled for Emacs 19.29 or later")) (byte-code "! B B ! B B B B!5 B!B B!O B!\\ B!i B!v B! B! B! B! B! BЇ" [require viper-util read-file-name-map current-load-list " *ex-working-space*" vip-ex-work-buf-name get-buffer-create vip-ex-work-buf " *ex-tmp*" vip-ex-tmp-buf-name (("!") ("=") (">") ("&") ("~") ("yank") ("xit") ("WWrite") ("Write") ("write") ("wq") ("visual") ("version") ("vglobal") ("unmap") ("undo") ("tag") ("transfer") ("suspend") ("substitute") ("submitReport") ("stop") ("sr") ("source") ("shell") ("set") ("rewind") ("recover") ("read") ("quit") ("pwd") ("put") ("preserve") ("PreviousRelatedFile") ("RelatedFile") ("next") ("Next") ("move") ("mark") ("map") ("kmark") ("join") ("help") ("goto") ("global") ("file") ("edit") ("delete") ("copy") ("chdir") ("cd") ("Buffer") ("buffer") ("args")) ex-token-alist (("wrapscan") ("ws") ("wrapmargin") ("wm") ("global-tabstop") ("gts") ("tabstop") ("ts") ("showmatch") ("sm") ("shiftwidth") ("sw") ("shell") ("sh") ("readonly") ("ro") ("nowrapscan") ("nows") ("noshowmatch") ("nosm") ("noreadonly") ("noro") ("nomagic") ("noma") ("noignorecase") ("noic") ("global-noautoindent") ("gnoai") ("noautoindent") ("noai") ("magic") ("ma") ("ignorecase") ("ic") ("global-autoindent") ("gai") ("autoindent") ("ai")) ex-variable-alist boundp ex-token nil ex-token-type ex-addresses ex-flag ex-buffer ex-count ex-g-flag ex-g-variant ex-reg-exp ex-repl ex-g-pat] 2) #@38 Is the user using a unix-type shell? (defvar ex-unix-type-shell (byte-code "\n;˰ \n\")" [t case-fold-search shell-file-name string-match "\\(" "csh$\\|csh.exe$" "\\|" "ksh$\\|ksh.exe$" "^sh$\\|sh.exe$" "[^a-z]sh$\\|[^a-z]sh.exe$" "bash$\\|bash.exe$" "\\)"] 12) (#$ . 1992)) #@94 Options to pass to the Unix-style shell. Don't put `-c' here, as it is added automatically. (defvar ex-unix-type-shell-options (byte-code "\n \"Ƃ \")" [t case-fold-search ex-unix-type-shell string-match "\\(csh$\\|csh.exe$\\)" shell-file-name "-f" "\\(bash$\\|bash.exe$\\)" "-noprofile"] 3) (#$ . 2290)) (byte-code "!,\nÂ+\f=Ƃ+!Ƃ+*Â+ B !;\n B !J\f B !Y  B !h B !w B ! B ! B ˇ" [boundp ex-nontrivial-find-file-function ex-unix-type-shell vip-ex-nontrivial-find-file-unix system-type emx vip-ex-nontrivial-find-file-ms vip-ms-style-os-p vip-vms-os-p current-load-list ex-tag nil ex-file ex-variant ex-offset ex-append ex-cmdfile vip-keep-reading-filename] 2) #@148 *If t, :n and :b cycles through files and buffers in other window. Then :N and :B cycles in the current window. If nil, this behavior is reversed. (defconst ex-cycle-other-window t (#$ . -3077)) #@71 *Cycle through *scratch* and other buffers that don't visit any file. (defconst ex-cycle-through-non-files nil (#$ . -3278)) (byte-code "! B! B!  B‡" [boundp vip-ex-last-shell-com nil current-load-list vip-incomplete-ex-cmd vip-last-ex-prompt ""] 2) (defalias 'vip-check-sub #[(str) "G\nGX\n O\nĉ)" [ex-token length str 0 non-command ex-token-type] 5]) (defalias 'vip-get-ex-com-subr #[nil "`!!`!{ !>!*!!7!!!K!!!^!!k!!x!!!!!!!!!!!!!!!!!!!!!!!(!!!!!!!: u !G!!a!Z!!!n!!{!ˁ@!ˁA!΁B!ˁC!΁D!ˁE!΁F!΁G!ˁH!΁I!ˁJ!΁K!ˁL!΁M!ˁN!%ˁO! ΁P!ˁQ!΁R!΁S!ˁT!ˁU!>΁V!ˁW!O΁X!ˁY!`΁Z!ˁ[!q΁[!ˁ\\!΁]!ˁ^!΁_!ˁ`!΁a!΁b!ˁc!ˁd!΁e!΁f!ˁg!ˁh!΁i!ˁj!΁k!΁l!ˁm!5ˁn!΁o!ˁp!,΁q!΁r!ˁs!Wˁt!N΁t!΁u!ˁv!yˁw!p΁x!΁y!ˁz!΁{!ˁ|!΁}!ˁ~!΁~! )" [nil case-fold-search set-mark re-search-forward "[a-zA-Z][a-zA-Z]*" command ex-token-type mark t ex-token exchange-point-and-mark looking-at "a" "ab" vip-check-sub "abbreviate" "ar" "args" "append" "h" "help" "c" "cd" "ch" "chdir" "co" "copy" "change" "d" "delete" "b" "buffer" "B" "Buffer" "e" "ex" "edit" "f" "file" "g" "global" "i" "insert" "j" "join" "l" "list" "m" "map" "mar" "mark" "move" "k[a-z][^a-z]" "kmark" 1 "k" "n" "nu" "number" "next" "N" "Next" "o" "open" "p" "pre" "preserve" "pu" "put" "pw" "pwd" "print" "P" "PreviousRelatedFile" "R" "RelatedFile" "q" "quit" "r" "rec" "recover" "rew" "rewind" "read" "s" "se" "set" "sh" "shell" "so" "source" "sr" "st" "stop" "sus" "suspend" "subm" "submitReport" "substitute" "t" "ta" "tag" "transfer" "u" "una" "unabbreviate" "unm" "unmap" "undo" "v" "ve" "version" "vi" "visual" "vglobal" "w" "wq" "write" "W" "WW" "WWrite" "Write" "x" "xit" "y" "yank" "z"] 3]) (defalias 'vip-get-ex-token #[nil "" [((byte-code "qw!g!u!! !/u͉!a`!!=HӂT=SՂT`!{!!ouۉ!}u݉!!!uc!҉!u҉%!!!!uc!ԉ!uԉ%!!(u`!+l+!!+)!`!{!#u!lu`!+l^+^!!N+!!8u8)`S!{!zu!u!g!u!u!!g!u!?!" [vip-ex-work-buf " |" nil looking-at "#" command ex-token-type char-to-string ex-token 1 "[a-z]" vip-get-ex-com-subr "\\." dot "[0-9]" set-mark re-search-forward "[0-9]*" plus add-number minus sub-number abs-number string-to-int mark t "\\$" end "%" whole "+" "+[-+]" "+[\n|]" "1" backward-char "+[0-9]" error vip-BadAddress "-" "-[-+]" "-[\n|]" "-[0-9]" "/" cont "[^/]*\\(/\\|\n\\)" vip-looking-back "[^\\\\]\\(\\\\\\\\\\)*\\\\/" search-forward "\\?" "[^\\?]*\\(\\?\\|\n\\)" "[^\\\\]\\(\\\\\\\\\\)*\\\\\\?" "\n" search-backward "," comma ";" semi-colon "[!=><&~]" "'" goto-mark "Marks are ' and a-z" end-mark "goto" vip-BadExCommand] 4))] 1]) (defalias 'ex-cmd-read-exit #[nil "ɰ ΰ #!\"#䋈#!T n!!`cn\"!l nc+" [t vip-incomplete-ex-cmd "\\(" "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.*" "^[ ]*su.*" "\\|['`][a-z][ ]*" "![ ]*[a-zA-Z].*" "!*" stay-regex quit-regex2 quit-regex1 ((byte-code "qdb" [vip-ex-work-buf] 1)) vip-looking-back exit-minibuffer " "] 37 nil nil]) (defalias 'ex-cmd-complete #[nil "x`)\fU$!$!C!3!3!?ΐ!! `{\n\"=Y! =e! b`d| c P\") GVΐ !!!-" [nil completion-result string-to-complete compl-list dist save-pos "[a-zA-Z!=>&~]" 0 vip-looking-back "\\([ ]*['`][ ]*[a-z]*\\)" "^[ ]*[a-zA-Z!=>&~][ ]*[/?]*+[ ]+[a-zA-Z!=>&~]+" "[a-zA-Z!=>&~][ ]*[/?]*[ ]*" looking-at "[^ \n ]" "*Completions*" display-completion-list vip-alist-to-list ex-token-alist try-completion t vip-tmp-insert-at-eob " (Sole completion)" " (No match)" case-fold-search vip-filter-alist "^" 1 reverse] 6 nil nil]) (defalias 'vip-ex #[(&optional string) " ! `\n \f\"1@%\fҋ  >WBؘh! ژy!  ܋= #=dBdeBB= =e`B= =e\n`B\n\"%%) <." [string nil ex-g-flag ex-g-variant copy-keymap minibuffer-local-map map address t cont dot prev-token-type com-str vip-add-keymap vip-ex-cmd-map vip-read-string-with-history ":" vip-ex-history ((byte-code "!!!\f!qed| Ʊeb" [vip-ex-work-buf get-buffer buffer-name get-buffer-create vip-ex-work-buf-name com-str "\n"] 3)) ex-token-type ex-addresses vip-get-ex-token (command end-mark) ex-token "global" ex-global "vglobal" vip-execute-ex-command ((byte-code "qw!u'!'\n #‡" [vip-ex-work-buf " " nil looking-at "|" 1 "\n" cont error "`%s': %s" ex-token vip-SpuriousText] 4)) non-command error "`%s': %s" vip-BadExCommand whole comma semi-colon vip-get-ex-address-subr ans] 7 nil nil]) (defalias 'vip-get-ex-pat #[nil "" [((byte-code "qw! ??uwg\"\".!!u`!luu##e֝b!edb\"!>>)!`Uۂ`S!{!)" [vip-ex-work-buf " " nil looking-at "!" ex-g-variant ex-g-flag 1 c string-match "[0-9A-Za-z]" format "%c" error "Global regexp must be inside matching non-alphanumeric chars" "[^\\\\\n]" set-mark t cont re-search-forward "[^%c]*%c" ex-token ("global" "vglobal") "Missing closing delimiter for global regexp" vip-looking-back "[^\\\\]\\(\\\\\\\\\\)*\\\\%c" mark "" backward-char] 5))] 1]) (defalias 'vip-get-ex-command #[nil "" [((byte-code "q!\fuw!( =:\f #!6g!\fu !" [vip-ex-work-buf looking-at "/" 1 " " nil "[a-z]" vip-get-ex-com-subr ex-token-type non-command error "`%s': %s" ex-token vip-BadExCommand "[!=><&~]" char-to-string] 4))] 1]) (defalias 'vip-get-ex-opt-gc #[(c) "" [((byte-code "q\f\"!uw!! uʇ!/ uʇLJ" [vip-ex-work-buf looking-at format "%c" c 1 " " nil "g" ex-token t "c"] 4))] 1]) (defalias 'vip-default-ex-addresses #[(&optional whole-flag) " deBB``BBA?$@B" [ex-addresses whole-flag nil] 3]) (defalias 'vip-get-ex-address #[nil " \nl  =. ˝'Ɖ !\n =;Ɖ  =I!\n =Z #\n \"h)\n *" [point-marker t cont address "" ex-token nil ex-flag vip-get-ex-token ex-token-type command ("print" "list" "#") error "Address expected in this Ex command" end-mark whole "Trailing address expected" comma "`%s': %s" vip-SpuriousText vip-get-ex-address-subr ans] 5]) (defalias 'vip-get-ex-address-subr #[(old-address dot) "\n \f= \f=4\nb\nU)S+y )\f=J\nb[y )\f=lebU`hSy )\f=x \f=\f=\f=! )\f=! )\f= ZT\"b ) )" [nil address old-address dot ex-token-type add-number 0 ex-token point-marker sub-number abs-number end point-max-marker plus minus search-forward ex-search-address t search-backward goto-mark exchange-point-and-mark vip-register-to-point 97 enforce-buffer] 3]) (defalias 'ex-search-address #[(forward) "\n\f!\n #y!y!" [ex-token "" vip-s-string error vip-NoPrevSearch forward 1 re-search-forward -1 re-search-backward] 2]) (defalias 'vip-get-ex-buffer #[nil "ċ" [nil ex-buffer ex-count ex-flag ((byte-code "qw!guw!1`!!`!{!w!=u!?K#" [vip-ex-work-buf " " nil looking-at "[a-zA-Z]" ex-buffer 1 "[0-9]" set-mark re-search-forward "[0-9][0-9]*" string-to-int mark t ex-count "[pl#]" ex-flag "[\n|]" error "`%s': %s" ex-token vip-SpuriousText] 4))] 1]) (defalias 'vip-get-ex-count #[nil "ċ" [nil ex-variant ex-count ex-flag ((byte-code "qw!uw!2`!!`!{!w!>u!?NedS{#" [vip-ex-work-buf " " nil looking-at "!" t ex-variant 1 "[0-9]" set-mark re-search-forward "[0-9][0-9]*" string-to-int mark ex-count "[pl#]" ex-flag "[\n|]" error "`%s': %s" vip-BadExCommand] 4))] 1]) (defalias 'ex-expand-filsyms #[(cmd buf) "\fq \") \"\n\"\"!\n2\n\"2!!q \nceb# ՔՕ{P!g!~!ܘz !~\n!*Ce`{ \") +" [nil ret pf cf buf buffer-file-name ex-next t string-match "[^\\]%\\|\\`%" cmd error "No current file to substitute for `%%'" "[^\\]#\\|\\`#" "No alternate file to substitute for `#'" get-buffer-create vip-ex-tmp-buf-name erase-buffer re-search-forward "%\\|#" match-data 0 char data vip-looking-back "\\\\" replace-match store-match-data "%" message "%s"] 4]) (defalias 'vip-get-ex-file #[nil "Nj)  % \"!,\n*͉)" [nil prompt ex-file ex-variant ex-append ex-offset ex-cmdfile ((byte-code "qw!1!'Ș'\nuw1\fuw!D\nuw!gu`!!!`!{uwם`dS{ژۂ\"ޔޕO`dS|dbxe`{!‡" [vip-ex-work-buf " " nil looking-at "!" vip-looking-back "[ ]" ex-token "read" t ex-variant 1 ex-cmdfile ">>" ex-append 2 "+" set-mark re-search-forward "[ \n]" backward-char mark ex-offset ("read" "write" "edit" "visual" "next") ex-file string-match "edit" "[^ \n]+\\([ ]+[^ \n]+\\)*" "[^ \n]+" vip-incomplete-ex-cmd 0 "" " \n" prompt] 3)) vip-last-ex-prompt vip-incomplete-ex-cmd vip-ex-read-file-name format ":%s " ""] 4]) (defalias 'vip-complete-filename-or-exit #[nil " ! !c " [t vip-keep-reading-filename ex-cmd-accepts-multiple-files-p ex-token exit-minibuffer vip-looking-back "^[ ]*!.*" ex-cmdfile " " nil minibuffer-complete-word] 2 nil nil]) (defalias 'vip-handle-! #[nil " \n! ĝ c" [buffer-string vip-abbreviate-file-name default-directory ex-token ("read" "write") erase-buffer "!"] 3 nil nil]) (defalias 'ex-cmd-accepts-multiple-files-p #[(token) "" [token ("edit" "next" "Next")] 2]) (defalias 'vip-ex-read-file-name #[(prompt) " !\n  \f\"͉s P#\"HQ TUabRm!+ \" \"ٝ \" TP O." ["" str copy-keymap minibuffer-local-completion-map nil beg end cont val vip-add-keymap ex-read-filename-map vip-emacs-p read-file-name-map t vip-keep-reading-filename read-file-name prompt default-directory string-match " " "\\\"" ex-cmd-accepts-multiple-files-p ex-token "[^ ]" "[ ]*$" ("read" "write") "[ ]*!" ex-cmdfile vip-last-ex-prompt " !" 0] 6]) (defalias 'vip-execute-ex-command #[nil " ˜\f Ę! ǘ ɘ( ʘ1 ̘: ΘC ИL ҘU Ԙ_! ֘h ؘq ٘z ۘ! ݘ! ?! ᘃ! 䘃 昃 蘃 ꘃ! 옃     ܉\" & 1@ A>@ BJ! Ca\\D E FxsE D GH IJ KL MN O PQ! RS TQ! US! VQ! W X YZ [#\\ ]1Ձ^! _?Ձ`! aK! bX܉\" cx dx ex fgh \" i jgk \" l m n ogp \"gq r#" [vip-deactivate-mark ex-token "args" ex-args "copy" ex-copy nil "cd" ex-cd "chdir" "delete" ex-delete "edit" ex-edit "file" vip-info-on-file "goto" ex-goto "help" ex-help "join" ex-line "kmark" ex-mark "mark" "map" ex-map "move" t "next" ex-next ex-cycle-other-window "Next" "RelatedFile" ex-next-related-buffer 1 "put" ex-put "pwd" ex-pwd "preserve" ex-preserve "PreviousRelatedFile" -1 "quit" ex-quit "read" ex-read "recover" ex-recover "rewind" ex-rewind "submitReport" vip-submit-report "set" ex-set "shell" ex-shell "source" ex-source "sr" ex-substitute "substitute" "suspend" suspend-emacs "stop" "transfer" "buffer" vip-switch-to-buffer-other-window vip-switch-to-buffer "Buffer" "tag" ex-tag "undo" vip-undo "unmap" ex-unmap "version" vip-version "visual" "write" ex-write "Write" save-some-buffers "wq" "WWrite" "xit" "yank" ex-yank "!" ex-command "=" ex-line-no ">" "right" "<" "left" "&" "~" "append" "change" "insert" "open" error "`%s': Obsolete command, not supported by Viper" "abbreviate" "unabbreviate" "`%s': Vi abbrevs are obsolete. Use the more powerful Emacs abbrevs" "list" "print" "z" "#" "`%s': Command not implemented in Viper" "`%s': %s" vip-BadExCommand] 4]) (defalias 'vip-undisplayed-files #[nil " \"" [mapcar #[(b) " !?* ! )\f) !Oɘ?())" [get-buffer-window b buffer-file-name f ex-cycle-through-non-files buffer-name s 0 1 " "] 4] buffer-list] 3]) (defalias 'ex-args #[nil " \" @\f @$ T A \f.!2ʋ)+" [vip-undisplayed-files "" 1 file-count args l format "%s %d) %s\n" message "All files are already displayed" ((byte-code "!!\f!!!! " [" *vip-info*" princ "\n\nThese files are not displayed in any window.\n" "\n=============\n" args "\nThe numbers can be given as counts to :next. " "\n\nPress any key to continue...\n\n" vip-read-event] 3))] 6]) (defalias 'ex-cd #[nil " ˜  !!" [vip-get-ex-file ex-file "" "~" file-name-as-directory expand-file-name default-directory] 3]) (defalias 'ex-copy #[(del-flag) " \n@\nA@\fb \"!`\"\n,`!\"3`!\" ]ΐ\nJJP!U`!{!֏) Ujebp by!c+" [vip-default-ex-addresses vip-get-ex-address ex-addresses beg end address push-mark t vip-enlarge-region mark del-flag kill-region copy-region-as-kill ex-flag "*copy text*" princ ex-g-flag ex-g-variant current-kill 0 nil (byte-code "!!)" [read-string "[Hit return to continue] " kill-buffer "*copy text*"] 2) ((quit (byte-code "!)\"" [kill-buffer "*copy text*" signal quit nil] 3))) 1] 5]) (defalias 'ex-delete #[nil " \n@\nA@ \fV! \f\"  2`! Sy6\f!`!\" Zΐ`!{!ҏ!)\"t`!#!`!$\"`!\"+" [vip-default-ex-addresses vip-get-ex-buffer ex-addresses beg end error vip-FirstAddrExceedsSecond vip-enlarge-region exchange-point-and-mark ex-count set-mark mark t ex-flag " *delete text*" princ nil (read-string "[Hit return to continue] ") ((quit (byte-code "!)!" [kill-buffer " *delete text*" error ""] 2))) kill-buffer ex-buffer vip-valid-register (Letter) vip-append-to-register copy-to-register vip-InvalidRegister kill-region] 5]) (defalias 'ex-edit #[(&optional file) " \nØ\f !$\nØ$!ȉ \n\fU @ \"\n Up!R\f\"\n U  r\n!l!p!r \"*\n!\n! eb!܋ by \n\"" [file vip-get-ex-file ex-file "" buffer-file-name vip-abbreviate-file-name error vip-NoFileSpecified nil do-edit msg 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 vip-change-state-to-vi switch-to-buffer ex-offset ((byte-code "qed| ±eb" [vip-ex-work-buf ex-offset "\n"] 2)) vip-get-ex-address 0 ex-fixup-history vip-last-ex-prompt] 3]) (defalias 'ex-find-file #[(filespec) " \"\f ! !)" ["[^a-zA-Z0-9_.-/,\\]" nonstandard-filename-chars string-match filespec ex-nontrivial-find-file-function find-file] 3]) (defalias 'ex-global #[(variant) "\n\n  \"\"\" . \")˘I\fB !O\fO\f\\deD_ @A@V!\"  ym o`Yy`!!#!\n! !T B)yoljy+㋈@b!SA-" [ex-token gcommand ex-g-flag ex-g-variant error "`%s' within `global' is not allowed" variant nil t vip-get-ex-pat "`%s': Missing regular expression" "" vip-s-string vip-NoPrevSearch ex-g-pat ex-addresses vip-default-ex-addresses 0 beg end com-str mark-count marks vip-FirstAddrExceedsSecond vip-enlarge-region exchange-point-and-mark point-marker limit cont vip-backward-char-carefully set-mark re-search-backward mark found -1 ((byte-code "q`TdS{‡" [vip-ex-work-buf com-str nil] 2)) vip-ex] 6]) (defalias 'ex-goto #[nil "`B`\"@by" [ex-addresses nil push-mark t 0] 3]) (defalias 'ex-line #[(com) " \n@\nA@ V! \"  3`! y Qΐ`!{!ӏ!)Z`!#`)\fSby+Ç" [vip-default-ex-addresses vip-get-ex-count ex-addresses nil point beg end error vip-FirstAddrExceedsSecond vip-enlarge-region exchange-point-and-mark ex-count set-mark ex-flag " *text*" princ mark t (byte-code "! `!#" [read-string "[Hit return to continue] " ex-line-subr com mark t] 5) ((quit (ding))) kill-buffer ex-line-subr com 0] 5]) (defalias 'ex-line-subr #[(com beg end) ";\n ^bm?:`\n ]Wh`\n ]X m y``S| ȘGɘh\n ^\n ]ȘY \\ [#\n ]b " [com "join" beg end nil 1 ex-variant fixup-whitespace "right" "left" indent-rigidly vip-shift-width vip-forward-char-carefully] 5]) (defalias 'ex-mark #[nil "\n\n`BË\n@b ZT!*" [nil char ex-addresses ((byte-code "qw!'guw!-\n #-\n\"‡" [vip-ex-work-buf " " nil looking-at "[a-z]" char 1 "[\n|]" error "`%s': %s" ex-token vip-SpuriousText "`%s' requires a following letter"] 4)) point-to-register 97] 3]) (defalias 'ex-next #[(cycle-other-window &optional find-alt-file) "" [ex-edit (byte-code " G !!Ș-\"-!\"I!U:\nWI!I \nVq b @b AV\nSVL AL z @ @ @! ! @!\"!\"*!*" [nil l count find-alt-file vip-get-ex-file char-or-string-p ex-offset ex-file "" string-match "^[0-9]+$" ex-edit t throw string-to-int 0 1 error "Usage: `next ' (count >= 0)" vip-undisplayed-files get-file-buffer cycle-other-window get-lru-window selected-window w window-buffer b set-window-buffer bury-buffer ex-fixup-history vip-last-ex-prompt "Not that many undisplayed files"] 5)] 2]) (defalias 'ex-next-related-buffer #[(direction &optional no-recursion) " \n\" ! ʼn \n !( !V,! ;8 \" !J !J !`!`!!l  !!#p\n\"?!?!\" !!! !勈!狈q\n) )." [vip-ring-rotate1 vip-related-files-and-buffers-ring direction vip-current-ring-item selected-window nil wind buf skip-rest old-win old-ring file-or-buffer-name 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" vip-abbreviate-file-name expand-file-name no-recursion t ex-next-related-buffer norecursion vip-get-visible-buffer-window get-lru-window vip-xemacs-p visible set-window-buffer vip-window-display-p raise-frame window-frame ((byte-code " !!" [select-window wind sit-for 1] 2)) select-window ((byte-code " !!" [select-window wind sit-for 1] 2)) point-marker vip-local-search-start-marker] 7]) (defalias 'ex-preserve #[nil "!!" [message "Autosaving all buffers that need to be saved..." do-auto-save t] 2]) (defalias 'ex-put #[nil "`\n@  bo! !)" [ex-addresses point vip-get-ex-buffer ex-buffer vip-use-register vip-Put-back 1 vip-put-back] 2]) (defalias 'ex-pwd #[nil " !" [message default-directory] 2]) (defalias 'ex-quit #[nil "q! u)\fW p!" [vip-ex-work-buf looking-at "!" 1 vip-expert-level 3 save-buffers-kill-emacs kill-buffer] 2]) (defalias 'ex-read #[nil " ` @b o!m!y;ɘ;\n7\f!\n Np\" \"S!*\"" [vip-get-ex-file ex-addresses nil command point vip-add-newline-at-eob-if-necessary 1 ex-variant ex-file "" buffer-file-name error vip-NoFileSpecified ex-cmdfile ex-expand-filsyms shell-command t insert-file-contents ex-fixup-history vip-last-ex-prompt] 4]) (defalias 'ex-fixup-history #[(&rest args) "\n#\fAB" [mapconcat identity args " " vip-ex-history] 4]) (defalias 'ex-recover #[nil " \n \"ǘ' !-! C C\fC!!" [vip-get-ex-file ex-append ex-offset error "`recover': %s" vip-SpuriousText ex-file "" buffer-file-name "This buffer isn't visiting any file" expand-file-name buffer-modified-p ex-variant "No write since last change (:rec! overrides)" recover-file] 3]) (defalias 'ex-rewind #[nil "!" [message "Use `:n ' instead. Counts are obtained from the `:args' command"] 2]) (defalias 'ex-set-read-variable #[nil " !É # ##!'!!\f3!\"\"Q!!3!3 ," [copy-keymap minibuffer-local-completion-map t nil batch str cursor-in-echo-area define-key " " minibuffer-complete-and-exit "=" exit-minibuffer vip-set-unread-command-events ex-get-inline-cmd-args "[ ]*[a-zA-Z]*[ ]*" " " 13 message ":set [= ]" sit-for 2 string-match "^[ \\t\\n]*$" completing-read ":set " ex-variable-alist ":set " ""] 5]) (defalias 'ex-set #[nil " Ɖ \n \f ѝ8 ԝO!؝b ڝy!۝ݝޝᝃ㝃䝃权睃 靃=*\"!0!\"!#MZm !Ձ@!AB\"CDE\")\"F\f%\nG\f$  3HIJ\"!3K\nJ #A3VKL\fPJ #3KJ #KJ #MNO\"QP\"S$QR\n!@!AV{ST!SU!.\n" [ex-set-read-variable 0 "setq" t "; don't touch or else..." "([ ]*add-hook[ ]+'vip-insert-state-hooks[ ]+'turn-on-auto-fill.*)" nil orig-var val2 lisp-cmd-del-pattern actual-lisp-cmd delete-turn-on-auto-fill-pattern auto-cmd-label ask-if-save set-cmd val var ("ai" "autoindent") "vip-auto-indent" "t" ("gai" "global-autoindent") kill-local-variable vip-auto-indent "setq-default" ("noai" "noautoindent") "nil" ("gnoai" "global-noautoindent") ("ic" "ignorecase") "vip-case-fold-search" ("noic" "noignorecase") ("ma" "magic") "vip-re-search" ("noma" "nomagic") ("ro" "readonly") "buffer-read-only" ("noro" "noreadonly") ("sm" "showmatch") "blink-matching-paren" ("nosm" "noshowmatch") ("ws" "wrapscan") "vip-search-wrap-around-t" ("nows" "nowrapscan") cursor-in-echo-area message ":set %s = " vip-set-unread-command-events "" sit-for 2 read-string format ":set %s = " ex-fixup-history "set" ("sw" "shiftwidth" "ts" "tabstop" "gts" "global-tabstop" "wm" "wrapmargin") (byte-code " !@ #" [read-from-string val val2 error "%s: Invalid value, numberp, %S" var] 4) ((error (error "%s: Invalid value, numberp, %S" var val))) ("sw" "shiftwidth") "vip-shift-width" ("ts" "tabstop") "tab-width" ("gts" "global-tabstop") tab-width ("wm" "wrapmargin") fill-column "fill-column" "(- (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 " vip-custom-file-name vip-save-string-in-file "(add-hook 'vip-insert-state-hooks 'turn-on-auto-fill) " "%s %s %s" string-match "^[ ]*$" "%S" eval read-from-string auto-fill-mode 1 -1] 11]) (defalias 'ex-get-inline-cmd-args #[(regex-forw &optional chars-back replace-str) "qeb\n#`db\"x&x`b F#F # 1 b {+" [vip-ex-work-buf re-search-forward regex-forw nil t end beg chars-back " \n " replace-str " +" replace-match vip-forward-char-carefully] 4]) (defalias 'ex-shell #[nil " " [shell] 1]) (defalias 'ex-help #[nil "" [nil (byte-code "!!\fł!!" [pop-to-buffer get-buffer-create "*info*" info vip-xemacs-p "viper.info" "viper" message "Type `i' to search for a specific topic"] 3) ((error (byte-code "!ǂ\"!" [beep 1 " *vip-info*" 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. " vip-xemacs-p "X" ""] 5)))] 3]) (defalias 'ex-source #[nil " ˜ \f! !" [vip-get-ex-file ex-file "" load vip-custom-file-name] 2]) (defalias 'ex-substitute #[(&optional repeat r-flag) "  \n \nD\f. 0;:! !q\nӘP R\n  \nj\nq\n\n\f!\n՘qq @b`!Sy`!BB)``BBA@B@A@\"`!]b )!`!^b`!W{ yEl< #<(!`\n;4!\n\" M! #ra!r`\n;m!\n\" -by!." [nil vip-case-fold-search repl pat delim case-fold-search matched-pos opt-c opt-g repeat ex-token vip-get-ex-pat r-flag vip-s-string ex-reg-exp error "No previous pattern to use in substitution" ex-repl string-to-char "" vip-get-ex-opt-gc "g" t vip-get-ex-count ex-count ex-addresses set-mark mark eol-mark end beg vip-enlarge-region point-marker limit 0 re-search-forward y-or-n-p "Replace? " "Can't perform Ex substitution: No previous replacement pattern" replace-match vip-forward-char-carefully "Can't repeat Ex substitution: No previous regular expression" message "done"] 8]) (defalias 'ex-tag #[nil "‹ Ø  ȏ)" [nil tag ((byte-code "qw`!w!`{‡" [vip-ex-work-buf " " nil set-mark "^ | \n" mark t tag] 2)) "" ex-tag vip-change-state-to-emacs conds (byte-code " \" ! " [tag "" find-tag ex-tag t find-tag-other-window vip-change-state-to-vi] 3) ((error (byte-code " \n!" [vip-change-state-to-vi vip-message-conditions conds] 2)))] 3]) (defalias 'ex-write #[(q-flag) "! @ A@ĉ \n \n V+ !B\n \"`!#dӘW W \"!e\nUbd UӘo s!!!!P!   !6 \n $6! !Ď\"!!(\n \"`!{ q! )!dbc ed$ q! !* CC PP!.d/Wa dp!." [vip-default-ex-addresses t vip-get-ex-file ex-addresses nil writing-whole-file file-exists region writing-same-file temp-buf beg end error vip-FirstAddrExceedsSecond ex-cmdfile vip-enlarge-region shell-command-on-region mark ex-file "" 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-nondirectory file-exists-p buffer-modified-p message "(No changes need to be saved)" save-buffer ex-write-info buffer-disable-undo create-file-buffer yes-or-no-p "File %s exists. Overwrite? " "Quit" set-visited-file-name erase-buffer ex-append insert-file-contents set-buffer-modified-p kill-buffer set-visited-file-modtime q-flag vip-expert-level 2 save-buffers-kill-emacs] 7]) (defalias 'ex-write-info #[(exists file-name beg end) " !\f ł Td^\" Z%" [message "`%s'%s %d lines, %d characters" vip-abbreviate-file-name file-name exists "" " [New file]" count-lines beg end] 8]) (defalias 'ex-yank #[nil " \n@\nA@ \fV! \f\"  +\n/!\f@`!\fSyD\f!`!\"V\"\"p`!#!`!$\"`!\"+" [vip-default-ex-addresses vip-get-ex-buffer ex-addresses beg end error vip-FirstAddrExceedsSecond vip-enlarge-region exchange-point-and-mark ex-g-flag ex-g-variant "Can't execute `yank' within `global'" ex-count set-mark mark t ex-flag "`yank': %s" vip-SpuriousText ex-buffer vip-valid-register (Letter) vip-append-to-register copy-to-register nil vip-InvalidRegister copy-region-as-kill] 5]) (defalias 'ex-command #[nil "‹ p\"GV. OƘ.* OP.! \n< !o\n@\nA@\f \fP \f\fb !`!\"`! $)\fb*)" [nil command ((byte-code "qw`d{" [vip-ex-work-buf " " nil command] 2)) ex-expand-filsyms 0 1 "!" vip-ex-last-shell-com error "No previous shell command" ex-addresses shell-command beg end set-mark vip-enlarge-region mark t shell-command-on-region] 6]) (defalias 'ex-line-no #[nil "e \fd @\"T\"" [message "%d" count-lines ex-addresses] 5]) (defalias 'vip-info-on-file #[nil "!!Ée!\" ' !P+ PU<T>ed\"`dSiT P҂Q&G G\\\\ !Wl \fQ!nً-" [vip-line-pos start end nil info file lines pos2 pos1 count-lines buffer-file-name vip-abbreviate-file-name ":" 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 " " ((byte-code " ư! !" [" *vip-info*" princ "\n" file "\n\n " info "\n\n\nPress any key to continue...\n\n" vip-read-event kill-buffer] 7))] 9 nil nil]) (provide (quote viper-ex))