master 44c2915552 1/2: * lisp/tab-line.el: Escape %-constructs in tab names (bug#57848)

[Juri Linkov]

branch: master
commit 44c29155526dd2f3d749c2e91c9d0854e00f42ab
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>

    * 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.
---
 lisp/tab-line.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/tab-line.el b/lisp/tab-line.el
index a4e95bbc75..3aa03e543a 100644
--- 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")