Mercurial > hg > xemacs-beta
diff src/events.c @ 261:405dd6d1825b r20-5b29
Import from CVS: tag r20-5b29
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:23:51 +0200 |
parents | 11cf20601dec |
children | 727739f917cb |
line wrap: on
line diff
--- a/src/events.c Mon Aug 13 10:23:05 2007 +0200 +++ b/src/events.c Mon Aug 13 10:23:51 2007 +0200 @@ -1000,17 +1000,23 @@ case 'J': k = QKlinefeed; m &= ~MOD_CONTROL; break; case 'M': k = QKreturn; m &= ~MOD_CONTROL; break; case '[': k = QKescape; m &= ~MOD_CONTROL; break; +#ifdef HAVE_TTY default: - if (c - '@' == XCHAR(con->tty_erase_char)) { + if (CHARP (con->tty_erase_char) && + c - '@' == XCHAR (con->tty_erase_char)) { k = QKbackspace; m &= ~MOD_CONTROL; } break; +#endif } if (c >= 'A' && c <= 'Z') c -= 'A'-'a'; } - else if (c == XCHAR(con->tty_erase_char)) +#ifdef HAVE_TTY + else if (CHARP (con->tty_erase_char) && + c == XCHAR(con->tty_erase_char)) k = QKbackspace; +#endif else if (c == 127) k = QKdelete; else if (c == ' ')