Partial fix for comma bug in documentation

Hi all,

I have a partial fix for the comma bug in the documentation.

Add this function to brace.lsh in libstd:

( de brace.read-concat-commas ( tags )
  ( let ( ( bracelist () ) )
    ;;  Search list for commas and construct brace list    
    ( for ( i 0 ( 1- ( length tags ) ) )
      ( cond
        ;;  Comma? Do nothing
        ( ( = ( nth i tags ) "," ) nil )
      
        ;;  String?
        ( ( stringp ( nth i tags ) )
          ;; Next element comma?
          ( if ( = ( nth ( 1+ i ) tags ) "," )
            ;;  yes, then concat together and put in list
            ( setq bracelist 
              ( cons ( concat ( nth i tags ) ( nth ( 1+ i ) tags ) ) bracelist ) )
            ;;  no, else
            ( setq bracelist ( cons ( nth i tags ) bracelist ) )
          )
        )        
        ;;  Else, cons other non-string elements unaltered
        ( t ( setq bracelist ( cons ( nth i tags ) bracelist ) ) )
      )
    )
    ( reverse bracelist )
  )
)

Change the end line of the cond in brace.read to:

( t ( brace.read-concat-commas ( brace.read-body ( list ( namedclean tag ) ) ) ) )


This does not work in all circumstances. Will not work for inline documentation tags that
are colored/bolded and text outside of the brace tag syntax.

If anybody has some better way to do this or further fixes, please make some suggestions.

Thanks.


Raymond







__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 



-------------------------------------------------------
SF.Net email is sponsored by: Discover Easy Linux Migration Strategies
from IBM. Find simple to follow Roadmaps, straightforward articles,
informative Webcasts and more! Get everything you need to get up to
speed, fast. http://ads.osdn.com/?ad_id=7477&alloc_id=16492&op=click