emacs-28 931a727 1/2: * lisp/tab-line.el (tab-line-format): Add face-modified to the cache key.

[Juri Linkov]

branch: emacs-28
commit 931a7276c036c25b5cde8971a3b0cb65873156b2
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>

    * lisp/tab-line.el (tab-line-format): Add face-modified to the cache key.
    
    When tab-line-tab-face-functions contains tab-line-tab-face-modified,
    add 'buffer-modified-p' status to the cache-key, so the cache will expire
    when the buffer modification status will change.
    https://lists.gnu.org/archive/html/emacs-devel/2021-10/msg00129.html
---
 lisp/tab-line.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lisp/tab-line.el b/lisp/tab-line.el
index 4a751b3..890d124 100644
--- a/lisp/tab-line.el
+++ b/lisp/tab-line.el
@@ -574,7 +574,10 @@ For use in `tab-line-tab-face-functions'."
                           ;; handle tab-line scrolling
                           (window-parameter nil 'tab-line-hscroll)
                           ;; for setting face 'tab-line-tab-current'
-                          (eq (selected-window) (old-selected-window))))
+                          (eq (selected-window) (old-selected-window))
+                          (and (memq 'tab-line-tab-face-modified
+                                     tab-line-tab-face-functions)
+                               (buffer-file-name) (buffer-modified-p))))
          (cache (window-parameter nil 'tab-line-cache)))
     ;; Enable auto-hscroll again after it was disabled on manual scrolling.
     ;; The moment to enable it is when the window-buffer was updated.