anchor.diff:        fSymbols[CPP] := na;
         fSymbols[CPR] := na;
         fSymbols[CPN] := na;
  +      fSymbols[CPO] := na;
       end;
       fSymbols[CPFS] := '';
       for i := 0 to fProj.Sources.Count-1 do
  
positive.code:   (**
     * Enumerates the symbol kinds, used to index an associative array.
     *)
    TCESymbol = (CAF, CAP, CFF, CFP, CI, CPF, CPP, CPR, CPN, CPFS);
  
    (**
     * TCESymbolExpander is designed to expand Coedit symbolic strings,
  
negative.code:         'CPF',  'CurrentProjectFile':   result += fSymbols[CPF];
          'CPFS', 'CurrentProjectFiles':  result += fSymbols[CPFS];
          'CPN',  'CurrentProjectName':   result += fSymbols[CPN];
          'CPO',  'CurrentProjectOutput': result += fSymbols[CPO];
          'CPP',  'CurrentProjectPath':   result += fSymbols[CPP];
          'CPR',  'CurrentProjectRoot':   result += fSymbols[CPR];
        end;
  