Commit bd95d66a authored by Juri Linkov's avatar Juri Linkov

* lisp/tab-line.el: Cache the tab-line-format template.

(tab-line-format): Cache the result of tab-line-format-template in window.
(tab-line-format-template): New function that returns the value to cache.
parent f336ae77
Pipeline #4245 failed with stage
in 90 minutes and 5 seconds
......@@ -415,11 +415,10 @@ variable `tab-line-tabs-function'."
next-buffers))))
(defun tab-line-format ()
(defun tab-line-format-template (tabs)
"Template for displaying tab line for selected window."
(let* ((window (selected-window))
(selected-buffer (window-buffer window))
(tabs (funcall tab-line-tabs-function))
(separator (or tab-line-separator (if window-system " " "|")))
(hscroll (window-parameter nil 'tab-line-hscroll))
(strings
......@@ -470,6 +469,14 @@ variable `tab-line-tabs-function'."
(list (concat separator (when tab-line-new-tab-choice
tab-line-new-button)))))))
(defun tab-line-format ()
"Template for displaying tab line for selected window."
(let ((tabs (funcall tab-line-tabs-function))
(cache (window-parameter nil 'tab-line-cache)))
(or (and cache (equal (car cache) tabs) (cdr cache))
(cdr (set-window-parameter nil 'tab-line-cache
(cons tabs (tab-line-format-template tabs)))))))
(defcustom tab-line-auto-hscroll t
"Allow or disallow automatic horizontal scrolling of the tab line.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment