* calendar/todo-mode.el: Fix two bugs.

[bpt/emacs.git] / lib-src / emacsclient.c

diff --git a/lib-src/emacsclient.c b/lib-src/emacsclient.c
index 2950444..a1177f5 100644 (file)
--- a/lib-src/emacsclient.c
+++ b/lib-src/emacsclient.c
@@ -1,5 +1,6 @@
 /* Client process that communicates with GNU Emacs acting as server.
 /* Client process that communicates with GNU Emacs acting as server.

-   Copyright (C) 1986-1987, 1994, 1999-2012 Free Software Foundation, Inc.
+
+Copyright (C) 1986-1987, 1994, 1999-2014 Free Software Foundation, Inc.

 
 This file is part of GNU Emacs.
 
 
 This file is part of GNU Emacs.
 


@@ -21,7 +22,7 @@ along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.  */
 
 #ifdef WINDOWSNT
 
 
 #ifdef WINDOWSNT
 

-/* config.h defines these, which disables sockets altogether! */
+/* ms-w32.h defines these, which disables sockets altogether!  */

 # undef _WINSOCKAPI_
 # undef _WINSOCK_H
 
 # undef _WINSOCKAPI_
 # undef _WINSOCK_H
 


@@ -43,6 +44,10 @@ char *w32_getenv (char *);
 
 #else /* !WINDOWSNT */
 
 
 #else /* !WINDOWSNT */
 

+# ifdef HAVE_NTGUI
+# include <windows.h>
+# endif /* HAVE_NTGUI */
+

 # include "syswait.h"
 
 # ifdef HAVE_INET_SOCKETS
 # include "syswait.h"
 
 # ifdef HAVE_INET_SOCKETS


@@ -60,10 +65,6 @@ char *w32_getenv (char *);
 # define CLOSE_SOCKET close
 # define INITIALIZE()
 
 # define CLOSE_SOCKET close
 # define INITIALIZE()
 

-# ifndef WCONTINUED
-#  define WCONTINUED 8
-# endif
-

 #define egetenv(VAR) getenv(VAR)
 
 #endif /* !WINDOWSNT */
 #define egetenv(VAR) getenv(VAR)
 
 #endif /* !WINDOWSNT */


@@ -83,10 +84,7 @@ char *w32_getenv (char *);
 
 
 \f
 
 
 \f

-char *getenv (const char *), *getwd (char *);
-#ifdef HAVE_GETCWD
-char *(getcwd) (char *, size_t);
-#endif
+char *getenv (const char *);

 
 #ifndef VERSION
 #define VERSION "unspecified"
 
 #ifndef VERSION
 #define VERSION "unspecified"


@@ -101,24 +99,9 @@ char *(getcwd) (char *, size_t);
 #define EXIT_FAILURE 1
 #endif
 
 #define EXIT_FAILURE 1
 #endif
 

-#ifndef FALSE
-#define FALSE 0
-#endif
-
-#ifndef TRUE
-#define TRUE 1
-#endif
-

 /* Additional space when allocating buffers for filenames, etc.  */
 #define EXTRA_SPACE 100
 
 /* Additional space when allocating buffers for filenames, etc.  */
 #define EXTRA_SPACE 100
 

-/* Use this to suppress gcc's `...may be used before initialized' warnings. */
-#ifdef lint
-# define IF_LINT(Code) Code
-#else
-# define IF_LINT(Code) /* empty */
-#endif
-

 #ifdef min
 #undef min
 #endif
 #ifdef min
 #undef min
 #endif


@@ -146,6 +129,9 @@ int current_frame = 1;
 /* The display on which Emacs should work.  --display.  */
 const char *display = NULL;
 
 /* The display on which Emacs should work.  --display.  */
 const char *display = NULL;
 

+/* The alternate display we should try if Emacs does not support display.  */
+const char *alt_display = NULL;
+

 /* The parent window ID, if we are opening a frame via XEmbed.  */
 char *parent_id = NULL;
 
 /* The parent window ID, if we are opening a frame via XEmbed.  */
 char *parent_id = NULL;
 


@@ -169,8 +155,7 @@ int emacs_pid = 0;
    be used for the new frame */
 const char *frame_parameters = NULL;
 
    be used for the new frame */
 const char *frame_parameters = NULL;
 

-static void print_help_and_exit (void) NO_RETURN;
-static void fail (void) NO_RETURN;
+static _Noreturn void print_help_and_exit (void);

 
 
 struct option longopts[] =
 
 
 struct option longopts[] =


@@ -189,9 +174,7 @@ struct option longopts[] =
   { "socket-name",     required_argument, NULL, 's' },
 #endif
   { "server-file",     required_argument, NULL, 'f' },
   { "socket-name",     required_argument, NULL, 's' },
 #endif
   { "server-file",     required_argument, NULL, 'f' },

-#ifndef WINDOWSNT

   { "display", required_argument, NULL, 'd' },
   { "display", required_argument, NULL, 'd' },

-#endif

   { "parent-id", required_argument, NULL, 'p' },
   { 0, 0, 0, 0 }
 };
   { "parent-id", required_argument, NULL, 'p' },
   { 0, 0, 0, 0 }
 };


@@ -214,21 +197,6 @@ xmalloc (size_t size)
 /* From sysdep.c */
 #if !defined (HAVE_GET_CURRENT_DIR_NAME) || defined (BROKEN_GET_CURRENT_DIR_NAME)
 
 /* From sysdep.c */
 #if !defined (HAVE_GET_CURRENT_DIR_NAME) || defined (BROKEN_GET_CURRENT_DIR_NAME)
 

-/* From lisp.h */
-#ifndef DIRECTORY_SEP
-#define DIRECTORY_SEP '/'
-#endif
-#ifndef IS_DIRECTORY_SEP
-#define IS_DIRECTORY_SEP(_c_) ((_c_) == DIRECTORY_SEP)
-#endif
-#ifndef IS_DEVICE_SEP
-#ifndef DEVICE_SEP
-#define IS_DEVICE_SEP(_c_) 0
-#else
-#define IS_DEVICE_SEP(_c_) ((_c_) == DEVICE_SEP)
-#endif
-#endif
-

 char *get_current_dir_name (void);
 
 /* Return the current working directory.  Returns NULL on errors.
 char *get_current_dir_name (void);
 
 /* Return the current working directory.  Returns NULL on errors.


@@ -240,7 +208,7 @@ get_current_dir_name (void)
   char *buf;
   const char *pwd;
   struct stat dotstat, pwdstat;
   char *buf;
   const char *pwd;
   struct stat dotstat, pwdstat;

-  /* If PWD is accurate, use it instead of calling getwd.  PWD is
+  /* If PWD is accurate, use it instead of calling getcwd.  PWD is

      sometimes a nicer name, and using it may avoid a fatal error if a
      parent directory is searchable but not readable.  */
     if ((pwd = egetenv ("PWD")) != 0
      sometimes a nicer name, and using it may avoid a fatal error if a
      parent directory is searchable but not readable.  */
     if ((pwd = egetenv ("PWD")) != 0


@@ -257,7 +225,6 @@ get_current_dir_name (void)
       buf = (char *) xmalloc (strlen (pwd) + 1);
       strcpy (buf, pwd);
     }
       buf = (char *) xmalloc (strlen (pwd) + 1);
       strcpy (buf, pwd);
     }

