(Fcall_process): Reject encoding arguments by

ascii-incompatible coding systems (e.g. utf-16).

1 files changed, 2 insertions, 0 deletions

diff --git a/src/callproc.c b/src/callproc.c
index 8cf261c646f..f23996253f1 100644
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -295,6 +295,8 @@ usage: (call-process PROGRAM &optional INFILE BUFFER DISPLAY &rest ARGS)  */)
               val = Qnil;
           }
         setup_coding_system (Fcheck_coding_system (val), &argument_coding);
+        if (argument_coding.common_flags & CODING_ASCII_INCOMPATIBLE_MASK)
+          setup_coding_system (Qraw_text, &argument_coding);
         if (argument_coding.eol_type == CODING_EOL_UNDECIDED)
           argument_coding.eol_type = system_eol_type;
       }