Fossil Wrapper

Check-in [ba3a1b7d98]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:small fix.
Timelines: family | ancestors | descendants | both | dresden
Files: files | file ages | folders
SHA1: ba3a1b7d983c99fb392a5d5841ce967861bdd535
User & Date: j 2013-01-01 23:54:39
Context
2013-01-05
20:21
fixed comment sytnax bug. check-in: 6c76c5ec8d user: j tags: dresden
2013-01-01
23:54
small fix. check-in: ba3a1b7d98 user: j tags: dresden
23:48
merged from trunk. check-in: 38deb932f7 user: j tags: dresden
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to fsl.

336
337
338
339
340
341
342

343
344
345
346
347
348
349
# (maybe the \n should go away?)
#
# result: a new (probably shorter) list with the unwrapped lines
# (multiple spaces squeezed) 
#-----------------------------------------------------------------------
   set len [llength $records]
   set i 0

   while {$i < $len} {
      set record [lindex $records $i]
      incr i
      if {[regexp {^[0-9]} $record]} {
         set line [lindex $records $i] 
         set line [string trimright "$line"]
         while {[regexp {^ } $line]} {







>







336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
# (maybe the \n should go away?)
#
# result: a new (probably shorter) list with the unwrapped lines
# (multiple spaces squeezed) 
#-----------------------------------------------------------------------
   set len [llength $records]
   set i 0
   set out {}
   while {$i < $len} {
      set record [lindex $records $i]
      incr i
      if {[regexp {^[0-9]} $record]} {
         set line [lindex $records $i] 
         set line [string trimright "$line"]
         while {[regexp {^ } $line]} {