From: Juri Linkov <juri@linkov.net>
Date: Tue, 19 Sep 2023 17:44:16 +0000 (+0300)
Subject: ; * tab-bar, tab-line: Use integer 1 instead of float for height em.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3c14cab797752e78c21ac2a69a7e854276802c22;p=emacs.git

; * tab-bar, tab-line: Use integer 1 instead of float for height em.
---

diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el
index 7484f5b79e4..e4379b97d8b 100644
--- a/lisp/tab-bar.el
+++ b/lisp/tab-bar.el
@@ -161,7 +161,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)
+               :height (1 . em)
                :margin ,tab-bar-button-margin
                :ascent center)
         ;; (emoji "➕")
@@ -176,7 +176,7 @@ For easier selection of tabs by their numbers, consider customizing
     (define-icon tab-bar-close nil
       `((image "symbols/cross_16.svg" "tabs/close.xpm"
                :face shadow
-               :height (1.0 . em)
+               :height (1 . em)
                :margin ,tab-bar-button-margin
                :ascent center)
         ;; (emoji " ❌")
@@ -191,7 +191,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)
+               :height (1 . em)
                :margin ,tab-bar-button-margin
                :ascent center)
         ;; (emoji "🍔")
@@ -2282,7 +2282,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)
+                     :height (1 . em)
                      :margin ,tab-bar-button-margin
                      :ascent center)
               (text " < "))
@@ -2293,7 +2293,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)
+                     :height (1 . em)
                      :margin ,tab-bar-button-margin
                      :ascent center)
               (text " > "))
diff --git a/lisp/tab-line.el b/lisp/tab-line.el
index bdf1db7033f..d3b9720d729 100644
--- a/lisp/tab-line.el
+++ b/lisp/tab-line.el
@@ -194,7 +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)
+           :height (1 . em)
            :margin (2 . 0)
            :ascent center)
     (text " + "))
@@ -230,7 +230,7 @@ If nil, don't show it at all."
 (define-icon tab-line-close nil
   `((image "symbols/cross_16.svg" "tabs/close.xpm"
            :face shadow
-           :height (1.0 . em)
+           :height (1 . em)
            :margin (2 . 0)
            :ascent center)
     (text " x"))
@@ -249,7 +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)
+           :height (1 . em)
            :margin (2 . 0)
            :ascent center)
     (text " <"))
@@ -267,7 +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)
+           :height (1 . em)
            :margin (2 . 0)
            :ascent center)
     (text "> "))