From: Po Lu <luangruo@yahoo.com>
Date: Sun, 20 Feb 2022 10:42:41 +0000 (+0000)
Subject: * src/haikumenu.c (haiku_dialog_show): Set `popup_activated_p'.
X-Git-Tag: emacs-29.0.90~2211
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7b7c09c5612b20c277ae5b78514858e9805c3f35;p=emacs.git

* src/haikumenu.c (haiku_dialog_show): Set `popup_activated_p'.

Author:
---

diff --git a/src/haikumenu.c b/src/haikumenu.c
index 61c48a5e104..11a76217a9d 100644
--- a/src/haikumenu.c
+++ b/src/haikumenu.c
@@ -258,8 +258,10 @@ haiku_dialog_show (struct frame *f, Lisp_Object title,
   unblock_input ();
 
   unrequest_sigio ();
+  ++popup_activated_p;
   int32_t val = BAlert_go (alert, block_input, unblock_input,
 			   process_pending_signals);
+  --popup_activated_p;
   request_sigio ();
 
   if (val < 0)