CVS: sml/src/smlnj-lib/HTML html-elements-fn.sml,1.2,1.3

Update of /cvsroot/smlnj/sml/src/smlnj-lib/HTML
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10294/HTML

Modified Files:
	html-elements-fn.sml 
Log Message:
  Replaced uses of Substring.all with Substring.full.


Index: html-elements-fn.sml
===================================================================
RCS file: /cvsroot/smlnj/sml/src/smlnj-lib/HTML/html-elements-fn.sml,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** html-elements-fn.sml	1 Jun 2000 18:33:54 -0000	1.2
--- html-elements-fn.sml	6 Nov 2005 19:36:15 -0000	1.3
***************
*** 221,225 ****
      fun startTag file (tag, p1, p2) = let
  	  val ctx = {file=file, line=p1}
! 	  val tag' = SS.triml 1 (SS.trimr 1 (SS.all tag))
  	  val (name, attrs) = scanStartTag (ctx, tag')
  	  in
--- 221,225 ----
      fun startTag file (tag, p1, p2) = let
  	  val ctx = {file=file, line=p1}
! 	  val tag' = SS.triml 1 (SS.trimr 1 (SS.full tag))
  	  val (name, attrs) = scanStartTag (ctx, tag')
  	  in
***************
*** 237,241 ****
      fun endTag file (tag, p1, p2) = let
  	  val ctx = {file=file, line=p1}
! 	  val name = SS.triml 2 (SS.trimr 1 (SS.all tag))
  	  in
  	    case (find name)
--- 237,241 ----
      fun endTag file (tag, p1, p2) = let
  	  val ctx = {file=file, line=p1}
! 	  val name = SS.triml 2 (SS.trimr 1 (SS.full tag))
  	  in
  	    case (find name)



-------------------------------------------------------
SF.Net email is sponsored by:
Tame your development challenges with Apache's Geronimo App Server. Download
it for free - -and be entered to win a 42" plasma tv or your very own
Sony(tm)PSP.  Click here to play: http://sourceforge.net/geronimo.php