forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix, ditto were not always well removed from ddoc

This commit is contained in:
Basile Burg 2015-08-25 17:57:50 +02:00
parent 6b11532e19
commit 031fa42f31
2 changed files with 5 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/ce_dcd.pas
View File

@ -363,12 +363,12 @@ begin
if fTempLines.Count = 0 then if fTempLines.Count = 0 then
updateServerlistening; updateServerlistening;
for str in fTempLines do for str in fTempLines do
begin
i := length(str);
if (i > 4) and (i < 9) and AnsiSameText(str[1..5], 'DITTO') then
continue;
aComment += ReplaceStr(str, '\n', LineEnding); aComment += ReplaceStr(str, '\n', LineEnding);
end; //
aComment := ReplaceText(aComment, 'ditto' + LineEnding + LineEnding, '');
aComment := ReplaceText(aComment, 'ditto', '');
aComment := TrimLeft(aComment);
aComment := TrimRight(aComment);
end; end;
procedure TCEDcdWrapper.getDeclFromCursor(out aFilename: string; out aPosition: Integer); procedure TCEDcdWrapper.getDeclFromCursor(out aFilename: string; out aPosition: Integer);

7
src/ce_synmemo.pas
View File

@ -637,13 +637,6 @@ begin
fCanShowHint := false; fCanShowHint := false;
DcdWrapper.getDdocFromCursor(str); DcdWrapper.getDdocFromCursor(str);
// //
if (length(str) > 0) then
if str[1] = #13 then
str := str[2..length(str)];
if (length(str) > 0) then
if str[1] = #10 then
str := str[2..length(str)];
//
if str <> '' then if str <> '' then
begin begin
fDDocWin.FontSize := Font.Size; fDDocWin.FontSize := Font.Size;