(STRING_SET_MULTIBYTE): New macro.

diff --git a/src/lisp.h b/src/lisp.h
index c9a33307bc47fb1331c817b81d5869f625efd1a2..ab07ea750f4378f95d1a4673f917cba93fc0b45d 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -725,6 +725,13 @@ extern int string_bytes P_ ((struct Lisp_String *));
       (STR) = empty_unibyte_string;  \
     else XSTRING (STR)->size_byte = -1; } while (0)
 
+/* Mark STR as a multibyte string.  Assure that STR contains only
+   ASCII characters in advance.  */
+#define STRING_SET_MULTIBYTE(STR)  \
+  do { if (EQ (STR, empty_unibyte_string))  \
+      (STR) = empty_multibyte_string;  \
+    else XSTRING (STR)->size_byte = XSTRING (STR)->size; } while (0)
+
 /* Get text properties.  */
 #define STRING_INTERVALS(STR)  (XSTRING (STR)->intervals + 0)