Backspace now moves back to the previous link. In addition, if there is no previous page, both a @PREV link and backspace will attempt to get back to the starting KEYWORD before finally resorting to INDEX
This commit is contained in:
parent
8f71d8b564
commit
1a3c6a2f9c
|
@ -364,10 +364,27 @@ Begin
|
||||||
End;
|
End;
|
||||||
End Else Begin
|
End Else Begin
|
||||||
Case Ch of
|
Case Ch of
|
||||||
|
#08 : Begin
|
||||||
|
If LastPos = 0 Then
|
||||||
|
CurKey := Keyword
|
||||||
|
Else Begin
|
||||||
|
CurKey := LastKey[LastPos];
|
||||||
|
Dec (LastPos);
|
||||||
|
End;
|
||||||
|
|
||||||
|
OK := ReadKeywordData;
|
||||||
|
|
||||||
|
If Not OK Then Begin
|
||||||
|
CurKey := 'INDEX';
|
||||||
|
OK := ReadKeywordData;
|
||||||
|
End;
|
||||||
|
|
||||||
|
Break;
|
||||||
|
End;
|
||||||
#13 : If Text[TopPage + CurLine - 1].Links > 0 Then Begin
|
#13 : If Text[TopPage + CurLine - 1].Links > 0 Then Begin
|
||||||
If Text[TopPage + CurLine - 1].Link[CurLPos].Key = '@PREV' Then Begin
|
If Text[TopPage + CurLine - 1].Link[CurLPos].Key = '@PREV' Then Begin
|
||||||
If LastPos = 0 Then
|
If LastPos = 0 Then
|
||||||
CurKey := 'INDEX'
|
CurKey := Keyword
|
||||||
Else Begin
|
Else Begin
|
||||||
CurKey := LastKey[LastPos];
|
CurKey := LastKey[LastPos];
|
||||||
Dec (LastPos);
|
Dec (LastPos);
|
||||||
|
|
Loading…
Reference in New Issue