-#ifdef HAVE_GETCWD

   else
     {
       size_t buf_size = 1024;
   else
     {
       size_t buf_size = 1024;


@@ -284,20 +251,6 @@ get_current_dir_name (void)
            }
         }
     }
            }
         }
     }

-#else
-  else
-    {
-      /* We need MAXPATHLEN here.  */
-      buf = (char *) xmalloc (MAXPATHLEN + 1);
-      if (getwd (buf) == NULL)
-        {
-          int tmp_errno = errno;
-          free (buf);
-          errno = tmp_errno;
-          return NULL;
-        }
-    }
-#endif

   return buf;
 }
 #endif
   return buf;
 }
 #endif


@@ -407,32 +360,6 @@ w32_getenv (char *envvar)
   return NULL;
 }
 
   return NULL;
 }
 

-void
-w32_set_user_model_id (void)
-{
-  HMODULE shell;
-  HRESULT (WINAPI * set_user_model) (wchar_t * id);
-
-  /* On Windows 7 and later, we need to set the user model ID
-     to associate emacsclient launched files with Emacs frames
-     in the UI.  */
-  shell = LoadLibrary ("shell32.dll");
-  if (shell)
-    {
-      set_user_model
-       = (void *) GetProcAddress (shell,
-                                  "SetCurrentProcessExplicitAppUserModelID");
-      /* If the function is defined, then we are running on Windows 7
-        or newer, and the UI uses this to group related windows
-        together.  Since emacs, runemacs, emacsclient are related, we
-        want them grouped even though the executables are different,
-        so we need to set a consistent ID between them.  */
-      if (set_user_model)
-       set_user_model (L"GNU.Emacs");
-
-      FreeLibrary (shell);
-    }
-}

 
 int
 w32_window_app (void)
 
 int
 w32_window_app (void)


@@ -452,19 +379,19 @@ w32_window_app (void)
   return window_app;
 }
 
   return window_app;
 }
 

