(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.

1 files changed, 34 insertions, 2 deletions

diff --git a/lisp/international/mule-conf.el b/lisp/international/mule-conf.el
index 91fa47642d2..fb615b6bdb9 100644
--- a/lisp/international/mule-conf.el
+++ b/lisp/international/mule-conf.el
@@ -410,8 +410,10 @@ is treated as a character."
    (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 @@ is treated as a character."
    (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)