Merged from emacs@sv.gnu.org

[gnu-emacs] / src / casefiddle.c

diff --git a/src/casefiddle.c b/src/casefiddle.c
index 76a24f48a82e684ee26788231a411bfa12bb51f5..cb7c953a3e45caf77b361e2b3269aed60f86b0ba 100644 (file)
--- a/src/casefiddle.c
+++ b/src/casefiddle.c
@@ -111,7 +111,7 @@ casify_object (flag, obj)
       return obj;
     }
 
-  return wrong_type_argument (Qchar_or_string_p, obj);
+  wrong_type_argument (Qchar_or_string_p, obj);
 }
 
 DEFUN ("upcase", Fupcase, Supcase, 1, 1, 0,
@@ -187,7 +187,7 @@ casify_region (flag, b, e)
   validate_region (&b, &e);
   start = XFASTINT (b);
   end = XFASTINT (e);
-  modify_region (current_buffer, start, end);
+  modify_region (current_buffer, start, end, 0);
   record_change (start, end - start);
   start_byte = CHAR_TO_BYTE (start);
   end_byte = CHAR_TO_BYTE (end);