[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
emacs-28 c25be3e: * lisp/tab-bar.el (tab-bar-select-tab): Add check for
From: |
Juri Linkov |
Subject: |
emacs-28 c25be3e: * lisp/tab-bar.el (tab-bar-select-tab): Add check for wc-frame (bug#51883). |
Date: |
Tue, 16 Nov 2021 15:45:50 -0500 (EST) |
branch: emacs-28
commit c25be3e7bb91f932a1d620bef08e16872dcf04d5
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>
* lisp/tab-bar.el (tab-bar-select-tab): Add check for wc-frame (bug#51883).
---
lisp/tab-bar.el | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el
index 9fba70f..871ed1c 100644
--- a/lisp/tab-bar.el
+++ b/lisp/tab-bar.el
@@ -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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- emacs-28 c25be3e: * lisp/tab-bar.el (tab-bar-select-tab): Add check for wc-frame (bug#51883).,
Juri Linkov <=