From: Po Lu <luangruo@yahoo.com>
Date: Wed, 8 Jun 2022 05:03:57 +0000 (+0800)
Subject: Fix quitting in one go out of `mouse-drag-and-drop-region'
X-Git-Tag: emacs-29.0.90~1910^2~159
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=90f3da0ccdb4c58265e9f8c3d9465198d8a2092a;p=emacs.git

Fix quitting in one go out of `mouse-drag-and-drop-region'

* src/xterm.c (x_dnd_begin_drag_and_drop): Make sure
handle_interrupt is called inside the nested event loop upon a
quit event.
---

diff --git a/src/xterm.c b/src/xterm.c
index f42f7cb1eb5..444adcf94f1 100644
--- a/src/xterm.c
+++ b/src/xterm.c
@@ -11116,6 +11116,12 @@ x_dnd_begin_drag_and_drop (struct frame *f, Time time, Atom xaction,
 	      if (x_dnd_motif_setup_p)
 		XDeleteProperty (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
 				 FRAME_DISPLAY_INFO (f)->Xatom_XdndSelection);
+
+	      /* Call kbd_buffer_store event, which calls
+		 handle_interrupt and sets `last-event-frame' along
+		 with various other things.  */
+	      kbd_buffer_store_event (&hold_quit);
+	      /* Now quit anyway.  */
 	      quit ();
 	    }