procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/desktop.el: Enable tab-bar-mode after restoring frames with a tab bar.

Browse source 
(desktop-restore-frameset): Enable tab-bar-mode when a restored frame
contains the frame parameter tab-bar-lines (bug#55070).
This commit is contained in:
Juri Linkov 2022-05-05 21:08:30 +03:00
parent 8fce81897d
commit 459d5ff8ad
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/desktop.el
View file

@ -1269,7 +1269,16 @@ being set (usually, by reading it from the desktop)."
:cleanup-frames (not (eq desktop-restore-reuses-frames 'keep))
:force-display desktop-restore-in-current-display
:force-onscreen (and desktop-restore-forces-onscreen
(display-graphic-p)))))
(display-graphic-p)))
;; When at least one restored frame contains a tab bar,
;; enable `tab-bar-mode' that takes care about recalculating
;; the correct values of the frame parameter `tab-bar-lines'
;; (that depends on `tab-bar-show'), and also loads graphical buttons.
(when (seq-some
(lambda (frame)
(menu-bar-positive-p (frame-parameter frame 'tab-bar-lines)))
(frame-list))
(tab-bar-mode 1))))
;; Just to silence the byte compiler.
;; Dynamically bound in `desktop-read'.