* lisp/tab-line.el: Escape %-constructs in tab names (bug#57848)

(tab-line-tab-name-format-default): Replace % with %% in tab name
to escape %-constructs from processing by mode-line-format.

diff --git a/lisp/tab-line.el b/lisp/tab-line.el
index a4e95bbc75597cba85de1c8c100ce5ec2893dedc..3aa03e543a8b416318be3fb22672a6d2747d68a2 100644 (file)
--- a/lisp/tab-line.el
+++ b/lisp/tab-line.el
@@ -483,7 +483,7 @@ which the tab will represent."
     (dolist (fn tab-line-tab-face-functions)
       (setf face (funcall fn tab tabs face buffer-p selected-p)))
     (apply 'propertize
-           (concat (propertize name
+           (concat (propertize (string-replace "%" "%%" name) ;; (bug#57848)
                                'keymap tab-line-tab-map
                                'help-echo (if selected-p "Current tab"
                                             "Click to select tab")