# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 871186023 0
# Node ID 9d34beb088bfbf3e475352f8db587ee5594bec96
# Parent  6075ee381a9dd3f3301f8aadd34ae58bdac9eeeb
(make-coding-system): Add a new FLAGS
elements SAFE.  Use it for terminal coding system if some other
coding system is specified explicitly.
(ignore-relative-composition): Initialize it.

diff -r 6075ee381a9d -r 9d34beb088bf lisp/international/mule.el
--- a/lisp/international/mule.el	Sun Aug 10 04:06:02 1997 +0000
+++ b/lisp/international/mule.el	Sun Aug 10 04:07:03 1997 +0000
@@ -355,10 +355,12 @@
 MNEMONIC is a character to be displayed on mode line for the coding-system.
 DOC-STRING is a documentation string for the coding-system.
 FLAGS specifies more precise information of each TYPE.
+
   If TYPE is 2 (ISO-2022), FLAGS should be a list of:
       CHARSET0, CHARSET1, CHARSET2, CHARSET3, SHORT-FORM,
       ASCII-EOL, ASCII-CNTL, SEVEN, LOCKING-SHIFT, SINGLE-SHIFT,
-      USE-ROMAN, USE-OLDJIS, NO-ISO6429, INIT-BOL, DESIGNATION-BOL.
+      USE-ROMAN, USE-OLDJIS, NO-ISO6429, INIT-BOL, DESIGNATION-BOL,
+      SAFE.
     CHARSETn are character sets initially designated to Gn graphic registers.
       If CHARSETn is nil, Gn is never used.
       If CHARSETn is t, Gn can be used but nothing designated initially.
@@ -378,6 +380,9 @@
       to initial at each beginning of line on output.
     DESIGNATION-BOL non-nil means designation sequences should be placed
       at beginning of line on output.
+    SAFE non-nil means convert unexpected characters to `?' on output.
+      Unexpected characters are what not specified in CHARSETn directly.
+
   If TYPE is 4 (private), FLAGS should be a cons of CCL programs,
     for encoding and decoding.  See the documentation of CCL for more detail."
 
@@ -786,6 +791,9 @@
 
 (put 'use-default-ascent 'char-table-extra-slots 0)
 (setq use-default-ascent (make-char-table 'use-default-ascent))
+(put 'ignore-relative-composition 'char-table-extra-slots 0)
+(setq ignore-relative-composition
+      (make-char-table 'ignore-relative-composition))
 
 ;;;
 (provide 'mule)