mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/frame.el (undelete-frame--save-deleted-frame): Handle initial frame.

Browse source 
The function undelete-frame--save-deleted-frame is renamed
from undelete-frame--handle-delete-frame (bug#51883).
This commit is contained in:
Juri Linkov 2022-01-30 18:38:24 +02:00
parent 1b83e58adb
commit 58bb9eb400
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/frame.el
View file

@ -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)