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

diff --git a/lisp/frame.el b/lisp/frame.el
index 86c52dc438286eb207fc4ebf75f60fb0ac087951..69119b4c24f5f105710476afc087aacc969ca46b 100644 (file)
--- 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))