-/*
-  execvp wrapper for Windows.  Quotes arguments with embedded spaces.
+/* execvp wrapper for Windows.  Quotes arguments with embedded spaces.

 
   This is necessary due to the broken implementation of exec* routines in
   the Microsoft libraries: they concatenate the arguments together without
   quoting special characters, and pass the result to CreateProcess, with
   predictably bad results.  By contrast, POSIX execvp passes the arguments
 
   This is necessary due to the broken implementation of exec* routines in
   the Microsoft libraries: they concatenate the arguments together without
   quoting special characters, and pass the result to CreateProcess, with
   predictably bad results.  By contrast, POSIX execvp passes the arguments

-  directly into the argv array of the child process.
-*/
+  directly into the argv array of the child process.  */
+

 int
 w32_execvp (const char *path, char **argv)
 {
   int i;
 int
 w32_execvp (const char *path, char **argv)
 {
   int i;

+  extern int execvp (const char*, char **);

 
   /* Required to allow a .BAT script as alternate editor.  */
   argv[0] = (char *) alternate_editor;
 
   /* Required to allow a .BAT script as alternate editor.  */
   argv[0] = (char *) alternate_editor;


@@ -494,9 +421,9 @@ ttyname (int fd)
 
 /* Display a normal or error message.
    On Windows, use a message box if compiled as a Windows app.  */
 
 /* Display a normal or error message.
    On Windows, use a message box if compiled as a Windows app.  */

-static void message (int, const char *, ...) ATTRIBUTE_FORMAT_PRINTF (2, 3);
+static void message (bool, const char *, ...) ATTRIBUTE_FORMAT_PRINTF (2, 3);

 static void
 static void

-message (int is_error, const char *format, ...)
+message (bool is_error, const char *format, ...)

 {
   va_list args;
 
 {
   va_list args;
 


@@ -589,7 +516,7 @@ decode_options (int argc, char **argv)
          break;
 
        case 'V':
          break;
 
        case 'V':

-         message (FALSE, "emacsclient %s\n", VERSION);
+         message (false, "emacsclient %s\n", VERSION);

          exit (EXIT_SUCCESS);
          break;
 
          exit (EXIT_SUCCESS);
          break;
 


@@ -616,7 +543,7 @@ decode_options (int argc, char **argv)
           break;
 
        default:
           break;
 
        default:

-         message (TRUE, "Try `%s --help' for more information\n", progname);
+         message (true, "Try `%s --help' for more information\n", progname);

          exit (EXIT_FAILURE);
          break;
        }
          exit (EXIT_FAILURE);
          break;
        }


@@ -627,16 +554,29 @@ decode_options (int argc, char **argv)
      Without the -c option, we used to set `display' to $DISPLAY by
      default, but this changed the default behavior and is sometimes
      inconvenient.  So we force users to use "--display $DISPLAY" if
      Without the -c option, we used to set `display' to $DISPLAY by
      default, but this changed the default behavior and is sometimes
      inconvenient.  So we force users to use "--display $DISPLAY" if

-     they want Emacs to connect to their current display.  */
+     they want Emacs to connect to their current display.
+
+     Some window systems have a notion of default display not
+     reflected in the DISPLAY variable.  If the user didn't give us an
+     explicit display, try this platform-specific after trying the
+     display in DISPLAY (if any).  */

   if (!current_frame && !tty && !display)
     {
   if (!current_frame && !tty && !display)
     {

-      display = egetenv ("DISPLAY");
-#ifdef NS_IMPL_COCOA
-      /* Under Cocoa, we don't really use displays the same way as in X,
-         so provide a dummy. */
-      if (!display || strlen (display) == 0)
-        display = "ns";
+      /* Set these here so we use a default_display only when the user
+         didn't give us an explicit display.  */
+#if defined (NS_IMPL_COCOA)
+      alt_display = "ns";
+#elif defined (HAVE_NTGUI)
+      alt_display = "w32";

 #endif
 #endif

+
+      display = egetenv ("DISPLAY");
+    }
+
+  if (!display)
+    {
+      display = alt_display;
+      alt_display = NULL;

     }
 
   /* A null-string display is invalid.  */
     }
 
   /* A null-string display is invalid.  */


@@ -662,7 +602,7 @@ decode_options (int argc, char **argv)
 
   if (alternate_editor && alternate_editor[0] == '\0')
     {
 
   if (alternate_editor && alternate_editor[0] == '\0')
     {

-      message (TRUE, "--alternate-editor argument or ALTERNATE_EDITOR variable cannot be\n\
+      message (true, "--alternate-editor argument or ALTERNATE_EDITOR variable cannot be\n\

 an empty string");
       exit (EXIT_FAILURE);
     }
 an empty string");
       exit (EXIT_FAILURE);
     }


@@ -670,15 +610,15 @@ an empty string");
 }
 
 \f
 }
 
 \f

-static void
+static _Noreturn void

 print_help_and_exit (void)
 {
   /* Spaces and tabs are significant in this message; they're chosen so the
      message aligns properly both in a tty and in a Windows message box.
      Please try to preserve them; otherwise the output is very hard to read
      when using emacsclientw.  */
 print_help_and_exit (void)
 {
   /* Spaces and tabs are significant in this message; they're chosen so the
      message aligns properly both in a tty and in a Windows message box.
      Please try to preserve them; otherwise the output is very hard to read
      when using emacsclientw.  */

-  message (FALSE,
-          "Usage: %s [OPTIONS] FILE...\n\
+  message (false,
+          "Usage: %s [OPTIONS] FILE...\n%s%s%s", progname, "\

 Tell the Emacs server to visit the specified files.\n\
 Every FILE can be either just a FILENAME or [+LINE[:COLUMN]] FILENAME.\n\
 \n\
 Tell the Emacs server to visit the specified files.\n\
 Every FILE can be either just a FILENAME or [+LINE[:COLUMN]] FILENAME.\n\
 \n\


@@ -688,6 +628,7 @@ The following OPTIONS are accepted:\n\
 -nw, -t, --tty                 Open a new Emacs frame on the current terminal\n\
 -c, --create-frame     Create a new frame instead of trying to\n\
                        use the current Emacs frame\n\
 -nw, -t, --tty                 Open a new Emacs frame on the current terminal\n\
 -c, --create-frame     Create a new frame instead of trying to\n\
                        use the current Emacs frame\n\

+", "\

 -F ALIST, --frame-parameters=ALIST\n\
                        Set the parameters of a new frame\n\
 -e, --eval             Evaluate the FILE arguments as ELisp expressions\n\
 -F ALIST, --frame-parameters=ALIST\n\
                        Set the parameters of a new frame\n\
 -e, --eval             Evaluate the FILE arguments as ELisp expressions\n\


@@ -695,6 +636,7 @@ The following OPTIONS are accepted:\n\
 -q, --quiet            Don't display messages on success\n\
 -d DISPLAY, --display=DISPLAY\n\
                        Visit the file in the given display\n\
 -q, --quiet            Don't display messages on success\n\
 -d DISPLAY, --display=DISPLAY\n\
                        Visit the file in the given display\n\

+", "\

 --parent-id=ID          Open in parent window ID, via XEmbed\n"
 #ifndef NO_SOCKETS_IN_FILE_SYSTEM
 "-s SOCKET, --socket-name=SOCKET\n\
 --parent-id=ID          Open in parent window ID, via XEmbed\n"
 #ifndef NO_SOCKETS_IN_FILE_SYSTEM
 "-s SOCKET, --socket-name=SOCKET\n\


@@ -709,16 +651,15 @@ The following OPTIONS are accepted:\n\
                        mode and try connecting again\n"
 #endif /* not WINDOWSNT */
 "\n\
                        mode and try connecting again\n"
 #endif /* not WINDOWSNT */
 "\n\

-Report bugs with M-x report-emacs-bug.\n", progname);
+Report bugs with M-x report-emacs-bug.\n");

   exit (EXIT_SUCCESS);
 }
 
   exit (EXIT_SUCCESS);
 }
 

-/*
-  Try to run a different command, or --if no alternate editor is
-  defined-- exit with an errorcode.
-  Uses argv, but gets it from the global variable main_argv.
-*/
-static void
+/* Try to run a different command, or --if no alternate editor is
+   defined-- exit with an errorcode.
+   Uses argv, but gets it from the global variable main_argv.  */
+
+static _Noreturn void

 fail (void)
 {
   if (alternate_editor)
 fail (void)
 {
   if (alternate_editor)


@@ -726,7 +667,7 @@ fail (void)
       int i = optind - 1;
 
       execvp (alternate_editor, main_argv + i);
       int i = optind - 1;
 
       execvp (alternate_editor, main_argv + i);

-      message (TRUE, "%s: error executing alternate editor \"%s\"\n",
+      message (true, "%s: error executing alternate editor \"%s\"\n",

               progname, alternate_editor);
     }
   exit (EXIT_FAILURE);
               progname, alternate_editor);
     }
   exit (EXIT_FAILURE);


@@ -740,7 +681,7 @@ main (int argc, char **argv)
 {
   main_argv = argv;
   progname = argv[0];
 {
   main_argv = argv;
   progname = argv[0];

-  message (TRUE, "%s: Sorry, the Emacs server is supported only\n"
+  message (true, "%s: Sorry, the Emacs server is supported only\n"

           "on systems with Berkeley sockets.\n",
           argv[0]);
   fail ();
           "on systems with Berkeley sockets.\n",
           argv[0]);
   fail ();


@@ -751,16 +692,15 @@ main (int argc, char **argv)
 #define AUTH_KEY_LENGTH      64
 #define SEND_BUFFER_SIZE   4096
 
 #define AUTH_KEY_LENGTH      64
 #define SEND_BUFFER_SIZE   4096
 

-extern char *strerror (int);
-

 /* Buffer to accumulate data to send in TCP connections.  */
 char send_buffer[SEND_BUFFER_SIZE + 1];
 int sblen = 0; /* Fill pointer for the send buffer.  */
 /* Socket used to communicate with the Emacs server process.  */
 HSOCKET emacs_socket = 0;
 
 /* Buffer to accumulate data to send in TCP connections.  */
 char send_buffer[SEND_BUFFER_SIZE + 1];
 int sblen = 0; /* Fill pointer for the send buffer.  */
 /* Socket used to communicate with the Emacs server process.  */
 HSOCKET emacs_socket = 0;
 

-/* On Windows, the socket library was historically separate from the standard
-   C library, so errors are handled differently.  */
+/* On Windows, the socket library was historically separate from the
+   standard C library, so errors are handled differently.  */
+

 static void
 sock_err_message (const char *function_name)
 {
 static void
 sock_err_message (const char *function_name)
 {


@@ -772,11 +712,11 @@ sock_err_message (const char *function_name)
                  | FORMAT_MESSAGE_ARGUMENT_ARRAY,
                  NULL, WSAGetLastError (), 0, (LPTSTR)&msg, 0, NULL);
 
                  | FORMAT_MESSAGE_ARGUMENT_ARRAY,
                  NULL, WSAGetLastError (), 0, (LPTSTR)&msg, 0, NULL);
 

-  message (TRUE, "%s: %s: %s\n", progname, function_name, msg);
+  message (true, "%s: %s: %s\n", progname, function_name, msg);

 
   LocalFree (msg);
 #else
 
   LocalFree (msg);
 #else

-  message (TRUE, "%s: %s: %s\n", progname, function_name, strerror (errno));
+  message (true, "%s: %s: %s\n", progname, function_name, strerror (errno));

 #endif
 }
 
 #endif
 }
 


@@ -807,7 +747,7 @@ send_to_emacs (HSOCKET s, const char *data)
          int sent = send (s, send_buffer, sblen, 0);
          if (sent < 0)
            {
          int sent = send (s, send_buffer, sblen, 0);
          if (sent < 0)
            {

-             message (TRUE, "%s: failed to send %d bytes to socket: %s\n",
+             message (true, "%s: failed to send %d bytes to socket: %s\n",

                       progname, sblen, strerror (errno));
              fail ();
            }
                       progname, sblen, strerror (errno));
              fail ();
            }


@@ -865,7 +805,7 @@ quote_argument (HSOCKET s, const char *str)
 
 
 /* The inverse of quote_argument.  Removes quoting in string STR by
 
 
 /* The inverse of quote_argument.  Removes quoting in string STR by

-   modifying the string in place.   Returns STR. */
+   modifying the string in place.   Returns STR.  */

 
 static char *
 unquote_argument (char *str)
 
 static char *
 unquote_argument (char *str)


@@ -902,25 +842,25 @@ static int
 file_name_absolute_p (const char *filename)
 {
   /* Sanity check, it shouldn't happen.  */
 file_name_absolute_p (const char *filename)
 {
   /* Sanity check, it shouldn't happen.  */

-  if (! filename) return FALSE;
+  if (! filename) return false;

 
   /* /xxx is always an absolute path.  */
 
   /* /xxx is always an absolute path.  */

-  if (filename[0] == '/') return TRUE;
+  if (filename[0] == '/') return true;

 
   /* Empty filenames (which shouldn't happen) are relative.  */
 
   /* Empty filenames (which shouldn't happen) are relative.  */

-  if (filename[0] == '\0') return FALSE;
+  if (filename[0] == '\0') return false;

 
 #ifdef WINDOWSNT
   /* X:\xxx is always absolute.  */
   if (isalpha ((unsigned char) filename[0])
       && filename[1] == ':' && (filename[2] == '\\' || filename[2] == '/'))
 
 #ifdef WINDOWSNT
   /* X:\xxx is always absolute.  */
   if (isalpha ((unsigned char) filename[0])
       && filename[1] == ':' && (filename[2] == '\\' || filename[2] == '/'))

-    return TRUE;
+    return true;

 
   /* Both \xxx and \\xxx\yyy are absolute.  */
 
   /* Both \xxx and \\xxx\yyy are absolute.  */

-  if (filename[0] == '\\') return TRUE;
+  if (filename[0] == '\\') return true;

 #endif
 
 #endif
 

-  return FALSE;
+  return false;

 }
 
 #ifdef WINDOWSNT
 }
 
 #ifdef WINDOWSNT


@@ -939,7 +879,7 @@ initialize_sockets (void)
 
   if (WSAStartup (MAKEWORD (2, 0), &wsaData))
     {
 
   if (WSAStartup (MAKEWORD (2, 0), &wsaData))
     {

-      message (TRUE, "%s: error initializing WinSock2\n", progname);
+      message (true, "%s: error initializing WinSock2\n", progname);

       exit (EXIT_FAILURE);
     }
 
       exit (EXIT_FAILURE);
     }
 


@@ -948,10 +888,9 @@ initialize_sockets (void)
 #endif /* WINDOWSNT */
 
 \f
 #endif /* WINDOWSNT */
 
 \f

-/*
- * Read the information needed to set up a TCP comm channel with
- * the Emacs server: host, port, and authentication string.
- */
+/* Read the information needed to set up a TCP comm channel with
+   the Emacs server: host, port, and authentication string.  */
+

 static int
 get_server_config (const char *config_file, struct sockaddr_in *server,
                   char *authentication)
 static int
 get_server_config (const char *config_file, struct sockaddr_in *server,
                   char *authentication)


@@ -991,14 +930,14 @@ get_server_config (const char *config_file, struct sockaddr_in *server,
     }
 
   if (! config)
     }
 
   if (! config)

-    return FALSE;
+    return false;

 
   if (fgets (dotted, sizeof dotted, config)
       && (port = strchr (dotted, ':')))
     *port++ = '\0';
   else
     {
 
   if (fgets (dotted, sizeof dotted, config)
       && (port = strchr (dotted, ':')))
     *port++ = '\0';
   else
     {

-      message (TRUE, "%s: invalid configuration info\n", progname);
+      message (true, "%s: invalid configuration info\n", progname);

       exit (EXIT_FAILURE);
     }
 
       exit (EXIT_FAILURE);
     }
 


@@ -1008,13 +947,13 @@ get_server_config (const char *config_file, struct sockaddr_in *server,
 
   if (! fread (authentication, AUTH_KEY_LENGTH, 1, config))
     {
 
   if (! fread (authentication, AUTH_KEY_LENGTH, 1, config))
     {

-      message (TRUE, "%s: cannot read authentication info\n", progname);
+      message (true, "%s: cannot read authentication info\n", progname);

       exit (EXIT_FAILURE);
     }
 
   fclose (config);
 
       exit (EXIT_FAILURE);
     }
 
   fclose (config);
 

-  return TRUE;
+  return true;

 }
 
 static HSOCKET
 }
 
 static HSOCKET


