(print_string): Don't ignore garbage bytes following a

[gnu-emacs] / src / casefiddle.c

diff --git a/src/casefiddle.c b/src/casefiddle.c
index d3ddf6cb80ea36e381466aaddc54aa0018548ef8..b6d8b21f606674cf31ca72bc2d9f0d856ccbf7fc 100644 (file)
--- a/src/casefiddle.c
+++ b/src/casefiddle.c
@@ -124,7 +124,8 @@ casify_object (flag, obj)
                  if ((int) flag >= (int) CASE_CAPITALIZE)
                    inword = SYNTAX (c) == Sword;
                }
-             obj = make_multibyte_string (buf, j, j_byte);
+             obj = make_specified_string (buf, j, j_byte,
+                                          STRING_MULTIBYTE (obj));
            }
          return obj;
        }
@@ -181,6 +182,7 @@ The argument object is not altered--the value is a copy.")
 /* flag is CASE_UP, CASE_DOWN or CASE_CAPITALIZE or CASE_CAPITALIZE_UP.
    b and e specify range of buffer to operate on. */
 
+void
 casify_region (flag, b, e)
      enum case_action flag;
      Lisp_Object b, e;
@@ -403,6 +405,7 @@ With negative argument, capitalize previous words but do not move.")
   return Qnil;
 }
 \f
+void
 syms_of_casefiddle ()
 {
   Qidentity = intern ("identity");
@@ -420,6 +423,7 @@ syms_of_casefiddle ()
   defsubr (&Scapitalize_word);
 }
 
+void
 keys_of_casefiddle ()
 {
   initial_define_key (control_x_map, Ctl('U'), "upcase-region");