瀏覽代碼

* refactored slightly the BEOS ifdef in unixkvmbase.utf8enabled

git-svn-id: branches/unicodekvm@42320 -
nickysn 6 年之前
父節點
當前提交
c964eab85d
共有 1 個文件被更改,包括 7 次插入4 次删除
  1. 7 4
      packages/rtl-console/src/unix/unixkvmbase.pp

+ 7 - 4
packages/rtl-console/src/unix/unixkvmbase.pp

@@ -29,16 +29,19 @@ function UTF8Enabled: Boolean;
 uses
   baseunix;
 
+{$ifdef BEOS}
+function UTF8Enabled: Boolean;
+begin
+  UTF8Enabled := true;
+end;
+{$else}
 function UTF8Enabled: Boolean;
 var
   lang:string;
 begin
-  {$ifdef BEOS}
-  UTF8Enabled := true;
-  exit;
-  {$endif}
   lang:=upcase(fpgetenv('LANG'));
   UTF8Enabled := (Pos('.UTF-8', lang) > 0) or (Pos('.UTF8', lang) > 0);
 end;
+{$endif}
 
 end.