anchor.diff:  
   procedure TCESynMemo.KeyDown(var Key: Word; Shift: TShiftState);
   begin
  +  if Key in [VK_PRIOR, VK_NEXT] then
  +    fPositions.store;
  +  //
     inherited;
     identifierToD2Syn;
     //
  
positive.code: begin
    identifierToD2Syn;
    fModified := true;
    subjDocChanged(TCEMultiDocSubject(fMultiDocSubject), self);
  end;
  
  
negative.code: begin
    inherited;
    if (Button = mbMiddle) and (Shift = [ssCtrl]) then
      Font.Size := fStoredFontSize
    else if Button = mbExtra1 then
      fPositions.back
    else if Button = mbExtra2 then
      fPositions.next
    else if Button = mbLeft then
      fPositions.store;
  end;
  
  initialization
  