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 21407eedf0eeaf3a7f5020426b1150b02458a032..5a90fe37d22c7a55979840feccc36dce8361c7fd 100644 (file)
--- 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':