From: Juri Linkov Date: Thu, 18 Apr 2024 06:36:18 +0000 (+0300) Subject: * lisp/tab-line.el: Use the new keyword :key for 'sort'. X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=813467b592a57fcb6c91737c9b43e84e9a358f6d;p=emacs.git * 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) --- 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.