[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master de81349bd89 1/2: * lisp/frame.el (handle-move-frame): Fix corner
From: |
Stefan Monnier |
Subject: |
master de81349bd89 1/2: * lisp/frame.el (handle-move-frame): Fix corner case error |
Date: |
Sun, 19 Mar 2023 14:51:54 -0400 (EDT) |
branch: master
commit de81349bd898a2c26f9ae15ed967484c7475646f
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
* lisp/frame.el (handle-move-frame): Fix corner case error
---
lisp/frame.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
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