From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sat, 21 Jan 2023 13:49:48 +0000 (-0500)
Subject: * lisp/frame.el (handle-move-frame): Fix corner case error
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=de81349bd898a2c26f9ae15ed967484c7475646f;p=emacs.git

* lisp/frame.el (handle-move-frame): Fix corner case error
---

diff --git a/lisp/frame.el b/lisp/frame.el
index d9255a55171..39e8a4c88b8 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -239,7 +239,8 @@ that's not the whole story: see `after-focus-change-function'."
 This function runs the abnormal hook `move-frame-functions'."
   (interactive "e")
   (let ((frame (posn-window (event-start event))))
-    (run-hook-with-args 'move-frame-functions frame)))
+    (when (frame-live-p frame) ;Experience shows it can die in the meantime.
+      (run-hook-with-args 'move-frame-functions frame))))
 
 ;;;; Arrangement of frames at startup