anchor.diff:  end;
   
   procedure TCEEditorOptions.applyChangeToEditor(anEditor: TCESynMemo);
  +var
  +  i, j: Integer;
  +  shc: TCEPersistentShortcut;
  +  kst: TSynEditKeyStroke;
   begin
     anEditor.defaultFontSize := font.Size;
     anEditor.Font.Assign(font);
  
positive.code:   D2Syn.Assign(fD2Syn);
    TxtSyn.Assign(fTxtSyn);
  end;
  
  {$ENDREGION}
  
  {$REGION ICEMultiDocObserver ----------------------------------------------------}
  
negative.code: procedure TCEEditorOptions.docClosing(aDoc: TCESynMemo);
  begin
  end;
  {$ENDREGION}
  
  {$REGION ICEEDitableShortcut ---------------------------------------------------}
  function TCEEditorOptions.scedWantFirst: boolean;
  begin
    result := fShortCuts.Count > 0;
    fShortcutCount := 0;
  end;
  
  function TCEEditorOptions.scedWantNext(out category, identifier: string; out aShortcut: TShortcut): boolean;
  var
    shrct: TCEPersistentShortcut;
  begin
    shrct     := TCEPersistentShortcut(fShortCuts.Items[fShortcutCount]);
    category  := 'Code editor';
    identifier:= shrct.actionName;
    aShortcut := shrct.shortcut;
    //
    fShortcutCount += 1;
    result := fShortcutCount < fShortCuts.Count;
  end;
  
  procedure TCEEditorOptions.scedSendItem(const category, identifier: string; aShortcut: TShortcut);
  var
    i: Integer;
    shc: TCEPersistentShortcut;
  begin
    if category <> 'Code editor' then exit;
    //
    for i:= 0 to fShortCuts.Count-1 do
    begin
      shc := TCEPersistentShortcut(fShortCuts.Items[i]);
      if shc.actionName <> identifier then
        continue;
      shc.shortcut:= aShortcut;
      break;
    end;
  end;
  {$ENDREGION}
  
  {$REGION ICEEditableOptions ----------------------------------------------------}
  