mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

* lisp/tab-line.el (tab-line-format): Add face-modified to the cache key.

Browse Source 
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
This commit is contained in:
Juri Linkov 2021-10-03 20:13:29 +03:00
parent 3863919a00
commit 931a7276c0
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/tab-line.el
View File

@ -574,7 +574,10 @@ For use in `tab-line-tab-face-functions'."
;; handle tab-line scrolling ;; handle tab-line scrolling
(window-parameter nil 'tab-line-hscroll) (window-parameter nil 'tab-line-hscroll)
;; for setting face 'tab-line-tab-current' ;; 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))) (cache (window-parameter nil 'tab-line-cache)))
;; Enable auto-hscroll again after it was disabled on manual scrolling. ;; Enable auto-hscroll again after it was disabled on manual scrolling.
;; The moment to enable it is when the window-buffer was updated. ;; The moment to enable it is when the window-buffer was updated.