* lisp/tab-bar.el (tab-bar-select-tab): Add check for wc-frame (bug#51883).

This commit is contained in:
Juri Linkov 2021-11-16 22:45:33 +02:00
parent 38d905abf9
commit c25be3e7bb

View file

@ -1096,7 +1096,11 @@ Negative TAB-NUMBER counts tabs from the end of the tab bar."
;; its value of window-configuration is unreadable,
;; so restore its saved window-state.
(cond
((window-configuration-p wc)
((and (window-configuration-p wc)
;; Check for such cases as cloning a frame with tabs.
;; When tabs were cloned to another frame, then fall back
;; to using `window-state-put' below.
(eq (window-configuration-frame wc) (selected-frame)))
(let ((wc-point (alist-get 'wc-point to-tab))
(wc-bl (seq-filter #'buffer-live-p (alist-get 'wc-bl to-tab)))
(wc-bbl (seq-filter #'buffer-live-p (alist-get 'wc-bbl to-tab)))