Permalink
Browse files

Fixed: TBuffer.PeekChar did not reset the JIS state.

  • Loading branch information...
1 parent 008237e commit 3d356f7dbba7c2bde73b0cac733e95a7b9dfb632 @BerndGabriel committed Apr 28, 2012
Showing with 4 additions and 4 deletions.
  1. +3 −0 source/HtmlBuffer.pas
  2. +1 −4 source/ReadHTML.pas
@@ -1032,9 +1032,12 @@ function TBuffer.NextChar: TBuffChar;
function TBuffer.PeekChar: TBuffChar;
var
Pos: Integer;
+ Jis: TBuffJisState;
begin
Pos := Position;
+ Jis := FJis;
Result := NextChar;
+ FJis := Jis;
Position := Pos;
end;
View
@@ -48,8 +48,6 @@
tag was encountered, etc.
LCh:
The next character in the stream to be analyzed. In mixed case.
- Ch:
- The same character in upper case.
LCToken:
A ThtString which is associated with the current token. If Sy is TextSy,
then LCToken contains the text.
@@ -65,8 +63,7 @@
Key Routines:
GetCh:
- Gets the next character from the stream. Fills Ch and LCh. Skips
- comments.
+ Gets the next character from the stream. Fills LCh. Skips comments.
Next:
Gets the next token. Fills Sy, LCToken, Attributes. Calls GetCh so the
next character after the present token is available. Each part of the

0 comments on commit 3d356f7

Please sign in to comment.