* 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 9286a1858cf8a7ef49655362b504705ca9118646..acfbbed9677cec84cca4b607eff72b5a813e9542 100644 (file)
--- 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)