diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2002-02-22 13:44:59 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2002-02-22 13:44:59 +0000 |
| commit | 0855ecc5338008f17ff2e7c54cc8d185827cebc9 (patch) | |
| tree | 8c36161f0531fa82ed951d8c16b2c6c8d2fef612 /lisp | |
| parent | eff5336eaffa0dc4abb23857bcdf79803d2076e2 (diff) | |
| download | emacs-0855ecc5338008f17ff2e7c54cc8d185827cebc9.tar.gz | |
(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.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/international/mule-conf.el | 36 |
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) |