# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 765614946 0
# Node ID a00c6f4747be07180358be4cb016c3f3637856d8
# Parent  5877a8b11f0cc0ca6b1593b3fc909f5505f44d08
(display_string): Allow for negative hpos when clearing array.

diff -r 5877a8b11f0c -r a00c6f4747be src/xdisp.c
--- a/src/xdisp.c	Wed Apr 06 06:06:51 1994 +0000
+++ b/src/xdisp.c	Wed Apr 06 06:49:06 1994 +0000
@@ -3211,7 +3211,7 @@
     end = desired_glyphs->glyphs[vpos] + maxcol;
 
   /* Store 0 in charstart for these columns.  */
-  for (i = hpos; i < end - p1start + hpos; i++)
+  for (i = (hpos >= 0 ? hpos : 0); i < end - p1start + hpos; i++)
     desired_glyphs->charstarts[vpos][i] = 0;
 
   if (maxcol >= 0 && mincol > maxcol)