From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 6 May 2023 11:16:36 +0000 (+0300)
Subject: * lisp/x-dnd.el (x-dnd-after-move-frame): Skip dead frames.  (Bug#63312)
X-Git-Tag: emacs-29.0.91~39
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=15e06260ae8;p=emacs.git

* lisp/x-dnd.el (x-dnd-after-move-frame): Skip dead frames.  (Bug#63312)
---

diff --git a/lisp/x-dnd.el b/lisp/x-dnd.el
index 9286a1858cf..acfbbed9677 100644
--- a/lisp/x-dnd.el
+++ b/lisp/x-dnd.el
@@ -609,8 +609,9 @@ message (format 32) that caused EVENT to be generated."
 (defun x-dnd-after-move-frame (frame)
   "Handle FRAME moving to a different position.
 Clear any cached root window position."
-  (set-frame-parameter frame 'dnd-root-window-position
-                       nil))
+  (and (frame-live-p frame)
+       (set-frame-parameter frame 'dnd-root-window-position
+                            nil)))
 
 (add-hook 'move-frame-functions #'x-dnd-after-move-frame)