Mercurial > hg > xemacs-beta
comparison src/events.c @ 259:11cf20601dec r20-5b28
Import from CVS: tag r20-5b28
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:23:02 +0200 |
parents | 83b3d10dcba9 |
children | 405dd6d1825b |
comparison
equal
deleted
inserted
replaced
258:58424f6abf56 | 259:11cf20601dec |
---|---|
998 { | 998 { |
999 case 'I': k = QKtab; m &= ~MOD_CONTROL; break; | 999 case 'I': k = QKtab; m &= ~MOD_CONTROL; break; |
1000 case 'J': k = QKlinefeed; m &= ~MOD_CONTROL; break; | 1000 case 'J': k = QKlinefeed; m &= ~MOD_CONTROL; break; |
1001 case 'M': k = QKreturn; m &= ~MOD_CONTROL; break; | 1001 case 'M': k = QKreturn; m &= ~MOD_CONTROL; break; |
1002 case '[': k = QKescape; m &= ~MOD_CONTROL; break; | 1002 case '[': k = QKescape; m &= ~MOD_CONTROL; break; |
1003 # if 0 | 1003 default: |
1004 /* This is probably too controversial... */ | 1004 if (c - '@' == XCHAR(con->tty_erase_char)) { |
1005 case 'H': k = QKbackspace; m &= ~MOD_CONTROL; break; | 1005 k = QKbackspace; |
1006 # endif | 1006 m &= ~MOD_CONTROL; |
1007 } | |
1008 break; | |
1007 } | 1009 } |
1008 if (c >= 'A' && c <= 'Z') c -= 'A'-'a'; | 1010 if (c >= 'A' && c <= 'Z') c -= 'A'-'a'; |
1009 } | 1011 } |
1012 else if (c == XCHAR(con->tty_erase_char)) | |
1013 k = QKbackspace; | |
1010 else if (c == 127) | 1014 else if (c == 127) |
1011 k = QKdelete; | 1015 k = QKdelete; |
1012 else if (c == ' ') | 1016 else if (c == ' ') |
1013 k = QKspace; | 1017 k = QKspace; |
1014 | 1018 |