Mercurial > emacs
comparison src/keyboard.c @ 7758:ce538d63b1e9
(command_loop_1): Allow direct output for insert
if have display table but it says nothing for this char code.
Don't allow it if char code has a glyph with a face code.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 30 May 1994 12:55:41 +0000 |
parents | 741ba17eeb20 |
children | add6e866d6a2 |
comparison
equal
deleted
inserted
replaced
7757:8d27747de7ca | 7758:ce538d63b1e9 |
---|---|
1160 if (dp) | 1160 if (dp) |
1161 { | 1161 { |
1162 Lisp_Object obj; | 1162 Lisp_Object obj; |
1163 | 1163 |
1164 obj = DISP_CHAR_VECTOR (dp, lose); | 1164 obj = DISP_CHAR_VECTOR (dp, lose); |
1165 if (XTYPE (obj) == Lisp_Vector | 1165 if (NILP (obj) |
1166 && XVECTOR (obj)->size == 1 | 1166 || (XTYPE (obj) == Lisp_Vector |
1167 && (XTYPE (obj = XVECTOR (obj)->contents[0]) | 1167 && XVECTOR (obj)->size == 1 |
1168 == Lisp_Int)) | 1168 && (XTYPE (obj = XVECTOR (obj)->contents[0]) |
1169 no_redisplay = | 1169 == Lisp_Int) |
1170 direct_output_for_insert (XINT (obj)); | 1170 /* Insist face not specified in glyph. */ |
1171 && (XINT (obj) & ((-1) << 8)) == 0)) | |
1172 no_redisplay | |
1173 = direct_output_for_insert (XINT (obj)); | |
1171 } | 1174 } |
1172 else | 1175 else |
1173 { | 1176 { |
1174 if (lose >= 0x20 && lose <= 0x7e) | 1177 if (lose >= 0x20 && lose <= 0x7e) |
1175 no_redisplay = direct_output_for_insert (lose); | 1178 no_redisplay = direct_output_for_insert (lose); |