* server.el, emacsclient.c: Use TMPDIR (default /tmp) instead of hardcoded /tmp.

2 files changed, 16 insertions, 6 deletions

diff --git a/lib-src/ChangeLog b/lib-src/ChangeLog
index 7883cf3b085..3f8ae2132e9 100644
--- a/lib-src/ChangeLog
+++ b/lib-src/ChangeLog
@@ -1,3 +1,8 @@
+2008-10-29  Ulrich Mueller  <ulm@gentoo.org>
+
+        * emacsclient.c (set_local_socket): Use TMPDIR (default /tmp)
+        instead of hardcoded /tmp.
+
 2008-10-13  Dan Nicolaescu  <dann@ics.uci.edu>
 
         * emacsclient.c (longopts, print_help_and_exit): Add -nw.
diff --git a/lib-src/emacsclient.c b/lib-src/emacsclient.c
index d4a7ad3d095..4c167c2ad7f 100644
--- a/lib-src/emacsclient.c
+++ b/lib-src/emacsclient.c
@@ -1128,6 +1128,7 @@ set_local_socket ()
     int default_sock = !socket_name;
     int saved_errno = 0;
     char *server_name = "server";
+    char *tmpdir;
 
     if (socket_name && !index (socket_name, '/') && !index (socket_name, '\\'))
       { /* socket_name is a file name component.  */
@@ -1138,9 +1139,12 @@ set_local_socket ()
 
     if (default_sock)
       {
-        socket_name = alloca (100 + strlen (server_name));
-        sprintf (socket_name, "/tmp/emacs%d/%s",
-                 (int) geteuid (), server_name);
+        tmpdir = egetenv ("TMPDIR");
+        if (!tmpdir)
+          tmpdir = "/tmp";
+        socket_name = alloca (32 + strlen (tmpdir) + strlen (server_name));
+        sprintf (socket_name, "%s/emacs%d/%s",
+                 tmpdir, (int) geteuid (), server_name);
       }
 
     if (strlen (socket_name) < sizeof (server.sun_path))
@@ -1174,9 +1178,10 @@ set_local_socket ()
             if (pw && (pw->pw_uid != geteuid ()))
               {
                 /* We're running under su, apparently. */
-                socket_name = alloca (100 + strlen (server_name));
-                sprintf (socket_name, "/tmp/emacs%d/%s",
-                         (int) pw->pw_uid, server_name);
+                socket_name = alloca (32 + strlen (tmpdir)
+                                      + strlen (server_name));
+                sprintf (socket_name, "%s/emacs%d/%s",
+                         tmpdir, (int) pw->pw_uid, server_name);
 
                 if (strlen (socket_name) < sizeof (server.sun_path))
                   strcpy (server.sun_path, socket_name);