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 Side-by-Side Diffs Ignore Whitespace Patch

Changes to fsl.

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