procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Juri Linkov 2022-12-21 19:30:24 +02:00
parent d76d7a3beb
commit 98c16a8c88
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/tab-bar.el
View file

@ -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))