(MAX_SCREEN_BUF): New macro.

(IT_write_glyphs): Make screen_buf[] always be MAX_SCREEN_BUF-long.
Encode the entire run of glyphs sharing the same face, instead of
doing that one glyph at a time (fixes a bug with displaying
double-size characters).

1 files changed, 38 insertions, 62 deletions

diff --git a/src/msdos.c b/src/msdos.c
index e4e57646991..6397539574e 100644
--- a/src/msdos.c
+++ b/src/msdos.c
@@ -957,19 +957,20 @@ IT_set_face (int face)
     }
 }
 
+/* According to RBIL (INTERRUP.A, V-1000), 160 is the maximum possible
+   width of a DOS display in any known text mode.  We multiply by 2 to
+   accomodate the screen attribute byte.  */
+#define MAX_SCREEN_BUF 160*2
+
 Lisp_Object Vdos_unsupported_char_glyph;
 extern unsigned char *encode_terminal_code (struct glyph *, int,
                                             struct coding_system *);
 static void
 IT_write_glyphs (struct frame *f, struct glyph *str, int str_len)
 {
-  unsigned char *screen_buf, *screen_bp, *screen_buf_end, *bp;
-  int unsupported_face = 0;
-  unsigned unsupported_char = '\177';
+  unsigned char screen_buf[MAX_SCREEN_BUF], *screen_bp, *bp;
   int offset = 2 * (new_pos_X + screen_size_X * new_pos_Y);
   register int sl = str_len;
-  register int tlen = GLYPH_TABLE_LENGTH;
-  register Lisp_Object *tbase = GLYPH_TABLE_BASE;
   struct tty_display_info *tty = FRAME_TTY (f);
   struct frame *sf;
   unsigned char *conversion_buffer;
@@ -990,8 +991,6 @@ IT_write_glyphs (struct frame *f, struct glyph *str, int str_len)
 
   if (str_len <= 0) return;
 
-  screen_buf = screen_bp = alloca (str_len * 2);
-  screen_buf_end = screen_buf + str_len * 2;
   sf = SELECTED_FRAME();
 
   /* Since faces get cached and uncached behind our back, we can't
@@ -1004,73 +1003,50 @@ IT_write_glyphs (struct frame *f, struct glyph *str, int str_len)
   /* The mode bit CODING_MODE_LAST_BLOCK should be set to 1 only at
      the tail.  */
   coding->mode &= ~CODING_MODE_LAST_BLOCK;
+  screen_bp = &screen_buf[0];
   while (sl > 0)
     {
       int cf;
+      int n;
 
-      /* Glyphs with GLYPH_MASK_PADDING bit set are actually there
-         only for the redisplay code to know how many columns does
-         this character occupy on the screen.  Skip padding glyphs.  */
-      if (CHAR_GLYPH_PADDING_P (*str))
-        {
-          str++;
-          sl--;
-        }
-      else
+      /* If the face of this glyph is different from the current
+         screen face, update the screen attribute byte.  */
+      cf = str->face_id;
+      if (cf != screen_face)
+        IT_set_face (cf);       /* handles invalid faces gracefully */
+
+      /* Identify a run of glyphs with the same face.  */
+      for (n = 1; n < sl; ++n)
+        if (str[n].face_id != cf)
+          break;
+
+      if (n >= sl)
+        /* This is the last glyph.  */
+        coding->mode |= CODING_MODE_LAST_BLOCK;
+
+      conversion_buffer = encode_terminal_code (str, n, coding);
+      if (coding->produced > 0)
         {
-          /* If the face of this glyph is different from the current
-             screen face, update the screen attribute byte.  */
-          cf = str->face_id;
-          if (cf != screen_face)
-            IT_set_face (cf);   /* handles invalid faces gracefully */
-
-          if (sl <= 1)
-            /* This is the last glyph.  */
-            coding->mode |= CODING_MODE_LAST_BLOCK;
-
-          conversion_buffer = encode_terminal_code (str, 1, coding);
-          if (coding->produced > 0)
+          /* Copy the encoded bytes to the screen buffer.  */
+          for (bp = conversion_buffer; coding->produced--; bp++)
             {
-              if (2*coding->produced > screen_buf_end - screen_bp)
+              /* Paranoia: discard bytes that would overrun the end of
+                 the screen buffer.  */
+              if (screen_bp - screen_buf <= MAX_SCREEN_BUF - 2)
                 {
-                  /* The allocated buffer for screen writes is too small.
-                     Flush it and loop again without incrementing STR, so
-                     that the next loop will begin with the same glyph.  */
-                  int nbytes = screen_bp - screen_buf;
-
-                  mouse_off_maybe ();
-                  dosmemput (screen_buf, nbytes, (int)ScreenPrimary + offset);
-                  if (screen_virtual_segment)
-                    dosv_refresh_virtual_screen (offset, nbytes / 2);
-                  new_pos_X += nbytes / 2;
-                  offset += nbytes;
-
-                  /* Prepare to reuse the same buffer again.  */
-                  screen_bp = screen_buf;
-                  continue;
-                }
-              else
-                {
-                  /* There's enough place in the allocated buffer to add
-                     the encoding of this glyph.  */
-
-                  /* Copy the encoded bytes to the allocated buffer.  */
-                  for (bp = conversion_buffer; coding->produced--; bp++)
-                    {
-                      *screen_bp++ = (unsigned char)*bp;
-                      *screen_bp++ = ScreenAttrib;
-                      if (tty->termscript)
-                        fputc (*bp, tty->termscript);
-                    }
+                  *screen_bp++ = (unsigned char)*bp;
+                  *screen_bp++ = ScreenAttrib;
                 }
+              if (tty->termscript)
+                fputc (*bp, tty->termscript);
             }
-          /* Update STR and its remaining length.  */
-          str++;
-          sl--;
         }
+      /* Update STR and its remaining length.  */
+      str += n;
+      sl -= n;
     }
 
-  /* Dump whatever is left in the screen buffer.  */
+  /* Dump whatever we have in the screen buffer.  */
   mouse_off_maybe ();
   dosmemput (screen_buf, screen_bp - screen_buf, (int)ScreenPrimary + offset);
   if (screen_virtual_segment)