From: Juri Linkov <juri@linkov.net>
Date: Wed, 21 Dec 2022 17:30:24 +0000 (+0200)
Subject: ; * lisp/tab-bar.el: Remaining renaming of "fixed-width" to "auto-width".
X-Git-Tag: emacs-29.0.90~1055
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=98c16a8c8838f068b9930d37d747ed2a357ba1c2;p=emacs.git

; * lisp/tab-bar.el: Remaining renaming of "fixed-width" to "auto-width".
---

diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el
index f040bc9786d..a4779af04aa 100644
--- a/lisp/tab-bar.el
+++ b/lisp/tab-bar.el
@@ -1021,7 +1021,7 @@ This variable has effect only when `tab-bar-auto-width' is non-nil."
   :initialize 'custom-initialize-default
   :set (lambda (sym val)
          (set-default sym val)
-         (setq tab-bar--fixed-width-hash nil))
+         (setq tab-bar--auto-width-hash nil))
   :group 'tab-bar
   :version "29.1")
 
@@ -1040,17 +1040,17 @@ tab bar might wrap to the second line when it shouldn't.")
      tab-bar-tab-group-inactive)
   "Resize tabs only with these faces.")
 
-(defvar tab-bar--fixed-width-hash nil
+(defvar tab-bar--auto-width-hash nil
   "Memoization table for `tab-bar-auto-width'.")
 
 (defun tab-bar-auto-width (items)
   "Return tab-bar items with resized tab names."
-  (unless tab-bar--fixed-width-hash
-    (define-hash-table-test 'tab-bar--fixed-width-hash-test
+  (unless tab-bar--auto-width-hash
+    (define-hash-table-test 'tab-bar--auto-width-hash-test
                             #'equal-including-properties
                             #'sxhash-equal-including-properties)
-    (setq tab-bar--fixed-width-hash
-          (make-hash-table :test 'tab-bar--fixed-width-hash-test)))
+    (setq tab-bar--auto-width-hash
+          (make-hash-table :test 'tab-bar--auto-width-hash-test)))
   (let ((tabs nil)    ;; list of resizable tabs
         (non-tabs "") ;; concatenated names of non-resizable tabs
         (width 0))    ;; resize tab names to this width
@@ -1078,7 +1078,7 @@ tab bar might wrap to the second line when it shouldn't.")
         (setf (nth 2 item)
               (with-memoization (gethash (list (selected-frame)
                                                width (nth 2 item))
-                                         tab-bar--fixed-width-hash)
+                                         tab-bar--auto-width-hash)
                 (let* ((name (nth 2 item))
                        (len (length name))
                        (close-p (get-text-property (1- len) 'close-tab name))