[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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- emacs-29 98c16a8c88: ; * lisp/tab-bar.el: Remaining renaming of "fixed-width" to "auto-width".,
Juri Linkov <=