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
337
338
339
340
341
342

343
344
345
346
347
348
349
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]} {