@@ -1029,21 +968,17 @@ set_tcp_socket (const char *local_server_file)
     return INVALID_SOCKET;
 
   if (server.sin_addr.s_addr != inet_addr ("127.0.0.1") && !quiet)
     return INVALID_SOCKET;
 
   if (server.sin_addr.s_addr != inet_addr ("127.0.0.1") && !quiet)

-    message (FALSE, "%s: connected to remote socket at %s\n",
+    message (false, "%s: connected to remote socket at %s\n",

              progname, inet_ntoa (server.sin_addr));
 
              progname, inet_ntoa (server.sin_addr));
 

-  /*
-   * Open up an AF_INET socket
-   */
+  /* Open up an AF_INET socket.  */

   if ((s = socket (AF_INET, SOCK_STREAM, IPPROTO_TCP)) < 0)
     {
       sock_err_message ("socket");
       return INVALID_SOCKET;
     }
 
   if ((s = socket (AF_INET, SOCK_STREAM, IPPROTO_TCP)) < 0)
     {
       sock_err_message ("socket");
       return INVALID_SOCKET;
     }
 

-  /*
-   * Set up the socket
-   */
+  /* Set up the socket.  */

   if (connect (s, (struct sockaddr *) &server, sizeof server) < 0)
     {
       sock_err_message ("connect");
   if (connect (s, (struct sockaddr *) &server, sizeof server) < 0)
     {
       sock_err_message ("connect");


@@ -1052,9 +987,7 @@ set_tcp_socket (const char *local_server_file)
 
   setsockopt (s, SOL_SOCKET, SO_LINGER, (char *) &l_arg, sizeof l_arg);
 
 
   setsockopt (s, SOL_SOCKET, SO_LINGER, (char *) &l_arg, sizeof l_arg);
 

-  /*
-   * Send the authentication
-   */
+  /* Send the authentication.  */

   auth_string[AUTH_KEY_LENGTH] = '\0';
 
   send_to_emacs (s, "-auth ");
   auth_string[AUTH_KEY_LENGTH] = '\0';
 
   send_to_emacs (s, "-auth ");


@@ -1088,7 +1021,7 @@ find_tty (const char **tty_type, const char **tty_name, int noabort)
        return 0;
       else
        {
        return 0;
       else
        {

-         message (TRUE, "%s: could not get terminal name\n", progname);
+         message (true, "%s: could not get terminal name\n", progname);

          fail ();
        }
     }
          fail ();
        }
     }


