anchor.diff:  end;
   
   procedure TCEMainForm.scedSendItem(const category, identifier: string; aShortcut: TShortcut);
  -begin
  -
  +var
  +  act: TCustomAction;
  +  i: integer;
  +begin
  +  for i:= 0 to Actions.ActionCount-1 do
  +  begin
  +    act := TCustomAction(Actions.Actions[i]);
  +    if act.Category <> category then
  +      continue;
  +    if act.Caption <> identifier then
  +      continue;
  +    act.ShortCut := aShortcut;
  +    break;
  +  end;
   end;
   {$ENDREGION}
   
  
positive.code:   finally
      opts.Free;
    end;
  end;
  
  procedure TCEMainForm.SaveSettings;
  
negative.code:   fname2: string;
    opts: TCEOptions;
  begin
    // old centralized options
    fname1 := getCoeditDocPath + 'options2.txt';
    fname2 := getCoeditDocPath + 'options2.bak';
    opts := TCEOptions.create(nil);
  