# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1014385499 0
# Node ID 3dd402082e18a9ae5a3c2a84585104b08034beac
# Parent  28a1416840948297f12b06b1481081081446b3db
(ctext-no-compositions): New coding system.
(compount-text-no-extensions): Renamed from compound-text.
(x-ctext-no-extensions, ctext-no-extensions): Aliases for
compound-text-no-extensions.
(compound-text): Redefined using post-read and pre-write
conversions.

diff -r 28a141684094 -r 3dd402082e18 lisp/international/mule-conf.el
--- a/lisp/international/mule-conf.el	Fri Feb 22 13:44:21 2002 +0000
+++ b/lisp/international/mule-conf.el	Fri Feb 22 13:44:59 2002 +0000
@@ -410,8 +410,10 @@
    (composition . t)))
 
 (make-coding-system
- 'compound-text 2 ?x
- "Compound text based generic encoding for decoding unknown messages."
+ 'compound-text-no-extensions 2 ?x
+ "Compound text based generic encoding for decoding unknown messages.
+
+This coding system does not support ICCCM Extended Segments."
  '((ascii t) (latin-iso8859-1 katakana-jisx0201 t) t t
    nil ascii-eol ascii-cntl nil locking-shift single-shift nil nil nil
    init-bol nil nil)
@@ -419,6 +421,36 @@
    (mime-charset . x-ctext)
    (composition . t)))
 
+(define-coding-system-alias
+  'x-ctext-no-extensions 'compound-text-no-extensions)
+(define-coding-system-alias
+  'ctext-no-extensions 'compound-text-no-extensions)
+
+;; Same as compound-text-no-extensions, but doesn't produce composition
+;; escape sequences.  Used in post-read and pre-write conversions of
+;; compound-text, see mule.el.
+(make-coding-system
+ 'ctext-no-compositions 2 ?x
+ "Compound text based generic encoding for decoding unknown messages.
+
+Like `compound-text-no-extensions', but does not produce escape sequences
+for compositions."
+ '((ascii t) (latin-iso8859-1 katakana-jisx0201 t) t t
+   nil ascii-eol ascii-cntl nil locking-shift single-shift nil nil nil
+   init-bol nil nil)
+ '((safe-charsets . t)
+   (mime-charset . x-ctext)))
+
+(make-coding-system
+ 'compound-text 5 ?x
+ "Compound text encoding with ICCCM Extended Segment extensions.
+
+This coding system should be used only for X selections.  It is inappropriate
+for decoding and encoding files, process I/O, etc."
+ nil
+ '((post-read-conversion . ctext-post-read-conversion)
+   (pre-write-conversion . ctext-pre-write-conversion)))
+
 (define-coding-system-alias 'x-ctext 'compound-text)
 (define-coding-system-alias 'ctext 'compound-text)