Document sun change.

[gnu-emacs] / src / editfns.c

diff --git a/src/editfns.c b/src/editfns.c
index d936dc4cdb6919327288b387178ada53cfe23ffc..86d292f2976719492d3a4d9d852d6ca654d3abe8 100644 (file)
--- 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
 }
 
@@ -998,7 +1001,7 @@ and don't mark the buffer as really changed.")
   stop = XINT (end);
   look = XINT (fromchar);
 
-  modify_region (pos, stop);
+  modify_region (current_buffer, pos, stop);
   if (! NILP (noundo))
     {
       if (MODIFF - 1 == current_buffer->save_modified)
@@ -1048,7 +1051,7 @@ for the character with code N.  Returns the number of characters changed.")
 
   pos = XINT (start);
   stop = XINT (end);
-  modify_region (pos, stop);
+  modify_region (current_buffer, pos, stop);
 
   cnt = 0;
   for (; pos < stop; ++pos)
@@ -1416,7 +1419,8 @@ Case is ignored if `case-fold-search' is non-nil in the current buffer.")
   CHECK_NUMBER (c2, 1);
 
   if (!NILP (current_buffer->case_fold_search)
-      ? downcase[0xff & XFASTINT (c1)] == downcase[0xff & XFASTINT (c2)]
+      ? (downcase[0xff & XFASTINT (c1)] == downcase[0xff & XFASTINT (c2)]
+        && (XFASTINT (c1) & ~0xff) == (XFASTINT (c2) & ~0xff))
       : XINT (c1) == XINT (c2))
     return Qt;
   return Qnil;