@@ -1099,7 +1032,7 @@ find_tty (const char **tty_type, const char **tty_name, int noabort)
        return 0;
       else
        {
        return 0;
       else
        {

-         message (TRUE, "%s: please set the TERM variable to your terminal type\n",
+         message (true, "%s: please set the TERM variable to your terminal type\n",

                   progname);
          fail ();
        }
                   progname);
          fail ();
        }


@@ -1112,7 +1045,7 @@ find_tty (const char **tty_type, const char **tty_name, int noabort)
       else
        {
          /* This causes nasty, MULTI_KBOARD-related input lockouts. */
       else
        {
          /* This causes nasty, MULTI_KBOARD-related input lockouts. */

-         message (TRUE, "%s: opening a frame in an Emacs term buffer"
+         message (true, "%s: opening a frame in an Emacs term buffer"

                   " is not supported\n", progname);
          fail ();
        }
                   " is not supported\n", progname);
          fail ();
        }


@@ -1168,16 +1101,18 @@ static void
 handle_sigcont (int signalnum)
 {
   int old_errno = errno;
 handle_sigcont (int signalnum)
 {
   int old_errno = errno;

+  pid_t pgrp = getpgrp ();
+  pid_t tcpgrp = tcgetpgrp (1);

 
 

-  if (tcgetpgrp (1) == getpgrp ())
+  if (tcpgrp == pgrp)

     {
     {

-      /* We are in the foreground. */
+      /* We are in the foreground.  */

       send_to_emacs (emacs_socket, "-resume \n");
     }
       send_to_emacs (emacs_socket, "-resume \n");
     }

-  else
+  else if (0 <= tcpgrp && tty)

     {
     {

-      /* We are in the background; cancel the continue. */
-      kill (getpid (), SIGSTOP);
+      /* We are in the background; cancel the continue.  */
+      kill (-pgrp, SIGTTIN);

     }
 
   signal (signalnum, handle_sigcont);
     }
 
   signal (signalnum, handle_sigcont);


@@ -1188,7 +1123,7 @@ handle_sigcont (int signalnum)
    going to sleep.  Normally the suspend is initiated by Emacs via
    server-handle-suspend-tty, but if the server gets out of sync with
    reality, we may get a SIGTSTP on C-z.  Handling this signal and
    going to sleep.  Normally the suspend is initiated by Emacs via
    server-handle-suspend-tty, but if the server gets out of sync with
    reality, we may get a SIGTSTP on C-z.  Handling this signal and

-   notifying Emacs about it should get things under control again. */
+   notifying Emacs about it should get things under control again.  */

 
 static void
 handle_sigtstp (int signalnum)
 
 static void
 handle_sigtstp (int signalnum)


@@ -1204,7 +1139,7 @@ handle_sigtstp (int signalnum)
   sigprocmask (SIG_BLOCK, NULL, &set);
   sigdelset (&set, signalnum);
   signal (signalnum, SIG_DFL);
   sigprocmask (SIG_BLOCK, NULL, &set);
   sigdelset (&set, signalnum);
   signal (signalnum, SIG_DFL);

-  kill (getpid (), signalnum);
+  raise (signalnum);

   sigprocmask (SIG_SETMASK, &set, NULL); /* Let's the above signal through. */
   signal (signalnum, handle_sigtstp);
 
   sigprocmask (SIG_SETMASK, &set, NULL); /* Let's the above signal through. */
   signal (signalnum, handle_sigtstp);
 


@@ -1240,13 +1175,10 @@ set_local_socket (const char *local_socket_name)
   HSOCKET s;
   struct sockaddr_un server;
 
   HSOCKET s;
   struct sockaddr_un server;
 

-  /*
-   * Open up an AF_UNIX socket in this person's home directory
-   */
-
+  /* Open up an AF_UNIX socket in this person's home directory.  */

   if ((s = socket (AF_UNIX, SOCK_STREAM, 0)) < 0)
     {
   if ((s = socket (AF_UNIX, SOCK_STREAM, 0)) < 0)
     {

-      message (TRUE, "%s: socket: %s\n", progname, strerror (errno));
+      message (true, "%s: socket: %s\n", progname, strerror (errno));

       return INVALID_SOCKET;
     }
 
       return INVALID_SOCKET;
     }
 


@@ -1278,7 +1210,7 @@ set_local_socket (const char *local_socket_name)
             if (n > 0)
               {
                tmpdir = tmpdir_storage = xmalloc (n);
             if (n > 0)
               {
                tmpdir = tmpdir_storage = xmalloc (n);

-                confstr (_CS_DARWIN_USER_TEMP_DIR, tmpdir, n);
+               confstr (_CS_DARWIN_USER_TEMP_DIR, tmpdir_storage, n);

               }
             else
 #endif
               }
             else
 #endif


@@ -1297,7 +1229,7 @@ set_local_socket (const char *local_socket_name)
       strcpy (server.sun_path, local_socket_name);
     else
       {
       strcpy (server.sun_path, local_socket_name);
     else
       {

-        message (TRUE, "%s: socket-name %s too long\n",
+        message (true, "%s: socket-name %s too long\n",

                  progname, local_socket_name);
         fail ();
       }
                  progname, local_socket_name);
         fail ();
       }


@@ -1336,7 +1268,7 @@ set_local_socket (const char *local_socket_name)
                  strcpy (server.sun_path, user_socket_name);
                else
                  {
                  strcpy (server.sun_path, user_socket_name);
                else
                  {

-                   message (TRUE, "%s: socket-name %s too long\n",
+                   message (true, "%s: socket-name %s too long\n",

                             progname, user_socket_name);
                    exit (EXIT_FAILURE);
                  }
                             progname, user_socket_name);
                    exit (EXIT_FAILURE);
                  }


@@ -1360,7 +1292,7 @@ set_local_socket (const char *local_socket_name)
           we are root. */
        if (0 != geteuid ())
          {
           we are root. */
        if (0 != geteuid ())
          {

-           message (TRUE, "%s: Invalid socket owner\n", progname);
+           message (true, "%s: Invalid socket owner\n", progname);

            return INVALID_SOCKET;
          }
        break;
            return INVALID_SOCKET;
          }
        break;


@@ -1368,12 +1300,12 @@ set_local_socket (const char *local_socket_name)
       case 2:
        /* `stat' failed */
        if (saved_errno == ENOENT)
       case 2:
        /* `stat' failed */
        if (saved_errno == ENOENT)

-         message (TRUE,
+         message (true,

                   "%s: can't find socket; have you started the server?\n\
 To start the server in Emacs, type \"M-x server-start\".\n",
                   progname);
        else
                   "%s: can't find socket; have you started the server?\n\
 To start the server in Emacs, type \"M-x server-start\".\n",
                   progname);
        else

-         message (TRUE, "%s: can't stat %s: %s\n",
+         message (true, "%s: can't stat %s: %s\n",

                   progname, server.sun_path, strerror (saved_errno));
        return INVALID_SOCKET;
       }
                   progname, server.sun_path, strerror (saved_errno));
        return INVALID_SOCKET;
       }


