Skip to content

Commit bb6c524

Browse files
committed
memoutil: use 2 spaces instead of TAB for indentation
TAB width is too wide for qt.
1 parent 82338ec commit bb6c524

1 file changed

Lines changed: 3 additions & 3 deletions

File tree

frontend/memoutil.pas

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -127,7 +127,7 @@ function Indent(S: string): string;
127127
if S.IsEmpty or S.Trim.IsEmpty then begin
128128
Result := S;
129129
end else begin
130-
Result := #9 + S;
130+
Result := ' ' + S;
131131
end;
132132
end;
133133

@@ -259,8 +259,8 @@ procedure SmartKeyDown(Memo: TMemo; var Key: word; Shift: TShiftState);
259259
end;
260260
end else begin
261261
if Memo.SelLength = 0 then begin
262-
// No selection. Insert a TAB.
263-
// Memo.SelText := #9; Key := 0;
262+
// No selection. Insert 2 spaces.
263+
Memo.SelText := ' '; Key := 0;
264264
end else begin
265265
// With selection. Indent lines.
266266
Sel := GetMemoSelectedLines(Memo);

0 commit comments

Comments
 (0)