From 813467b592a57fcb6c91737c9b43e84e9a358f6d Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Thu, 18 Apr 2024 09:36:18 +0300 Subject: [PATCH] * lisp/tab-line.el: Use the new keyword :key for 'sort'. (tab-line-tabs-fixed-window-buffers): Use :key for 'sort'. Rename the window parameter 'tab-line-fixed-window-buffers' to shorter 'tab-line-buffers'. Add '(tab-line-buffers . writable) to window-persistent-parameters. (cherry picked from commit b585fb8171dd139f178c398c64c584565deacfb1) --- lisp/tab-line.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/lisp/tab-line.el b/lisp/tab-line.el index 09081501705..2eb97012262 100644 --- a/lisp/tab-line.el +++ b/lisp/tab-line.el @@ -532,16 +532,16 @@ variable `tab-line-tabs-function'." This means that switching to a buffer previously shown in the same window will keep the same order of tabs that was before switching. And newly displayed buffers are added to the end of the tab line." - (let* ((old-buffers (window-parameter nil 'tab-line-fixed-window-buffers)) + (let* ((old-buffers (window-parameter nil 'tab-line-buffers)) (new-buffers (sort (tab-line-tabs-window-buffers) - (lambda (a b) - (< (or (seq-position old-buffers a) - most-positive-fixnum) - (or (seq-position old-buffers b) - most-positive-fixnum)))))) - (set-window-parameter nil 'tab-line-fixed-window-buffers new-buffers) + :key (lambda (buffer) + (or (seq-position old-buffers buffer) + most-positive-fixnum))))) + (set-window-parameter nil 'tab-line-buffers new-buffers) new-buffers)) +(add-to-list 'window-persistent-parameters '(tab-line-buffers . writable)) + (defcustom tab-line-tab-name-format-function #'tab-line-tab-name-format-default "Function to format a tab name. -- 2.39.5