(Fcall_process): Reject encoding arguments by

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

diff --git a/src/ChangeLog b/src/ChangeLog
index dd8feb509b16064bde0e5af085b0614e50e25315..3c527e22dd863dc6c18d5c357f20f92d65823a6c 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,15 @@
+2006-05-18  Kenichi Handa  <handa@m17n.org>
+
+       * callproc.c (Fcall_process): Reject encoding arguments by
+       ascii-incompatible coding systems (e.g. utf-16).
+
+       * coding.c (Qascii_incompatible): New variable.
+       (syms_of_coding): Setup Qascii_incompatible.
+       (setup_coding_system): Be sure to initialize coding->common_flags.
+       Check `ascii-incompatible' property of the coding system.
+
+       * coding.h (CODING_ASCII_INCOMPATIBLE_MASK): New macro.
+
 2006-05-18  Kim F. Storm  <storm@cua.dk>
 
        * xdisp.c (display_tool_bar_line): Restore entire tool-bar geometry when

diff --git a/src/callproc.c b/src/callproc.c
index 8cf261c646f1f782a3723cae3aacc418685b4d42..f23996253f14508250a892af53c16b968d62d6c8 100644 (file)
--- 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;
       }