[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 58bb9eb400 2/2: * lisp/frame.el (undelete-frame--save-deleted-fra
From: |
Juri Linkov |
Subject: |
master 58bb9eb400 2/2: * lisp/frame.el (undelete-frame--save-deleted-frame): Handle initial frame. |
Date: |
Sun, 30 Jan 2022 11:41:09 -0500 (EST) |
branch: master
commit 58bb9eb4005599155a8fce8d5c5beb531a72c534
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>
* lisp/frame.el (undelete-frame--save-deleted-frame): Handle initial frame.
The function undelete-frame--save-deleted-frame is renamed
from undelete-frame--handle-delete-frame (bug#51883).
---
lisp/frame.el | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/lisp/frame.el b/lisp/frame.el
index 56295a56e3..d39597d0af 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -2531,12 +2531,12 @@ deleting them."
(setq this next))))
(defvar undelete-frame--deleted-frames nil
- "Internal variable used by `undelete-frame--handle-delete-frame'.")
+ "Internal variable used by `undelete-frame--save-deleted-frame'.")
-(defun undelete-frame--handle-delete-frame (frame)
+(defun undelete-frame--save-deleted-frame (frame)
"Save the configuration of frames deleted with `delete-frame'.
Only the 16 most recently deleted frames are saved."
- (when (frame-live-p frame)
+ (when (and after-init-time (frame-live-p frame))
(setq undelete-frame--deleted-frames
(cons
(list
@@ -2564,9 +2564,9 @@ Only the 16 most recently deleted frames are saved."
:global t
(if undelete-frame-mode
(add-hook 'delete-frame-functions
- #'undelete-frame--handle-delete-frame -75)
+ #'undelete-frame--save-deleted-frame -75)
(remove-hook 'delete-frame-functions
- #'undelete-frame--handle-delete-frame)
+ #'undelete-frame--save-deleted-frame)
(setq undelete-frame--deleted-frames nil)))
(defun undelete-frame (&optional arg)