From: Juri Linkov <juri@linkov.net>
Date: Sun, 30 Oct 2022 17:36:06 +0000 (+0200)
Subject: * lisp/tab-line.el: Escape %-constructs in tab names (bug#57848)
X-Git-Tag: emacs-29.0.90~1616^2~374
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=44c29155526dd2f3d749c2e91c9d0854e00f42ab;p=emacs.git

* 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 a4e95bbc755..3aa03e543a8 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")