emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

emacs-29 98c16a8c88: ; * lisp/tab-bar.el: Remaining renaming of "fixed-w


From: Juri Linkov
Subject: emacs-29 98c16a8c88: ; * lisp/tab-bar.el: Remaining renaming of "fixed-width" to "auto-width".
Date: Wed, 21 Dec 2022 12:30:46 -0500 (EST)

branch: emacs-29
commit 98c16a8c8838f068b9930d37d747ed2a357ba1c2
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>

    ; * lisp/tab-bar.el: Remaining renaming of "fixed-width" to "auto-width".
---
 lisp/tab-bar.el | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el
index f040bc9786..a4779af04a 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))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]