aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLars Ingebrigtsen2021-09-01 16:27:06 +0200
committerLars Ingebrigtsen2021-09-01 16:27:06 +0200
commitc42bb9d75caeb94fc0223aab27a7819930288aef (patch)
tree63cbdab8cebc2b1daf7f5e8a9a1216e4798007c5
parentb3a9d8cd3dd8d65969d853e9e16e95bb51e61dd3 (diff)
downloademacs-c42bb9d75caeb94fc0223aab27a7819930288aef.tar.gz
emacs-c42bb9d75caeb94fc0223aab27a7819930288aef.zip
Filter out the `name' parameter in clone-frame
* lisp/frame.el (clone-frame): Filter out the `name' parameter, because two frames shouldn't have the same name and this will lead to a warning.
-rw-r--r--lisp/frame.el5
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/frame.el b/lisp/frame.el
index f36a34db7d7..60234fc2ae9 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -798,7 +798,10 @@ also select the new frame."
798 (interactive "i\nP") 798 (interactive "i\nP")
799 (if use-default-parameters 799 (if use-default-parameters
800 (make-frame-command) 800 (make-frame-command)
801 (let* ((default-frame-alist (frame-parameters frame)) 801 (let* ((default-frame-alist (seq-filter
802 (lambda (elem)
803 (not (eq (car elem) 'name)))
804 (frame-parameters frame)))
802 (new-frame (make-frame))) 805 (new-frame (make-frame)))
803 (unless (display-graphic-p) 806 (unless (display-graphic-p)
804 (select-frame new-frame)) 807 (select-frame new-frame))