Mercurial > hg > xemacs-beta
comparison src/redisplay-tty.c @ 5565:48a3d3281b48
Pass eighth bit on TTY consoles to coding system if needed.
src/ChangeLog addition:
2011-09-06 Aidan Kehoe <kehoea@parhasard.net>
* redisplay-tty.c (init_tty_for_redisplay):
Only set the console meta key flag to treat the eight bit as meta
if the native coding system doesn't need that.
* general-slots.h:
* mule-coding.c:
* mule-coding.c (syms_of_mule_coding):
Move Qiso2022, Qseven to general-slots.h, they're now used in
redisplay-tty.c.
lisp/ChangeLog addition:
2011-09-06 Aidan Kehoe <kehoea@parhasard.net>
* mule/mule-cmds.el (set-language-environment-coding-systems):
Set the input mode for TTY consoles to use the eighth bit for
character information if the native coding system for the language
environment needs that.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Tue, 06 Sep 2011 11:44:50 +0100 |
parents | f87be7ddd60d |
children | 81fee4aee9b6 |
comparison
equal
deleted
inserted
replaced
5564:209024442c24 | 5565:48a3d3281b48 |
---|---|
1235 if (TTY_FLAGS (c).standout_width == -1) | 1235 if (TTY_FLAGS (c).standout_width == -1) |
1236 TTY_FLAGS (c).standout_width = 0; | 1236 TTY_FLAGS (c).standout_width = 0; |
1237 if (TTY_FLAGS (c).underline_width == -1) | 1237 if (TTY_FLAGS (c).underline_width == -1) |
1238 TTY_FLAGS (c).underline_width = 0; | 1238 TTY_FLAGS (c).underline_width = 0; |
1239 | 1239 |
1240 TTY_FLAGS (c).meta_key = | 1240 if (eight_bit_tty (d)) |
1241 eight_bit_tty (d) ? tgetflag ("km") || tgetflag ("MT") ? 1 : 2 : 0; | 1241 { |
1242 | 1242 TTY_FLAGS (c).meta_key |
1243 = (EQ (Qiso2022, Fcoding_system_type (Qnative)) | |
1244 && EQ (Qt, Fcoding_system_property (Qnative, Qseven)) | |
1245 && (tgetflag ("km") || tgetflag ("MT"))) ? 1 : 2; | |
1246 } | |
1247 else | |
1248 { | |
1249 TTY_FLAGS (c).meta_key = 0; | |
1250 } | |
1243 | 1251 |
1244 /* | 1252 /* |
1245 * Setup the costs tables for this tty console. | 1253 * Setup the costs tables for this tty console. |
1246 */ | 1254 */ |
1247 cm_cost_init (c); | 1255 cm_cost_init (c); |