# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 738180265 0
# Node ID 6fe71a039fce1a3f90fb8b5433bf54067e0758e7
# Parent  11c21b4d400d452a6a3fbb4f1474668e531f2a96
(Fcurrent_time_zone): Assign gmt, instead of init.

diff -r 11c21b4d400d -r 6fe71a039fce src/editfns.c
--- a/src/editfns.c	Sun May 23 04:42:38 1993 +0000
+++ b/src/editfns.c	Sun May 23 18:04:25 1993 +0000
@@ -634,7 +634,7 @@
 and from `file-attributes'.\n\
 \n\
 Some operating systems cannot provide all this information to Emacs;\n\
-in this case, current-time-zone will return a list containing nil for\n\
+in this case, `current-time-zone' returns a list containing nil for\n\
 the data it can't find.")
   (specified_time)
      Lisp_Object specified_time;
@@ -643,13 +643,15 @@
   struct tm *t;
 
   if (lisp_time_argument (specified_time, &value)
-      && (t = gmtime(&value)) != 0)
+      && (t = gmtime (&value)) != 0)
     {
-      struct tm gmt = *t;  /* Make a copy, in case localtime modifies *t.  */
+      struct tm gmt;
       long offset;
       char *s, buf[6];
-      t = localtime(&value);
-      offset = difftm(t, &gmt);
+
+      gmt = *t;		/* Make a copy, in case localtime modifies *t.  */
+      t = localtime (&value);
+      offset = difftm (t, &gmt);
       s = 0;
 #ifdef HAVE_TM_ZONE
       if (t->tm_zone)