From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 10 Sep 1995 04:37:21 +0000 (+0000)
Subject: (Fset_time_zone_rule): New function.
X-Git-Tag: emacs-19.34~2841
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=143cb9a97724176739fc4498afe6110ad8bfd165;p=emacs.git

(Fset_time_zone_rule): New function.
(syms_of_editfns): defsubr it.
---

diff --git a/src/editfns.c b/src/editfns.c
index 42fb68a10bd..778646be5a1 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -899,6 +899,55 @@ the data it can't find.")
     return Fmake_list (2, Qnil);
 }
 
+DEFUN ("set-time-zone-rule", Fset_time_zone_rule, Sset_time_zone_rule, 1, 1, 0,
+  "Set the local time zone using TZ, a string specifying a time zone rule.\n\
+If TZ is nil, use implementation-defined default time zone information.")
+  (tz)
+     Lisp_Object tz;
+{
+  extern char **environ;
+  static char **environbuf;
+  int envptrs;
+  char **from, **to, **newenv;
+  char *tzstring;
+
+  if (NILP (tz))
+    tzstring = 0;
+  else
+    {
+      CHECK_STRING (tz, 0);
+      tzstring = XSTRING (tz)->data;
+    }
+
+  for (from = environ; *from; from++)
+    continue;
+  envptrs = from - environ + 2;
+  newenv = to = (char **) xmalloc (envptrs * sizeof (char *)
+				   + (tzstring ? strlen (tzstring) + 4 : 0));
+  if (tzstring)
+    {
+      char *t = (char *) (to + envptrs);
+      strcpy (t, "TZ=");
+      strcat (t, tzstring);
+      *to++ = t;
+    }
+
+  for (from = environ; *from; from++)
+    if (strncmp (*from, "TZ=", 3) != 0)
+      *to++ = *from;
+  *to = 0;
+
+  environ = newenv;
+  if (environbuf)
+    free (environbuf);
+  environbuf = newenv;
+
+#ifdef LOCALTIME_CACHE
+  tzset ();
+#endif
+
+  return Qnil;
+}
 
 void
 insert1 (arg)
@@ -2319,6 +2368,7 @@ syms_of_editfns ()
   defsubr (&Sencode_time);
   defsubr (&Scurrent_time_string);
   defsubr (&Scurrent_time_zone);
+  defsubr (&Sset_time_zone_rule);
   defsubr (&Ssystem_name);
   defsubr (&Smessage);
   defsubr (&Smessage_box);