From: Andrew Choi <akochoi@shaw.ca>
Date: Sun, 11 Aug 2002 00:26:24 +0000 (+0000)
Subject: 2002-08-10  Andrew Choi  <akochoi@shaw.ca>
X-Git-Tag: ttn-vms-21-2-B4~13722
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8030369ccb5c871d3ce11b96c220f318bc741ed8;p=emacs.git

2002-08-10  Andrew Choi  <akochoi@shaw.ca>

	* mac.c (sys_select) [MAC_OSX]: New function.

	* macterm.c (MakeMeTheFrontProcess): New function.
	(mac_initialize): Call MakeMeTheFrontProcess.

	* s/darwin.h: Define select to sys_select.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 51409076df8..4abbbfbf3de 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,12 @@
+2002-08-10  Andrew Choi  <akochoi@shaw.ca>
+
+	* mac.c (sys_select) [MAC_OSX]: New function.
+
+	* macterm.c (MakeMeTheFrontProcess): New function.
+	(mac_initialize): Call MakeMeTheFrontProcess.
+
+	* s/darwin.h: Define select to sys_select.
+
 2002-08-09  Richard M. Stallman  <rms@gnu.org>
 
 	* keyboard.c (make_lispy_event): Test WINDOWSNT, not WINDOWS_NT.
diff --git a/src/mac.c b/src/mac.c
index 6070c6a0dc7..a9c97849d55 100644
--- a/src/mac.c
+++ b/src/mac.c
@@ -2745,6 +2745,30 @@ and t is the same as `SECONDARY'.  */)
   return Qnil;
 }
 
+#ifdef MAC_OSX
+#undef select
+
+extern int inhibit_window_system;
+
+/* When Emacs is started from the Finder, SELECT always immediately
+   returns as if input is present when file descriptor 0 is polled for
+   input.  Strangely, when Emacs is run as a GUI application from the
+   command line, it blocks in the same situation.  This `wrapper' of
+   the system call SELECT corrects this discrepancy.  */
+int
+sys_select (n, rfds, wfds, efds, timeout)
+  int n;
+  SELECT_TYPE *rfds;
+  SELECT_TYPE *wfds;
+  SELECT_TYPE *efds;
+  struct timeval *timeout;
+{
+  if (!inhibit_window_system && rfds && FD_ISSET (0, rfds))
+    return 1;
+  else
+    return select (n, rfds, wfds, efds, timeout);
+}
+#endif /* MAC_OSX */
 
 void
 syms_of_mac ()
diff --git a/src/macterm.c b/src/macterm.c
index e9cb1b07de7..a907425c391 100644
--- a/src/macterm.c
+++ b/src/macterm.c
@@ -366,6 +366,7 @@ extern XrmDatabase x_load_resources P_ ((Display *, char *, char *, char *));
 
 extern Lisp_Object x_icon_type P_ ((struct frame *));
 
+extern int inhibit_window_system;
 
 #if __MRC__
 QDGlobals qd;  /* QuickDraw global information structure.  */
@@ -13405,6 +13406,18 @@ mac_term_init (display_name, xrm_option, resource_name)
   return dpyinfo;
 }
 
+#ifdef MAC_OSX
+void MakeMeTheFrontProcess ()
+{
+  ProcessSerialNumber psn;
+  OSErr err;
+  
+  err = GetCurrentProcess (&psn);
+  if (err == noErr)
+    (void) SetFrontProcess (&psn);
+}
+#endif /* MAC_OSX */
+
 /* Set up use of X before we make the first connection.  */
 
 static struct redisplay_interface x_redisplay_interface =
@@ -13514,6 +13527,9 @@ mac_initialize ()
 #endif
 
   DisableMenuCommand (NULL, kHICommandQuit);
+
+  if (!inhibit_window_system)
+    MakeMeTheFrontProcess ();
 #endif
 }
 
diff --git a/src/s/darwin.h b/src/s/darwin.h
index a4b3b727537..c8e5ac54f7a 100644
--- a/src/s/darwin.h
+++ b/src/s/darwin.h
@@ -308,3 +308,10 @@ struct kboard;
 #define realloc unexec_realloc
 #define free unexec_free
 #endif
+
+/* Reroute calls to SELECT to the version defined in mac.c to fix the
+   problem of Emacs requiring an extra return to be typed to start
+   working when started from the command line.  */
+#if defined (emacs) || defined (temacs)
+#define select sys_select
+#endif