diff options
| author | Juri Linkov <juri@linkov.net> | 2022-01-27 19:47:40 +0200 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2022-01-27 19:47:40 +0200 |
| commit | 3dd47bde7a87bef332bd53f3e73c8d2bc64910c8 (patch) | |
| tree | d832821496cb291ca4b76908533d8f4f076c22ef /lisp | |
| parent | c9524819eaf4e561a184b04dfca7e42970dc8809 (diff) | |
| download | emacs-3dd47bde7a87bef332bd53f3e73c8d2bc64910c8.tar.gz emacs-3dd47bde7a87bef332bd53f3e73c8d2bc64910c8.tar.bz2 emacs-3dd47bde7a87bef332bd53f3e73c8d2bc64910c8.zip | |
* lisp/frame.el (clone-frame): Filter out 'parent-id' (bug#51883).
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/frame.el | 5 |
1 files changed, 3 insertions, 2 deletions
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)) |