X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/19dff8dc59da178d18cee1dbe3207be80d69866c..254277e15d6906634686a682bfc7a163b20d7be5:/src/dispnew.c

diff --git a/src/dispnew.c b/src/dispnew.c
index c2e27acf0d..0faabda929 100644
--- a/src/dispnew.c
+++ b/src/dispnew.c
@@ -318,7 +318,7 @@ make_frame_glyphs (frame, empty)
   return new;
 }
 
-static void
+void
 free_frame_glyphs (frame, glyphs)
      FRAME_PTR frame;
      struct frame_glyphs *glyphs;
@@ -851,10 +851,10 @@ preserve_other_columns (w)
 
 	      bcopy (current_frame->glyphs[vpos],
 		     desired_frame->glyphs[vpos],
-		     start * sizeof (current_frame->glyphs[vpos]));
+		     start * sizeof (current_frame->glyphs[vpos][0]));
 	      bcopy (current_frame->charstarts[vpos],
 		     desired_frame->charstarts[vpos],
-		     start * sizeof (current_frame->charstarts[vpos]));
+		     start * sizeof (current_frame->charstarts[vpos][0]));
 	      len = min (start, current_frame->used[vpos]);
 	      if (desired_frame->used[vpos] < len)
 		desired_frame->used[vpos] = len;
@@ -871,11 +871,11 @@ preserve_other_columns (w)
 	      bcopy (current_frame->glyphs[vpos] + end,
 		     desired_frame->glyphs[vpos] + end,
 		     ((current_frame->used[vpos] - end)
-		      * sizeof (current_frame->glyphs[vpos])));
+		      * sizeof (current_frame->glyphs[vpos][0])));
 	      bcopy (current_frame->charstarts[vpos] + end,
 		     desired_frame->charstarts[vpos] + end,
 		     ((current_frame->used[vpos] - end)
-		      * sizeof (current_frame->charstarts[vpos])));
+		      * sizeof (current_frame->charstarts[vpos][0])));
 	      desired_frame->used[vpos] = current_frame->used[vpos];
 	    }
 	}
@@ -1077,7 +1077,7 @@ direct_output_for_insert (g)
      At the moment we only lose at end of line or end of buffer
      and only with faces that have some background */
   /* Instead of wasting time, give up if character has any text properties */
-      || ! NILP (Ftext_properties_at (XFASTINT (point - 1), Qnil))
+      || ! NILP (Ftext_properties_at (make_number (point - 1), Qnil))
 #endif
 
   /* Give up if w is minibuffer and a message is being displayed there */
@@ -1090,7 +1090,7 @@ direct_output_for_insert (g)
     int dummy;
 
     if (FRAME_X_P (frame))
-      face = compute_char_face (frame, w, point - 1, -1, -1, &dummy, point);
+      face = compute_char_face (frame, w, point - 1, -1, -1, &dummy, point, 0);
 #endif
     current_frame->glyphs[vpos][hpos] = MAKE_GLYPH (frame, g, face);
     current_frame->charstarts[vpos][hpos] = point - 1;
@@ -1123,7 +1123,7 @@ direct_output_forward_char (n)
 {
   register FRAME_PTR frame = selected_frame;
   register struct window *w = XWINDOW (selected_window);
-  int position;
+  Lisp_Object position;
   int hpos = FRAME_CURSOR_X (frame);
 
   /* Give up if in truncated text at end of line.  */
@@ -2256,10 +2256,6 @@ sit_for (sec, usec, reading, display)
 {
   Lisp_Object read_kbd;
 
-  if (CONSP (Vunread_command_events)
-      || unread_command_char != -1)
-    return Qnil;
-
   if (detect_input_pending ())
     return Qnil;