diff options
-rw-r--r-- | lib-src/emacsserver.c | 22 | ||||
-rw-r--r-- | src/bytecode.c | 7 |
2 files changed, 15 insertions, 14 deletions
diff --git a/lib-src/emacsserver.c b/lib-src/emacsserver.c index 19e4e430ab..e65e3e9783 100644 --- a/lib-src/emacsserver.c +++ b/lib-src/emacsserver.c @@ -59,6 +59,7 @@ extern int errno; main () { + char system_name[32]; int s, infd, fromlen; struct sockaddr_un server, fromunix; char *homedir; @@ -85,21 +86,27 @@ main () exit (1); } server.sun_family = AF_UNIX; - homedir = getenv ("HOME"); - if (homedir == NULL) +#ifndef SERVER_HOME_DIR + gethostname (system_name, sizeof (system_name)); + sprintf (server.sun_path, "/tmp/esrv%d-%s", geteuid (), system_name); + + if (unlink (server.sun_path) == -1 && errno != ENOENT) + { + perror ("unlink"); + exit (1); + } +#else + if ((homedir = getenv ("HOME")) == NULL) { fprintf (stderr,"No home directory\n"); exit (1); } - sprintf (server.sun_path, "/tmp/esrv%d", geteuid ()); - -#if 0 strcpy (server.sun_path, homedir); strcat (server.sun_path, "/.emacs_server"); -#endif - /* Delete anyone else's old server. */ unlink (server.sun_path); +#endif + if (bind (s, &server, strlen (server.sun_path) + 2) < 0) { perror ("bind"); @@ -294,6 +301,7 @@ main () if ((fromlen = msgrcv (s, msgp, BUFSIZ - 1, 1, 0)) < 0) { perror ("msgrcv"); + exit (1); } else { diff --git a/src/bytecode.c b/src/bytecode.c index d8de7ebaeb..eb5b117f68 100644 --- a/src/bytecode.c +++ b/src/bytecode.c @@ -418,14 +418,7 @@ If the third argument is incorrect, Emacs may crash.") } } #endif - /* The frobbing of gcpro3 was lost by jwz's changes in June 91 - and then reinserted by jwz in Nov 91. */ - /* Remove protection from the args we are giving to Ffuncall. - FFuncall will protect them, and double protection would - cause disasters. */ - gcpro3.nvars = &TOP - stack - 1; TOP = Ffuncall (op + 1, &TOP); - gcpro3.nvars = XFASTINT (maxdepth); break; case Bunbind+6: |