# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 770302541 0
# Node ID ce538d63b1e9b5f1a6a06af14810a20f2abbb9a1
# Parent  8d27747de7cac09d06b01a4e2318e3c0e5536c75
(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.

diff -r 8d27747de7ca -r ce538d63b1e9 src/keyboard.c
--- a/src/keyboard.c	Mon May 30 12:36:21 1994 +0000
+++ b/src/keyboard.c	Mon May 30 12:55:41 1994 +0000
@@ -1162,12 +1162,15 @@
 			  Lisp_Object obj;
 
 			  obj = DISP_CHAR_VECTOR (dp, lose);
-			  if (XTYPE (obj) == Lisp_Vector
-			      && XVECTOR (obj)->size == 1
-			      && (XTYPE (obj = XVECTOR (obj)->contents[0])
-				  == Lisp_Int))
-			    no_redisplay =
-			      direct_output_for_insert (XINT (obj));
+			  if (NILP (obj)
+			      || (XTYPE (obj) == Lisp_Vector
+				  && XVECTOR (obj)->size == 1
+				  && (XTYPE (obj = XVECTOR (obj)->contents[0])
+				      == Lisp_Int)
+				  /* Insist face not specified in glyph.  */
+				  && (XINT (obj) & ((-1) << 8)) == 0))
+			    no_redisplay
+			      = direct_output_for_insert (XINT (obj));
 			}
 		      else
 			{