From 085e9fcbb4e7906f9f7e4c424850ea75e0c0ef87 Mon Sep 17 00:00:00 2001 From: Erik Naggum Date: Sat, 24 Aug 1996 21:11:13 +0000 Subject: [PATCH] (Fencode_time, Fset_time_zone_rule): Use UTC if the zone is t. --- src/editfns.c | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/src/editfns.c b/src/editfns.c index f705b34cbd0..88d8841a06d 100644 --- a/src/editfns.c +++ b/src/editfns.c @@ -711,7 +711,7 @@ DEFUN ("encode-time", Fencode_time, Sencode_time, 6, MANY, 0, "Convert SECOND, MINUTE, HOUR, DAY, MONTH, YEAR and ZONE to internal time.\n\ This is the reverse operation of `decode-time', which see.\n\ ZONE defaults to the current time zone rule. This can\n\ -be a string (as from `set-time-zone-rule'), or it can be a list\n\ +be a string or t (as from `set-time-zone-rule'), or it can be a list\n\ (as from `current-time-zone') or an integer (as from `decode-time')\n\ applied without consideration for daylight savings time.\n\ \n\ @@ -757,7 +757,9 @@ If you want them to stand for years in this century, you must do that yourself." char *tzstring; char **oldenv = environ, **newenv; - if (STRINGP (zone)) + if (zone == Qt) + tzstring = "UTC0"; + else if (STRINGP (zone)) tzstring = (char *) XSTRING (zone)->data; else if (INTEGERP (zone)) { @@ -914,7 +916,8 @@ static char **environbuf; 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.") +If TZ is nil, use implementation-defined default time zone information.\n\ +If TZ is t, use Universal Time.") (tz) Lisp_Object tz; { @@ -922,6 +925,8 @@ If TZ is nil, use implementation-defined default time zone information.") if (NILP (tz)) tzstring = 0; + else if (tz == Qt) + tzstring = "UTC0"; else { CHECK_STRING (tz, 0); -- 2.39.2