Browse Source

* avoid new files to use TABS

pierre 25 years ago
parent
commit
88751ab662
1 changed files with 7 additions and 2 deletions
  1. 7 2
      ide/text/fpide.pas

+ 7 - 2
ide/text/fpide.pas

@@ -157,7 +157,9 @@ end;
 
 
 function IDEUseTabsPattern(Editor: PFileEditor): boolean; {$ifndef FPC}far;{$endif}
 function IDEUseTabsPattern(Editor: PFileEditor): boolean; {$ifndef FPC}far;{$endif}
 begin
 begin
-  IDEUseTabsPattern:=(Editor^.FileName='') or MatchesFileList(NameAndExtOf(Editor^.FileName),TabsPattern);
+  { the commented code lead all new files
+    to become with TAB use enabled which is wrong in my opinion PM }
+  IDEUseTabsPattern:={(Editor^.FileName='') or }MatchesFileList(NameAndExtOf(Editor^.FileName),TabsPattern);
 end;
 end;
 
 
 constructor TIDEApp.Init;
 constructor TIDEApp.Init;
@@ -867,7 +869,10 @@ end;
 END.
 END.
 {
 {
   $Log$
   $Log$
-  Revision 1.48  2000-01-03 11:38:33  michael
+  Revision 1.49  2000-01-05 00:31:50  pierre
+   * avoid new files to use TABS
+
+  Revision 1.48  2000/01/03 11:38:33  michael
   Changes from Gabor
   Changes from Gabor
 
 
   Revision 1.47  1999/12/20 14:23:17  pierre
   Revision 1.47  1999/12/20 14:23:17  pierre