;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Thu Jun 8 20:41:14 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/viper-ex.el ;;; emacs version 19.28.93.6. ;;; 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.28.90"))) (error "`viper-ex.el' was compiled for Emacs 19.29 or later")) (byte-code "!\fB !\fB\fB\n\fB\f\fB!1\fB!>\fB!K\fB!X\fB!e\fB!r\fB!\fB!\fB!\fB!\fB!\fBχ" [require viper-util " *ex-working-space*" vip-ex-work-buf-name current-load-list 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") ("tab-stop-local") ("tsl") ("tabstop") ("ts") ("showmatch") ("sm") ("shiftwidth") ("sw") ("shell") ("sh") ("readonly") ("ro") ("nowrapscan") ("nows") ("noshowmatch") ("nosm") ("noreadonly") ("noro") ("nomagic") ("noma") ("noignorecase") ("noic") ("noautoindent") ("noai") ("magic") ("ma") ("ignorecase") ("ic") ("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) #@111 Shell in which to interpret wildcards. Must be csh, tcsh, or similar. Bourne shell doesn't seem to work here. (defconst ex-find-file-shell "csh" (#$ . 1921)) #@43 *Options to pass to `ex-find-file-shell'. (defvar ex-find-file-shell-options "-f" (#$ . -2085)) (byte-code "! B! B!  B!- B!: B!G B!T B‡" [boundp ex-tag nil current-load-list 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 (#$ . -2409)) #@71 *Cycle through *scratch* and other buffers that don't visit any file. (defconst ex-cycle-through-non-files nil (#$ . -2610)) (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ԉ%!!8u`!+l+!..#)`U)+)!`!{!3u!u`!+l~+~!..#)g`U)n+!!HuH)`S!{!u!u!g!u!u!!g!u!@A!" [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\\)" "[^\\\\]\\(\\\\\\\\\\)*\\\\/" str re-search-backward 0 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 "ɰ ΰ ߰! !\"㋈\"$$#)Y`U)b  $$#)u`U)~c!$$#)`U) c+" [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)) str re-search-backward nil 0 exit-minibuffer " "] 35 nil nil]) (defalias 'ex-cmd-complete #[nil "x`)\fUD  #)*`ǕU)D  #)@`ǕU)  #)V`ǕU)s  #)l`ǕU)s!?А!! `{\n\"=! =! b`d| c P\") GVА !!!-" [nil completion-result string-to-complete compl-list dist save-pos "[a-zA-Z!=>&~]" 0 "\\([ ]*['`][ ]*[a-z]*\\)" str re-search-backward t "^[ ]*[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 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 format "`%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`!l##e֝b!edb\"#){`ەU)>>)!`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" "[^\\\\]\\(\\\\\\\\\\)*\\\\%c" str re-search-backward 0 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#)k`ՕU)w!!ݘ !\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 "\\\\" str re-search-backward 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!:#)`ɕU)0\nuw:\fuw!M\nuw!pu`!!!`!{uw؝`dS{ۘ܂\"ɔɕO`dS|dbxe`{!‡" [vip-ex-work-buf " " nil looking-at "!" "[ ]" str re-search-backward t 0 ex-variant 1 ex-cmdfile ">>" ex-append 2 "+" set-mark re-search-forward "[ \n]" backward-char mark ex-offset ex-token ("read" "write" "edit" "visual" "next") ex-file string-match "edit" "[^ \n]+\\([ ]+[^ \n]+\\)*" "[^ \n]+" vip-incomplete-ex-cmd "" " \n" prompt] 4)) vip-last-ex-prompt vip-incomplete-ex-cmd vip-ex-read-file-name format ":%s " ""] 4]) (defalias 'vip-complete-filename-or-exit #[nil " ! " [t vip-keep-reading-filename ex-cmd-accepts-multiple-files-p ex-token exit-minibuffer minibuffer-complete-word] 2 nil nil]) (defalias 'ex-cmd-accepts-multiple-files-p #[(token) "" [token ("edit" "next" "Next")] 2]) (defalias 'vip-ex-read-file-name #[(prompt) " !\n \"ˉ\fZ\f P# ;<HIR\fT!! \" \"֝ \" TP O." ["" str copy-keymap minibuffer-local-completion-map nil beg end cont val vip-add-keymap ex-read-filename-map t vip-keep-reading-filename read-file-name prompt default-directory " " ex-cmd-accepts-multiple-files-p ex-token string-match "[^ ]" "[ ]*$" ("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 fghi \"! j kghl \"! m n o pghq \"!ghr s#!" [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 format "`%s': Obsolete command, not supported by Viper" "abbreviate" "unabbreviate" "`%s': Vi-style abbrevs are obsolete. Use the more powerful Emacs abbrevs" "list" "print" "z" "#" "`%s': Command not implemented in Viper" "`%s': %s" vip-BadExCommand] 5]) (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ΐ`!{!ҏ!)\"`!!;!\f{P\"+!`!$\"`!\"+" [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) start reg set-register get-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 abbreviate-file-name error vip-NoFileSpecified nil do-edit msg buffer-modified-p format "Buffer %s is modified. Edit buffer? " 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) "\"u !q \f\"&eb VQw!E!`!{#)ed\"ebmq`!{\f!\nq!Y)|! !," [nil status tmp-buf filebuf f string-match "[^a-zA-Z0-9_.-/]" filespec get-buffer-create vip-ex-tmp-buf-name erase-buffer call-process ex-find-file-shell t ex-find-file-shell-options "-c" format "echo %s | tr ' ' '\\012'" 0 " \nj" looking-at "echo:" vip-forward-word 1 error "%S%s" vip-line-pos end reverse-region find-file forward-to-indentation find-file-noselect switch-to-buffer] 10]) (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 cycle-other-window get-lru-window selected-window w window-buffer b set-window-buffer get-file-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" 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-emacs-p window-system device-type selected-device (tty stream) 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 omy 8ǘ84\n! F\"K!)\"" [vip-get-ex-file ex-addresses point vip-add-newline-at-eob-if-necessary 1 ex-variant ex-file "" buffer-file-name error vip-NoFileSpecified ex-cmdfile 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 ѝ2ԝB֝R؝bٝr۝ܝޝߝᝃ❃䝃=%\"!!!\"!#%~9!~L ~g!\"~@~AB\")\"C\f%\nD\f$  EFG\"!H\nG #VHI\fPG #HG #HG #JKL\"M\"$!NO\n!@!EV>PQ!EPR!.\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" ("noai" "noautoindent") "nil" ("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 format ":set %s = " vip-set-unread-command-events "" sit-for 2 read-string ":set %s = " ex-fixup-history "set" ("sw" "shiftwidth" "ts" "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") kill-local-variable tab-width "tab-width" "setq-default" ("tsl" "tab-stop-local") ("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-info-file-name 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} yFl= #=(!`\n;4!\n։# N! #tb!t`\n;n!\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 \"`!#HӘW W \"!e\nUbd UӘo s!!   ! \n $! !Ď\"!!\f\n \"`!{ q! '!dbc ed$ q! !* '' 44!,H-WE Hp!." [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-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" 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\"\"`!!;!\f{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) start reg set-register get-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 "  !P Pe!\"ed\"`dSiT 1΂2&G\nG\\\\ !WM\n Q!OՋ*" [nil info file buffer-file-name abbreviate-file-name ":" buffer-name " [Not visiting any file]:" format "line=%d/%d pos=%d/%d col=%d %s" count-lines vip-line-pos end 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] 7))] 9 nil nil]) (provide (quote viper-ex))