paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-10 07:46:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix xterm detection

Browse Source 
git-svn-id: trunk@3102 -
This commit is contained in:
daniel 2006-04-01 08:21:11 +00:00
parent 7785471dd4
commit 147716b74d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/unix/keyboard.pp
View File

@ -1247,7 +1247,7 @@ begin
{ default for Ctrl Prefix is ^W } { default for Ctrl Prefix is ^W }
if CtrlPrefix=0 then if CtrlPrefix=0 then
CtrlPrefix:=23; CtrlPrefix:=23;
if copy(fpgetenv('TERM'),1,4)='xterm' then if copy(fpgetenv('TERM'),1,5)='xterm' then
{The alt key should generate an escape prefix. Save the old setting {The alt key should generate an escape prefix. Save the old setting
make make it send that escape prefix.} make make it send that escape prefix.}
write(#27'[?1036s'#27'[?1036h'); write(#27'[?1036s'#27'[?1036h');
@ -1265,7 +1265,7 @@ begin
unpatchkeyboard; unpatchkeyboard;
{$endif linux} {$endif linux}
if copy(fpgetenv('TERM'),1,4)='xterm' then if copy(fpgetenv('TERM'),1,5)='xterm' then
{Restore the old alt key behaviour.} {Restore the old alt key behaviour.}
write(#27'[?1036r'); write(#27'[?1036r');