@@ -1382,7 +1314,7 @@ To start the server in Emacs, type \"M-x server-start\".\n",
   if (connect (s, (struct sockaddr *) &server, strlen (server.sun_path) + 2)
       < 0)
     {
   if (connect (s, (struct sockaddr *) &server, strlen (server.sun_path) + 2)
       < 0)
     {

-      message (TRUE, "%s: connect: %s\n", progname, strerror (errno));
+      message (true, "%s: connect: %s\n", progname, strerror (errno));

       return INVALID_SOCKET;
     }
 
       return INVALID_SOCKET;
     }
 


@@ -1405,7 +1337,7 @@ set_socket (int no_exit_if_error)
       s = set_local_socket (socket_name);
       if ((s != INVALID_SOCKET) || no_exit_if_error)
        return s;
       s = set_local_socket (socket_name);
       if ((s != INVALID_SOCKET) || no_exit_if_error)
        return s;

-      message (TRUE, "%s: error accessing socket \"%s\"\n",
+      message (true, "%s: error accessing socket \"%s\"\n",

               progname, socket_name);
       exit (EXIT_FAILURE);
     }
               progname, socket_name);
       exit (EXIT_FAILURE);
     }


@@ -1421,7 +1353,7 @@ set_socket (int no_exit_if_error)
       if ((s != INVALID_SOCKET) || no_exit_if_error)
        return s;
 
       if ((s != INVALID_SOCKET) || no_exit_if_error)
        return s;
 

-      message (TRUE, "%s: error accessing server file \"%s\"\n",
+      message (true, "%s: error accessing server file \"%s\"\n",

               progname, local_server_file);
       exit (EXIT_FAILURE);
     }
               progname, local_server_file);
       exit (EXIT_FAILURE);
     }


@@ -1439,7 +1371,7 @@ set_socket (int no_exit_if_error)
     return s;
 
   /* No implicit or explicit socket, and no alternate editor.  */
     return s;
 
   /* No implicit or explicit socket, and no alternate editor.  */

-  message (TRUE, "%s: No socket or alternate editor.  Please use:\n\n"
+  message (true, "%s: No socket or alternate editor.  Please use:\n\n"

 #ifndef NO_SOCKETS_IN_FILE_SYSTEM
 "\t--socket-name\n"
 #endif
 #ifndef NO_SOCKETS_IN_FILE_SYSTEM
 "\t--socket-name\n"
 #endif


@@ -1449,10 +1381,37 @@ set_socket (int no_exit_if_error)
   exit (EXIT_FAILURE);
 }
 
   exit (EXIT_FAILURE);
 }
 

-#ifdef WINDOWSNT
+#ifdef HAVE_NTGUI

 FARPROC set_fg;  /* Pointer to AllowSetForegroundWindow.  */
 FARPROC get_wc;  /* Pointer to RealGetWindowClassA.  */
 
 FARPROC set_fg;  /* Pointer to AllowSetForegroundWindow.  */
 FARPROC get_wc;  /* Pointer to RealGetWindowClassA.  */
 

