diff options
| -rw-r--r-- | lisp/tab-bar.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el index 9fba70f34da..871ed1c9817 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." | |||
| 1096 | ;; its value of window-configuration is unreadable, | 1096 | ;; its value of window-configuration is unreadable, |
| 1097 | ;; so restore its saved window-state. | 1097 | ;; so restore its saved window-state. |
| 1098 | (cond | 1098 | (cond |
| 1099 | ((window-configuration-p wc) | 1099 | ((and (window-configuration-p wc) |
| 1100 | ;; Check for such cases as cloning a frame with tabs. | ||
| 1101 | ;; When tabs were cloned to another frame, then fall back | ||
| 1102 | ;; to using `window-state-put' below. | ||
| 1103 | (eq (window-configuration-frame wc) (selected-frame))) | ||
| 1100 | (let ((wc-point (alist-get 'wc-point to-tab)) | 1104 | (let ((wc-point (alist-get 'wc-point to-tab)) |
| 1101 | (wc-bl (seq-filter #'buffer-live-p (alist-get 'wc-bl to-tab))) | 1105 | (wc-bl (seq-filter #'buffer-live-p (alist-get 'wc-bl to-tab))) |
| 1102 | (wc-bbl (seq-filter #'buffer-live-p (alist-get 'wc-bbl to-tab))) | 1106 | (wc-bbl (seq-filter #'buffer-live-p (alist-get 'wc-bbl to-tab))) |