浏览代码

* enable acs on xterm by default

armin 21 年之前
父节点
当前提交
c6e7e58903
共有 1 个文件被更改,包括 6 次插入1 次删除
  1. 6 1
      rtl/unix/video.pp

+ 6 - 1
rtl/unix/video.pp

@@ -703,6 +703,8 @@ begin
            ACSIn:=Copy(ACSIn,1,Pos('$<',ACSIn)-1);
            ACSIn:=Copy(ACSIn,1,Pos('$<',ACSIn)-1);
          if pos('$<',ACSOut)>0 then
          if pos('$<',ACSOut)>0 then
            ACSOut:=Copy(ACSOut,1,Pos('$<',ACSOut)-1);
            ACSOut:=Copy(ACSOut,1,Pos('$<',ACSOut)-1);
+         If fpGetEnv('TERM')='xterm' then
+           NoExtendedFrame := true;  {use of acs for xterm is ok}
        end
        end
      else
      else
        begin
        begin
@@ -903,7 +905,10 @@ initialization
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.24  2004-10-03 20:16:43  armin
+  Revision 1.25  2004-10-05 17:16:24  armin
+  * enable acs on xterm by default
+
+  Revision 1.24  2004/10/03 20:16:43  armin
   * SysUpdateScreen modified esi and edi
   * SysUpdateScreen modified esi and edi
 
 
   Revision 1.23  2004/07/09 19:03:35  peter
   Revision 1.23  2004/07/09 19:03:35  peter