From: YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
Date: Fri, 29 Apr 2005 09:00:22 +0000 (+0000)
Subject: (Fx_server_version): Add BLOCK_INPUT around Gestalt.
X-Git-Tag: ttn-vms-21-2-B4~666
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4f19cb1521ff3c2c50820d91c00dea6d2af48954;p=emacs.git

(Fx_server_version): Add BLOCK_INPUT around Gestalt.
---

diff --git a/src/macfns.c b/src/macfns.c
index b85c4f01795..a8b685582d5 100644
--- a/src/macfns.c
+++ b/src/macfns.c
@@ -2969,8 +2969,13 @@ If omitted or nil, that stands for the selected frame's display.  */)
 {
   int mac_major_version;
   SInt32 response;
+  OSErr err;
 
-  if (Gestalt (gestaltSystemVersion, &response) != noErr)
+  BLOCK_INPUT;
+  err = Gestalt (gestaltSystemVersion, &response);
+  UNBLOCK_INPUT;
+
+  if (err != noErr)
     error ("Cannot get Mac OS version");
 
   mac_major_version = (response >> 8) & 0xff;