Don't rename tab for exwm floating windows

This commit is contained in:
Benson Chu 2021-04-30 08:27:34 -05:00
parent c25156849a
commit 7107f3f0bd

View file

@ -101,7 +101,9 @@
(interactive)
(let* ((tab (assq 'current-tab (frame-parameter frame 'tabs)))
(tab-explicit-name (alist-get 'explicit-name tab)))
(unless tab-explicit-name
(unless (or tab-explicit-name
(and (boundp 'exwm-mode)
exwm-mode))
(tab-bar-rename-tab "scratch1"))))
(add-hook 'after-make-frame-functions