diff options
| author | Lars Ingebrigtsen | 2021-09-01 16:27:06 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2021-09-01 16:27:06 +0200 |
| commit | c42bb9d75caeb94fc0223aab27a7819930288aef (patch) | |
| tree | 63cbdab8cebc2b1daf7f5e8a9a1216e4798007c5 | |
| parent | b3a9d8cd3dd8d65969d853e9e16e95bb51e61dd3 (diff) | |
| download | emacs-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.el | 5 |
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)) |