# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 898713173 0
# Node ID c3ffffc994d182332b98c8431c2d1b91085c5aa9
# Parent  51f68ee599f861e2a99245d28f7dc4496fd90a2f
(PRINTFINISH): Convert text to unibyte before
inserting in a unibyte buffer.

diff -r 51f68ee599f8 -r c3ffffc994d1 src/print.c
--- a/src/print.c	Wed Jun 24 18:27:02 1998 +0000
+++ b/src/print.c	Wed Jun 24 18:32:53 1998 +0000
@@ -280,26 +280,39 @@
    if (!CONSP (Vprint_gensym))					\
      Vprint_gensym_alist = Qnil
 
-#define PRINTFINISH					\
-   if (NILP (printcharfun))				\
-     insert_1_both (print_buffer, print_buffer_pos,	\
-		    print_buffer_pos_byte, 0, 1, 0);	\
-   if (free_print_buffer)				\
-     {							\
-       xfree (print_buffer);				\
-       print_buffer = 0;				\
-     }							\
-   unbind_to (specpdl_count, Qnil);			\
-   if (MARKERP (original))				\
-     set_marker_both (original, Qnil, PT, PT_BYTE);	\
-   if (old_point >= 0)					\
-     SET_PT_BOTH (old_point + (old_point >= start_point	\
-			       ? PT - start_point : 0), \
+#define PRINTFINISH							\
+   if (NILP (printcharfun))						\
+     {									\
+       if (print_buffer_pos != print_buffer_pos_byte			\
+	   && NILP (current_buffer->enable_multibyte_characters))	\
+	 {								\
+	   unsigned char *temp						\
+	     = (unsigned char *) alloca (print_buffer_pos + 1);		\
+	   copy_text (print_buffer, temp, print_buffer_pos_byte,	\
+		      1, 0);						\
+	   insert_1_both (temp, print_buffer_pos,			\
+			  print_buffer_pos, 0, 1, 0);			\
+	 }								\
+       else								\
+	 insert_1_both (print_buffer, print_buffer_pos,			\
+			print_buffer_pos_byte, 0, 1, 0);		\
+     }									\
+   if (free_print_buffer)						\
+     {									\
+       xfree (print_buffer);						\
+       print_buffer = 0;						\
+     }									\
+   unbind_to (specpdl_count, Qnil);					\
+   if (MARKERP (original))						\
+     set_marker_both (original, Qnil, PT, PT_BYTE);			\
+   if (old_point >= 0)							\
+     SET_PT_BOTH (old_point + (old_point >= start_point			\
+			       ? PT - start_point : 0),			\
 		  old_point_byte + (old_point_byte >= start_point_byte	\
 			       ? PT_BYTE - start_point_byte : 0));	\
-   if (old != current_buffer)				\
-     set_buffer_internal (old);				\
-   if (!CONSP (Vprint_gensym))				\
+   if (old != current_buffer)						\
+     set_buffer_internal (old);						\
+   if (!CONSP (Vprint_gensym))						\
      Vprint_gensym_alist = Qnil
 
 #define PRINTCHAR(ch) printchar (ch, printcharfun)