Mercurial > emacs
comparison lisp/international/mule-conf.el @ 43458:3dd402082e18
(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.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Fri, 22 Feb 2002 13:44:59 +0000 |
parents | 31baf6840fd6 |
children | 52e76230bc9c |
comparison
equal
deleted
inserted
replaced
43457:28a141684094 | 43458:3dd402082e18 |
---|---|
408 nil ascii-eol ascii-cntl nil nil single-shift) | 408 nil ascii-eol ascii-cntl nil nil single-shift) |
409 '((safe-charsets . t) | 409 '((safe-charsets . t) |
410 (composition . t))) | 410 (composition . t))) |
411 | 411 |
412 (make-coding-system | 412 (make-coding-system |
413 'compound-text 2 ?x | 413 'compound-text-no-extensions 2 ?x |
414 "Compound text based generic encoding for decoding unknown messages." | 414 "Compound text based generic encoding for decoding unknown messages. |
415 | |
416 This coding system does not support ICCCM Extended Segments." | |
415 '((ascii t) (latin-iso8859-1 katakana-jisx0201 t) t t | 417 '((ascii t) (latin-iso8859-1 katakana-jisx0201 t) t t |
416 nil ascii-eol ascii-cntl nil locking-shift single-shift nil nil nil | 418 nil ascii-eol ascii-cntl nil locking-shift single-shift nil nil nil |
417 init-bol nil nil) | 419 init-bol nil nil) |
418 '((safe-charsets . t) | 420 '((safe-charsets . t) |
419 (mime-charset . x-ctext) | 421 (mime-charset . x-ctext) |
420 (composition . t))) | 422 (composition . t))) |
423 | |
424 (define-coding-system-alias | |
425 'x-ctext-no-extensions 'compound-text-no-extensions) | |
426 (define-coding-system-alias | |
427 'ctext-no-extensions 'compound-text-no-extensions) | |
428 | |
429 ;; Same as compound-text-no-extensions, but doesn't produce composition | |
430 ;; escape sequences. Used in post-read and pre-write conversions of | |
431 ;; compound-text, see mule.el. | |
432 (make-coding-system | |
433 'ctext-no-compositions 2 ?x | |
434 "Compound text based generic encoding for decoding unknown messages. | |
435 | |
436 Like `compound-text-no-extensions', but does not produce escape sequences | |
437 for compositions." | |
438 '((ascii t) (latin-iso8859-1 katakana-jisx0201 t) t t | |
439 nil ascii-eol ascii-cntl nil locking-shift single-shift nil nil nil | |
440 init-bol nil nil) | |
441 '((safe-charsets . t) | |
442 (mime-charset . x-ctext))) | |
443 | |
444 (make-coding-system | |
445 'compound-text 5 ?x | |
446 "Compound text encoding with ICCCM Extended Segment extensions. | |
447 | |
448 This coding system should be used only for X selections. It is inappropriate | |
449 for decoding and encoding files, process I/O, etc." | |
450 nil | |
451 '((post-read-conversion . ctext-post-read-conversion) | |
452 (pre-write-conversion . ctext-pre-write-conversion))) | |
421 | 453 |
422 (define-coding-system-alias 'x-ctext 'compound-text) | 454 (define-coding-system-alias 'x-ctext 'compound-text) |
423 (define-coding-system-alias 'ctext 'compound-text) | 455 (define-coding-system-alias 'ctext 'compound-text) |
424 | 456 |
425 (make-coding-system | 457 (make-coding-system |