From: Juri Linkov <juri@linkov.net>
Date: Tue, 3 Sep 2019 21:56:09 +0000 (+0300)
Subject: Small fix for text-mode display
X-Git-Tag: emacs-27.0.90~1328^2~15
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d1c14de9a905b2278c3a450963aa8b9498198e25;p=emacs.git

Small fix for text-mode display
---

diff --git a/src/xdisp.c b/src/xdisp.c
index 09a243f5ae0..7ad0956d192 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -13110,17 +13110,15 @@ display_tab_bar (struct window *w)
 
   /* Display all items of the tab bar.  */
   items = it.f->tab_bar_items;
-  for (i = 0; i < ASIZE (items); i += 11)
+  for (i = 0; i < it.f->n_tab_bar_items; ++i)
     {
       Lisp_Object string;
 
       /* Stop at nil string.  */
-      string = AREF (items, i + 3);
+      string = AREF (items, i * TAB_BAR_ITEM_NSLOTS + TAB_BAR_ITEM_CAPTION);
       if (NILP (string))
 	break;
 
-      /* string = build_string ("Test 4"); */
-
       /* Display the item, pad with one space.  */
       if (it.current_x < it.last_visible_x)
 	display_string (NULL, string, Qnil, 0, 0, &it,