New variable tab-bar-position

* lisp/cus-start.el: Add customization for tab-bar-position.
* src/dispnew.c (syms_of_display): New variable Vtab_bar_position.
(adjust_frame_glyphs_for_window_redisplay): Use it.

1 files changed, 6 insertions, 0 deletions

diff --git a/lisp/cus-start.el b/lisp/cus-start.el
index 89a96a9f51c..d1278192ef7 100644
--- a/lisp/cus-start.el
+++ b/lisp/cus-start.el
@@ -591,6 +591,12 @@ since it could result in memory overflow and make Emacs crash."
                       (const :tag "Text-image-horiz" :value text-image-horiz)
                       (const :tag "System default" :value nil)) "24.1")
              (tool-bar-max-label-size frames integer "24.1")
+             (tab-bar-position tab-bar boolean "27.1"
+                               :set (lambda (sym val)
+                                      (set-default sym val)
+                                      ;; Redraw the bars:
+                                      (tab-bar-mode -1)
+                                      (tab-bar-mode 1)))
              (auto-hscroll-mode scrolling
                                 (choice
                                  (const :tag "Don't scroll automatically"