* 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 090815017058b4475de49f3f71d239b204be43a1..2eb970122622beb6ca7448dc0851f2143f32d9da 100644 (file)
--- 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))
+
 \f
 (defcustom tab-line-tab-name-format-function #'tab-line-tab-name-format-default
   "Function to format a tab name.