1 files changed, 5 insertions, 3 deletions

diff --git a/src/process.c b/src/process.c
index e9f7c59936c..56d3a67e8d1 100644
--- a/src/process.c
+++ b/src/process.c
@@ -3276,15 +3276,17 @@ send_process (proc, buf, len, object)
           && !NILP (XBUFFER (object)->enable_multibyte_characters))
       || EQ (object, Qt))
     {
-      coding->src_multibyte = 1;
       if (!EQ (coding->symbol, XPROCESS (proc)->encode_coding_system))
         /* The coding system for encoding was changed to raw-text
            because we sent a unibyte text previously.  Now we are
            sending a multibyte text, thus we must encode it by the
            original coding system specified for the current
            process.  */
-        setup_coding_system (XPROCESS (proc)->encode_coding_system,
-                             coding);
+        setup_coding_system (XPROCESS (proc)->encode_coding_system, coding);
+      /* src_multibyte should be set to 1 _after_ a call to
+         setup_coding_system, since it resets src_multibyte to
+         zero.  */
+      coding->src_multibyte = 1;
     }
   else
     {