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);