From: Juri Linkov <juri@linkov.net>
Date: Thu, 27 Jan 2022 17:47:40 +0000 (+0200)
Subject: * lisp/frame.el (clone-frame): Filter out 'parent-id' (bug#51883).
X-Git-Tag: emacs-28.0.92~79
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3dd47bde7a87bef332bd53f3e73c8d2bc64910c8;p=emacs.git

* lisp/frame.el (clone-frame): Filter out 'parent-id' (bug#51883).
---

diff --git a/lisp/frame.el b/lisp/frame.el
index 86c52dc4382..69119b4c24f 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -798,8 +798,9 @@ also select the new frame."
          (windows (unless no-windows
                     (window-state-get (frame-root-window frame))))
          (default-frame-alist
-           (seq-remove (lambda (elem) (eq (car elem) 'name))
-                       (frame-parameters frame)))
+          (seq-remove (lambda (elem)
+                        (memq (car elem) '(name parent-id)))
+                      (frame-parameters frame)))
          (new-frame (make-frame)))
     (when windows
       (window-state-put windows (frame-root-window new-frame) 'safe))