* editfns.c (Fcurrent_time_zone): Return a list whose elements are

	nil if the time zone information is unavailable, instead of
	signalling an error.

1 files changed, 6 insertions, 3 deletions

diff --git a/src/editfns.c b/src/editfns.c
index 99365930c23..7b3db6203d3 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -596,7 +596,11 @@ STANDARD is a string giving the name of the time zone when no seasonal\n\
 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 @@ SAVINGS-FLAG is always nil, and STANDARD and SAVINGS are equal.")
                               Fcons (build_string (savings),
                                      Qnil))));
 #else
-  error
-    ("current-time-zone has not been implemented on this operating system.");
+  return Fmake_list (4, Qnil);
 #endif
 }