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