Fix height of new SVG icons on tab-bar and tab-line (bug#62562)

* lisp/tab-bar.el (tab-bar--load-buttons): Add ':height (1.0 . em)'
to icons tab-bar-new, tab-bar-menu-bar.
(tab-bar-history-mode): Add ':height (1.0 . em)'
to icons tab-bar-back, tab-bar-forward.

* lisp/tab-line.el (tab-line-new, tab-line-left, tab-line-right):
Add ':height (1.0 . em)' to these icons.

diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el
index 6b286598a14e3eca10b970efb238ba1cdb965a46..fd9294ed581ea7635de5d587ff25d2fbf806ddb0 100644 (file)
--- a/lisp/tab-bar.el
+++ b/lisp/tab-bar.el
@@ -166,6 +166,7 @@ For easier selection of tabs by their numbers, consider customizing
     (define-icon tab-bar-new nil
       `((image "symbols/plus_16.svg" "tabs/new.xpm"
                :face shadow
+               :height (1.0 . em)
                :margin ,tab-bar-button-margin
                :ascent center)
         ;; (emoji "➕")
@@ -195,6 +196,7 @@ For easier selection of tabs by their numbers, consider customizing
   (unless (iconp 'tab-bar-menu-bar)
     (define-icon tab-bar-menu-bar nil
       `((image "symbols/menu_16.svg"
+               :height (1.0 . em)
                :margin ,tab-bar-button-margin
                :ascent center)
         ;; (emoji "🍔")
@@ -2285,6 +2287,7 @@ and can restore them."
         (unless (iconp 'tab-bar-back)
           (define-icon tab-bar-back nil
             `((image "symbols/chevron_left_16.svg" "tabs/left-arrow.xpm"
+                     :height (1.0 . em)
                      :margin ,tab-bar-button-margin
                      :ascent center)
               (text " < "))
@@ -2295,6 +2298,7 @@ and can restore them."
         (unless (iconp 'tab-bar-forward)
           (define-icon tab-bar-forward nil
             `((image "symbols/chevron_right_16.svg" "tabs/right-arrow.xpm"
+                     :height (1.0 . em)
                      :margin ,tab-bar-button-margin
                      :ascent center)
               (text " > "))

diff --git a/lisp/tab-line.el b/lisp/tab-line.el
index e277d1fb9edcf71cb10b0d317705a3def699ecca..f0bc13acb7428f81873b2a0cdbea3499f065cb03 100644 (file)
--- a/lisp/tab-line.el
+++ b/lisp/tab-line.el
@@ -194,6 +194,7 @@ If the value is a function, call it with no arguments."
 (define-icon tab-line-new nil
   `((image "symbols/plus_16.svg" "tabs/new.xpm"
            :face shadow
+           :height (1.0 . em)
            :margin (2 . 0)
            :ascent center)
     (text " + "))
@@ -248,6 +249,7 @@ If nil, don't show it at all."
 (define-icon tab-line-left nil
   `((image "symbols/chevron_left_16.svg" "tabs/left-arrow.xpm"
            :face shadow
+           :height (1.0 . em)
            :margin (2 . 0)
            :ascent center)
     (text " <"))
@@ -265,6 +267,7 @@ If nil, don't show it at all."
 (define-icon tab-line-right nil
   `((image "symbols/chevron_right_16.svg" "tabs/right-arrow.xpm"
            :face shadow
+           :height (1.0 . em)
            :margin (2 . 0)
            :ascent center)
     (text "> "))