From: Jason Rumney <jasonr@gnu.org>
Date: Fri, 14 Mar 2008 23:36:58 +0000 (+0000)
Subject: (initial_tz): New variable.
X-Git-Tag: emacs-pretest-23.0.90~7138
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a03fc5a6e0b1ec5b2d63b9ba6973889322e63029;p=emacs.git

(initial_tz): New variable.
(syms_of_editfns): Initialize it.
(Fset_time_zone_rule): Set it when first called.
Use it when TZSTRING is nil.
---

diff --git a/src/editfns.c b/src/editfns.c
index 3126b3aa3e6..0ab1630df3c 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -2011,6 +2011,11 @@ the data it can't find.  */)
    has never been called.  */
 static char **environbuf;
 
+/* This holds the startup value of the TZ environment variable so it
+   can be restored if the user calls set-time-zone-rule with a nil
+   argument.  */
+static char *initial_tz;
+
 DEFUN ("set-time-zone-rule", Fset_time_zone_rule, Sset_time_zone_rule, 1, 1, 0,
        doc: /* Set the local time zone using TZ, a string specifying a time zone rule.
 If TZ is nil, use implementation-defined default time zone information.
@@ -2020,8 +2025,12 @@ If TZ is t, use Universal Time.  */)
 {
   char *tzstring;
 
+  /* When called for the first time, save the original TZ.  */
+  if (!environbuf)
+    initial_tz = (char *) getenv ("TZ");
+
   if (NILP (tz))
-    tzstring = 0;
+    tzstring = initial_tz;
   else if (EQ (tz, Qt))
     tzstring = "UTC0";
   else
@@ -4588,6 +4597,7 @@ void
 syms_of_editfns ()
 {
   environbuf = 0;
+  initial_tz = 0;
 
   Qbuffer_access_fontify_functions
     = intern ("buffer-access-fontify-functions");