From: Po Lu <luangruo@yahoo.com>
Date: Wed, 23 Mar 2022 04:01:01 +0000 (+0000)
Subject: Fix crash in haiku_message_to_lisp
X-Git-Tag: emacs-29.0.90~1931^2~967
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=64aabe706f139cce82a10d0c6d1fd9904c51cbcf;p=emacs.git

Fix crash in haiku_message_to_lisp

* src/haikuselect.c (haiku_message_to_lisp): Block input around
`free'.
---

diff --git a/src/haikuselect.c b/src/haikuselect.c
index 21407eedf0e..5a90fe37d22 100644
--- a/src/haikuselect.c
+++ b/src/haikuselect.c
@@ -239,7 +239,10 @@ haiku_message_to_lisp (void *message)
 		memory_full (SIZE_MAX);
 
 	      t1 = build_string (pbuf);
+
+	      block_input ();
 	      free (pbuf);
+	      unblock_input ();
 	      break;
 
 	    case 'SHRT':