Minor tidy

git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@16933 72102866-910b-0410-8b05-ffd578937521
This commit is contained in:
Richard Frith-Macdonald 2003-06-17 05:06:00 +00:00
parent ad9e0c2bf3
commit af672f5ec9
2 changed files with 19 additions and 2 deletions

View file

@ -1,3 +1,7 @@
2003-06-17 Chris Vetter <chrisv@web4inc.com?
* Tools/AGSHtml.m: Tidy up formatting of author output.
2003-06-16 13:36 Alexander Malmberg <alexander@malmberg.org>
* Source/GSFormat.m (GSFormat()): Free malloc memory in all cases

View file

@ -755,14 +755,21 @@ static NSMutableSet *textNodes = nil;
{
[buf appendFormat: @"<a href=\"mailto:%@\"><code>", ename];
}
//
// [node firstChild] doesn't look like it points to
// the mail address.
// not sure _where_ it points to though...
//
#if 0
[self outputText: [node firstChild] to: buf];
#endif
if (ename == nil)
{
[buf appendString: @"</code>"];
}
else
{
[buf appendFormat: @"</code></a>", ename];
[buf appendFormat: @"%@</code></a>", ename];
}
}
else if ([name isEqual: @"embed"] == YES)
@ -1032,7 +1039,13 @@ static NSMutableSet *textNodes = nil;
}
if (email != nil)
{
[buf appendString: @"("];
//
// Add a beautifier ' ' otherwise we'll get a
// <dt>John Doe(<a href="mailto:...
// or
// <dt><a href...>John Doe</a>(<a href...
//
[buf appendString: @" ("];
[self outputNode: email to: buf];
[buf appendString: @")"];
}