[PD-cvs] pd/src desire.tk,1.1.2.562,1.1.2.563

[chunlee]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18221

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
fix to my previous commit


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.562
retrieving revision 1.1.2.563
diff -C2 -d -r1.1.2.562 -r1.1.2.563
*** desire.tk	19 Nov 2006 01:24:24 -0000	1.1.2.562
--- desire.tk	19 Nov 2006 01:46:01 -0000	1.1.2.563
***************
*** 1908,1914 ****
  	set @text [lrange $mess 4 end]
  	set c [lindex $mess 4]
! 	set c_pos [string first $c $mess 0]
! 	set s [string range $mess $c_pos end]
! 	regsub -all {\\} $s "" text
  	set @text $text
  	set @longline 0
--- 1908,1918 ----
  	set @text [lrange $mess 4 end]
  	set c [lindex $mess 4]
! 	if {$c != ""} {
! 		set c_pos [string first $c $mess 0]
! 		set s [string range $mess $c_pos end]
! 		regsub -all {\\} $s "" text
! 	} else {
! 		set text ""
! 	}
  	set @text $text
  	set @longline 0