+void
+w32_set_user_model_id (void)
+{
+  HMODULE shell;
+  HRESULT (WINAPI * set_user_model) (wchar_t * id);
+
+  /* On Windows 7 and later, we need to set the user model ID
+     to associate emacsclient launched files with Emacs frames
+     in the UI.  */
+  shell = LoadLibrary ("shell32.dll");
+  if (shell)
+    {
+      set_user_model
+       = (void *) GetProcAddress (shell,
+                                  "SetCurrentProcessExplicitAppUserModelID");
+      /* If the function is defined, then we are running on Windows 7
+        or newer, and the UI uses this to group related windows
+        together.  Since emacs, runemacs, emacsclient are related, we
+        want them grouped even though the executables are different,
+        so we need to set a consistent ID between them.  */
+      if (set_user_model)
+       set_user_model (L"GNU.Emacs");
+
+      FreeLibrary (shell);
+    }
+}
+

 BOOL CALLBACK
 w32_find_emacs_process (HWND hWnd, LPARAM lParam)
 {
 BOOL CALLBACK
 w32_find_emacs_process (HWND hWnd, LPARAM lParam)
 {


@@ -1477,10 +1436,9 @@ w32_find_emacs_process (HWND hWnd, LPARAM lParam)
   return FALSE;
 }
 
   return FALSE;
 }
 

-/*
- * Search for a window of class "Emacs" and owned by a process with
- * process id = emacs_pid.  If found, allow it to grab the focus.
- */
+/* Search for a window of class "Emacs" and owned by a process with
+   process id = emacs_pid.  If found, allow it to grab the focus.  */
+

 void
 w32_give_focus (void)
 {
 void
 w32_give_focus (void)
 {


@@ -1502,7 +1460,7 @@ w32_give_focus (void)
       && (get_wc = GetProcAddress (user32, "RealGetWindowClassA")))
     EnumWindows (w32_find_emacs_process, (LPARAM) 0);
 }
       && (get_wc = GetProcAddress (user32, "RealGetWindowClassA")))
     EnumWindows (w32_find_emacs_process, (LPARAM) 0);
 }

-#endif
+#endif /* HAVE_NTGUI */

 
 /* Start the emacs daemon and try to connect to it.  */
 
 
 /* Start the emacs daemon and try to connect to it.  */
 


@@ -1522,15 +1480,15 @@ start_daemon_and_retry_set_socket (void)
 
       if ((w == -1) || !WIFEXITED (status) || WEXITSTATUS (status))
        {
 
       if ((w == -1) || !WIFEXITED (status) || WEXITSTATUS (status))
        {

-         message (TRUE, "Error: Could not start the Emacs daemon\n");
+         message (true, "Error: Could not start the Emacs daemon\n");

          exit (EXIT_FAILURE);
        }
 
       /* Try connecting, the daemon should have started by now.  */
          exit (EXIT_FAILURE);
        }
 
       /* Try connecting, the daemon should have started by now.  */

-      message (TRUE, "Emacs daemon should have started, trying to connect again\n");
+      message (true, "Emacs daemon should have started, trying to connect again\n");

       if ((emacs_socket = set_socket (1)) == INVALID_SOCKET)
        {
       if ((emacs_socket = set_socket (1)) == INVALID_SOCKET)
        {

-         message (TRUE, "Error: Cannot connect even after starting the Emacs daemon\n");
+         message (true, "Error: Cannot connect even after starting the Emacs daemon\n");

          exit (EXIT_FAILURE);
        }
     }
          exit (EXIT_FAILURE);
        }
     }


@@ -1543,7 +1501,10 @@ start_daemon_and_retry_set_socket (void)
     {
       char emacs[] = "emacs";
       char daemon_option[] = "--daemon";
     {
       char emacs[] = "emacs";
       char daemon_option[] = "--daemon";

-      char *d_argv[] = {emacs, daemon_option, 0 };
+      char *d_argv[3];
+      d_argv[0] = emacs;
+      d_argv[1] = daemon_option;
+      d_argv[2] = 0;

       if (socket_name != NULL)
        {
          /* Pass  --daemon=socket_name as argument.  */
       if (socket_name != NULL)
        {
          /* Pass  --daemon=socket_name as argument.  */


@@ -1555,7 +1516,7 @@ start_daemon_and_retry_set_socket (void)
          d_argv[1] = daemon_arg;
        }
       execvp ("emacs", d_argv);
          d_argv[1] = daemon_arg;
        }
       execvp ("emacs", d_argv);

-      message (TRUE, "%s: error starting emacs daemon\n", progname);
+      message (true, "%s: error starting emacs daemon\n", progname);

     }
 #endif /* WINDOWSNT */
 }
     }
 #endif /* WINDOWSNT */
 }


@@ -1572,23 +1533,35 @@ main (int argc, char **argv)
   main_argv = argv;
   progname = argv[0];
 
   main_argv = argv;
   progname = argv[0];
 

-#ifdef WINDOWSNT
-  /* On Windows 7 and later, we need to explicitly associate emacsclient
-     with emacs so the UI behaves sensibly.  */
+#ifdef HAVE_NTGUI
+  /* On Windows 7 and later, we need to explicitly associate
+     emacsclient with emacs so the UI behaves sensibly.  This
+     association does no harm if we're not actually connecting to an
+     Emacs using a window display.  */

   w32_set_user_model_id ();
   w32_set_user_model_id ();

-#endif
+#endif /* HAVE_NTGUI */

 
   /* Process options.  */
   decode_options (argc, argv);
 
   if ((argc - optind < 1) && !eval && current_frame)
     {
 
   /* Process options.  */
   decode_options (argc, argv);
 
   if ((argc - optind < 1) && !eval && current_frame)
     {

-      message (TRUE, "%s: file name or argument required\n"
+      message (true, "%s: file name or argument required\n"

               "Try `%s --help' for more information\n",
               progname, progname);
       exit (EXIT_FAILURE);
     }
 
               "Try `%s --help' for more information\n",
               progname, progname);
       exit (EXIT_FAILURE);
     }
 

