Fix last change:

(produce_stretch_glyph): Assume that face box height and width is
already	included in stretch glyph size so caller doesn't have to
consider the extra space otherwise added (fixes problem in ses.el).

1 files changed, 5 insertions, 23 deletions

diff --git a/src/xdisp.c b/src/xdisp.c
index 9c9031fa443..65b16da76c3 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -19865,30 +19865,12 @@ produce_stretch_glyph (it)
       && it->current_x + width > it->last_visible_x)
     width = it->last_visible_x - it->current_x - 1;
 
-  if (width > 0 && height > 0)
+  if (width > 0 && height > 0 && it->glyph_row)
     {
-
-      if (face->box != FACE_NO_BOX && face->box_line_width != 0)
-        {
-          if (face->box_line_width > 0)
-            {
-              ascent += face->box_line_width;
-              height += face->box_line_width * 2;
-            }
-
-          if (it->start_of_box_run_p)
-            width += abs (face->box_line_width);
-          if (it->end_of_box_run_p)
-            width += abs (face->box_line_width);
-        }
-
-      if (it->glyph_row)
-        {
-          Lisp_Object object = it->stack[it->sp - 1].string;
-          if (!STRINGP (object))
-            object = it->w->buffer;
-          append_stretch_glyph (it, object, width, height, ascent);
-        }
+      Lisp_Object object = it->stack[it->sp - 1].string;
+      if (!STRINGP (object))
+        object = it->w->buffer;
+      append_stretch_glyph (it, object, width, height, ascent);
     }
 
   it->pixel_width = width;