;ELC ;;; compiled by cthomp@willow on Thu Aug 12 00:45:33 1993 ;;; from file /era/era-0.80/editor/lisp/pcl-cvs/string.el ;;; emacs version 19.8 (beta8) Lucid. ;;; bytecomp version 2.15; 14-jul-93. ;;; 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"))) (error "This file was compiled for Emacs 19.")) (provide 'string) (fset 'string-replace-match #[(regexp string newtext &optional literal global) "À ÂŽ «ÊÄÅƉ \nË   #«¤Å”Å•\n  O«„ª‚Ð Q\n ªR­‰\n  ÆOP,ª¢Ë  Å#??­— ʼn”O«„ª‚Ð  Å•ÆOQ*‡" [match-data data ((store-match-data data)) global "" 0 nil matchend matchbeginning start result string-match regexp string literal newtext elib-string-expand-newtext] 5 "\ Replace first match of REGEXP in STRING with NEWTEXT. If no match is found, nil is returned instead of the new string. Optional arg LITERAL non-nil means to take NEWTEXT literally. If LITERAL is nil, character `\\' is the start of one of the following sequences: \\\\ will be replaced by a single \\. \\& will be replaced by the text which matched the regexp. \\N where N is a number and 1 <= N <= 9, will be replaced by the Nth subexpression in REGEXP. Subexpressions are grouped inside \\( \\). Optional arg GLOBAL means to replace all matches instead of only the first."]) (fset 'elib-string-expand-newtext #[nil "À G‰ W«Ù H‰ÇU«Á T‰H‰ÈU«‰ À”À•Oª¯ÊY«ŸËX«™ÌZ‰ ”«‹  ” •OªÂ)ªŠÎ!ª„Î!)P T‰ª# +‡" [0 newtext "" expanded-newtext len pos c 92 38 string 49 57 48 n char-to-string] 5]) (fset 'string-split #[(pattern string &optional limit) "À ÂŽÃ \" ÇOCÉ\n­‚Ç•‰ «± ¨«‡\n W«¥Ã  #«Ç”\nT\n  OBÇ•‰ ªO ¨«‡\n W«Ž «Š  ÍOBŸ.‡" [match-data data ((store-match-data data)) string-match pattern string start 0 result 1 count end limit nil] 5 "\ Splitting on regexp PATTERN, turn string STRING into a list of substrings. Optional third arg LIMIT (>= 1) is a limit to the length of the resulting list."])