+#ifndef WINDOWSNT
+  if (tty)
+    {
+      pid_t pgrp = getpgrp ();
+      pid_t tcpgrp = tcgetpgrp (1);
+      if (0 <= tcpgrp && tcpgrp != pgrp)
+       kill (-pgrp, SIGTTIN);
+    }
+#endif /* !WINDOWSNT */
+

   /* If alternate_editor is the empty string, start the emacs daemon
      in case of failure to connect.  */
   start_daemon_if_needed = (alternate_editor
   /* If alternate_editor is the empty string, start the emacs daemon
      in case of failure to connect.  */
   start_daemon_if_needed = (alternate_editor


@@ -1606,24 +1579,19 @@ main (int argc, char **argv)
   cwd = get_current_dir_name ();
   if (cwd == 0)
     {
   cwd = get_current_dir_name ();
   if (cwd == 0)
     {

-      /* getwd puts message in STRING if it fails.  */
-      message (TRUE, "%s: %s\n", progname,
+      message (true, "%s: %s\n", progname,

               "Cannot get current working directory");
       fail ();
     }
 
               "Cannot get current working directory");
       fail ();
     }
 

-#ifdef WINDOWSNT
+#ifdef HAVE_NTGUI
+  if (display && !strcmp (display, "w32"))

   w32_give_focus ();
   w32_give_focus ();

-#endif
+#endif /* HAVE_NTGUI */

 
   /* Send over our environment and current directory. */
   if (!current_frame)
     {
 
   /* Send over our environment and current directory. */
   if (!current_frame)
     {

-#ifndef WINDOWSNT
-      /* This is defined in stdlib.h on MS-Windows.  It's defined in
-        unistd.h on some POSIX hosts, but not all (Bug#10155).  */
-      extern char **environ;
-#endif

       int i;
       for (i = 0; environ[i]; i++)
         {
       int i;
       for (i = 0; environ[i]; i++)
         {


@@ -1761,7 +1729,8 @@ main (int argc, char **argv)
       needlf = 2;
     }
   fflush (stdout);
       needlf = 2;
     }
   fflush (stdout);

-  fsync (1);
+  while (fdatasync (1) != 0 && errno == EINTR)
+    continue;

 
   /* Now, wait for an answer and print any messages.  */
   while (exit_status == EXIT_SUCCESS)
 
   /* Now, wait for an answer and print any messages.  */
   while (exit_status == EXIT_SUCCESS)


@@ -1788,46 +1757,56 @@ main (int argc, char **argv)
          if (end_p != NULL)
            *end_p++ = '\0';
 
          if (end_p != NULL)
            *end_p++ = '\0';
 

-         if (strprefix ("-emacs-pid ", p))
-           {
-             /* -emacs-pid PID: The process id of the Emacs process. */
-             emacs_pid = strtol (p + strlen ("-emacs-pid"), NULL, 10);
-           }
-         else if (strprefix ("-window-system-unsupported ", p))
-           {
-             /* -window-system-unsupported: Emacs was compiled without X
-                support.  Try again on the terminal. */
-             nowait = 0;
-             tty = 1;
-             goto retry;
-           }
-         else if (strprefix ("-print ", p))
-           {
-             /* -print STRING: Print STRING on the terminal. */
-             str = unquote_argument (p + strlen ("-print "));
-             if (needlf)
-               printf ("\n");
-             printf ("%s", str);
-             needlf = str[0] == '\0' ? needlf : str[strlen (str) - 1] != '\n';
-           }
-         else if (strprefix ("-print-nonl ", p))
-           {
-             /* -print-nonl STRING: Print STRING on the terminal.
-                Used to continue a preceding -print command.  */
-             str = unquote_argument (p + strlen ("-print-nonl "));
-             printf ("%s", str);
-             needlf = str[0] == '\0' ? needlf : str[strlen (str) - 1] != '\n';
-           }
-         else if (strprefix ("-error ", p))
-           {
-             /* -error DESCRIPTION: Signal an error on the terminal. */
-             str = unquote_argument (p + strlen ("-error "));
-             if (needlf)
-               printf ("\n");
-             fprintf (stderr, "*ERROR*: %s", str);
-             needlf = str[0] == '\0' ? needlf : str[strlen (str) - 1] != '\n';
-             exit_status = EXIT_FAILURE;
-           }
+          if (strprefix ("-emacs-pid ", p))
+            {
+              /* -emacs-pid PID: The process id of the Emacs process. */
+              emacs_pid = strtol (p + strlen ("-emacs-pid"), NULL, 10);
+            }
+          else if (strprefix ("-window-system-unsupported ", p))
+            {
+              /* -window-system-unsupported: Emacs was compiled without support
+                 for whatever window system we tried.  Try the alternate
+                 display, or, failing that, try the terminal.  */
+              if (alt_display)
+                {
+                  display = alt_display;
+                  alt_display = NULL;
+                }
+              else
+                {
+                  nowait = 0;
+                  tty = 1;
+                }
+
+              goto retry;
+            }
+          else if (strprefix ("-print ", p))
+            {
+              /* -print STRING: Print STRING on the terminal. */
+              str = unquote_argument (p + strlen ("-print "));
+              if (needlf)
+                printf ("\n");
+              printf ("%s", str);
+              needlf = str[0] == '\0' ? needlf : str[strlen (str) - 1] != '\n';
+            }
+          else if (strprefix ("-print-nonl ", p))
+            {
+              /* -print-nonl STRING: Print STRING on the terminal.
+                 Used to continue a preceding -print command.  */
+              str = unquote_argument (p + strlen ("-print-nonl "));
+              printf ("%s", str);
+              needlf = str[0] == '\0' ? needlf : str[strlen (str) - 1] != '\n';
+            }
+          else if (strprefix ("-error ", p))
+            {
+              /* -error DESCRIPTION: Signal an error on the terminal. */
+              str = unquote_argument (p + strlen ("-error "));
+              if (needlf)
+                printf ("\n");
+              fprintf (stderr, "*ERROR*: %s", str);
+              needlf = str[0] == '\0' ? needlf : str[strlen (str) - 1] != '\n';
+              exit_status = EXIT_FAILURE;
+            }

 #ifdef SIGSTOP
          else if (strprefix ("-suspend ", p))
            {
 #ifdef SIGSTOP
          else if (strprefix ("-suspend ", p))
            {


@@ -1852,7 +1831,8 @@ main (int argc, char **argv)
   if (needlf)
     printf ("\n");
   fflush (stdout);
   if (needlf)
     printf ("\n");
   fflush (stdout);

-  fsync (1);
+  while (fdatasync (1) != 0 && errno == EINTR)
+    continue;

 
   if (rl < 0)
     exit_status = EXIT_FAILURE;
 
   if (rl < 0)
     exit_status = EXIT_FAILURE;


@@ -1862,22 +1842,3 @@ main (int argc, char **argv)
 }
 
 #endif /* HAVE_SOCKETS && HAVE_INET_SOCKETS */
 }
 
 #endif /* HAVE_SOCKETS && HAVE_INET_SOCKETS */

-
-\f
-#ifndef HAVE_STRERROR
-char *
-strerror (errnum)
-     int errnum;
-{
-  extern char *sys_errlist[];
-  extern int sys_nerr;
-
-  if (errnum >= 0 && errnum < sys_nerr)
-    return sys_errlist[errnum];
-  return (char *) "Unknown error";
-}
-
-#endif /* ! HAVE_STRERROR */
-
-
-/* emacsclient.c ends here */