# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 734051410 0
# Node ID 4a7e1c2a2a9ebbe7128f9b939240635cd7c62646
# Parent  1ecb7574879458bf8e581b860a3a653f7c7b627a
	* editfns.c (Fcurrent_time_zone): Return a list whose elements are
	nil if the time zone information is unavailable, instead of
	signalling an error.

diff -r 1ecb75748794 -r 4a7e1c2a2a9e src/editfns.c
--- a/src/editfns.c	Mon Apr 05 22:35:50 1993 +0000
+++ b/src/editfns.c	Mon Apr 05 23:10:10 1993 +0000
@@ -596,7 +596,11 @@
 SAVINGS is a string giving the name of the time zone when there is a\n\
     seasonal time adjustment in effect.\n\
 If the local area does not use a seasonal time adjustment,\n\
-SAVINGS-FLAG is always nil, and STANDARD and SAVINGS are equal.")
+SAVINGS-FLAG is always nil, and STANDARD and SAVINGS are equal.\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\
+the data it can't find.")
   ()
 {
 #ifdef EMACS_CURRENT_TIME_ZONE
@@ -612,8 +616,7 @@
 			      Fcons (build_string (savings),
 				     Qnil))));
 #else
-  error
-    ("current-time-zone has not been implemented on this operating system.");
+  return Fmake_list (4, Qnil);
 #endif
 }