]> git.eshelyaron.com Git - emacs.git/commitdiff
Small fix for text-mode display
authorJuri Linkov <juri@linkov.net>
Tue, 3 Sep 2019 21:56:09 +0000 (00:56 +0300)
committerJuri Linkov <juri@linkov.net>
Tue, 3 Sep 2019 21:56:09 +0000 (00:56 +0300)
src/xdisp.c

index 09a243f5ae0a59e70f1eee6e6f5cc8e148508b82..7ad0956d192100c0692e985ba3ab9f8799cf9ec4 100644 (file)
@@ -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,