浏览代码

* fixed formatting

git-svn-id: trunk@26149 -
Jonas Maebe 11 年之前
父节点
当前提交
679c6bd27e
共有 1 个文件被更改,包括 4 次插入2 次删除
  1. 4 2
      rtl/unix/unixcp.pp

+ 4 - 2
rtl/unix/unixcp.pp

@@ -728,9 +728,11 @@ begin
     begin
     begin
       // clean up, for example en_US.UTF-8 => UTF-8
       // clean up, for example en_US.UTF-8 => UTF-8
       p:=Pos('.',lang);
       p:=Pos('.',lang);
-      if p>0 then Delete(lang,1,p);
+      if p>0 then
+        Delete(lang,1,p);
       p:=Pos('@',lang);
       p:=Pos('@',lang);
-      if p>0 then Delete(lang,p,length(lang)-p+1);
+      if p>0 then
+        Delete(lang,p,length(lang)-p+1);
       cp:=GetCodepageByName(lang);
       cp:=GetCodepageByName(lang);
       if cp <> CP_NONE then
       if cp <> CP_NONE then
         Result:=cp;
         Result:=cp;