Mercurial > hg > xemacs-beta

diff src/sysdep.c @ 282:c42ec1d1cded r21-0b39

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b39
author cvs
date Mon, 13 Aug 2007 10:33:18 +0200
parents ca9a9ec9c1c1
children 558f606b08ae
line wrap: on
line diff
--- a/src/sysdep.c	Mon Aug 13 10:32:23 2007 +0200
+++ b/src/sysdep.c	Mon Aug 13 10:33:18 2007 +0200
@@ -2254,7 +2254,12 @@
 void
 init_system_name (void)
 {
-#ifndef HAVE_GETHOSTNAME
+#if defined (WINDOWSNT)
+  char hostname [MAX_COMPUTERNAME_LENGTH + 1];
+  size_t size = sizeof(hostname);
+  GetComputerName (hostname, &size);
+  Vsystem_name = build_string (hostname);
+#elif !defined (HAVE_GETHOSTNAME)
   struct utsname uts;
   uname (&uts);
   Vsystem_name = build_string (uts.nodename);