diff options
| author | Richard M. Stallman | 1994-04-11 20:50:40 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-04-11 20:50:40 +0000 |
| commit | ab1649fe758e95bfed2b98fd7ebbeaa4ff7320fc (patch) | |
| tree | 555347c83d856cd95ed37597e1d51ab8c1f0ca1f | |
| parent | 9854c615ccea309b553c6296c3fc6b9434548de1 (diff) | |
| download | emacs-ab1649fe758e95bfed2b98fd7ebbeaa4ff7320fc.tar.gz emacs-ab1649fe758e95bfed2b98fd7ebbeaa4ff7320fc.zip | |
Comment change.
| -rw-r--r-- | src/sysdep.c | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/src/sysdep.c b/src/sysdep.c index 455ebacae23..9b5ee10749c 100644 --- a/src/sysdep.c +++ b/src/sysdep.c | |||
| @@ -2009,6 +2009,8 @@ get_system_name () | |||
| 2009 | if (hp) | 2009 | if (hp) |
| 2010 | { | 2010 | { |
| 2011 | char *fqdn = hp->h_name; | 2011 | char *fqdn = hp->h_name; |
| 2012 | char *p; | ||
| 2013 | |||
| 2012 | if (!index (fqdn, '.')) | 2014 | if (!index (fqdn, '.')) |
| 2013 | { | 2015 | { |
| 2014 | /* We still don't have a fully qualified domain name. | 2016 | /* We still don't have a fully qualified domain name. |
| @@ -2021,6 +2023,18 @@ get_system_name () | |||
| 2021 | } | 2023 | } |
| 2022 | hostname = (char *) xrealloc (hostname, strlen (fqdn) + 1); | 2024 | hostname = (char *) xrealloc (hostname, strlen (fqdn) + 1); |
| 2023 | strcpy (hostname, fqdn); | 2025 | strcpy (hostname, fqdn); |
| 2026 | #if 0 | ||
| 2027 | /* Convert the host name to lower case. */ | ||
| 2028 | /* Using ctype.h here would introduce a possible locale | ||
| 2029 | dependence that is probably wrong for hostnames. */ | ||
| 2030 | p = hostname | ||
| 2031 | while (*p) | ||
| 2032 | { | ||
| 2033 | if (*p >= 'A' && *p <= 'Z') | ||
| 2034 | *p += 'a' - 'A'; | ||
| 2035 | p++; | ||
| 2036 | } | ||
| 2037 | #endif | ||
| 2024 | } | 2038 | } |
| 2025 | } | 2039 | } |
| 2026 | #endif /* HAVE_SOCKETS */ | 2040 | #endif /* HAVE_SOCKETS */ |