Mercurial > hg > xemacs-beta
comparison lisp/mule/cyrillic.el @ 4489:b75b075a9041
Support displaying invalid UTF-8 in language-environment-specific ways.
2008-08-05 Aidan Kehoe <kehoea@parhasard.net>
* specifier.el (current-display-table): Initialise this here, not
in x-init.el, since we want it even on non-X builds to use the
support for displaying Unicode error sequences according to the
current locale.
* mule/mule-cmds.el (set-language-info):
Document error-sequence-coding-system, used to describe how to
display characters that are not valid Unicode on disk.
* mule/mule-cmds.el (finish-set-language-environment):
Implement error-sequence-coding-system.
* unicode.el (unicode-error-sequence-warning-face):
New face, to make it possible to distinguish invalid Unicode
sequences from the characters given by the valid Unicode
sequences.
* mule/cyrillic.el ("Russian"):
("Ukrainian"):
("Bulgarian"):
("Belarusian"):
("Cyrillic-ALT"): Add support for error-sequence-coding-system for
all these languages.
* mule/latin.el:
Add support for error-sequence-coding-system for the
Latin-alphabet language environments.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Tue, 05 Aug 2008 09:06:41 +0200 |
parents | f4c3ffe60a4f |
children | 67fbcaf3dbdc |
comparison
equal
deleted
inserted
replaced
4488:6b0000935adc | 4489:b75b075a9041 |
---|---|
368 (set-language-info-alist | 368 (set-language-info-alist |
369 "Russian" '((charset cyrillic-iso8859-5) | 369 "Russian" '((charset cyrillic-iso8859-5) |
370 (coding-system koi8-r) | 370 (coding-system koi8-r) |
371 (native-coding-system koi8-r) | 371 (native-coding-system koi8-r) |
372 (coding-priority koi8-r) | 372 (coding-priority koi8-r) |
373 (error-sequence-coding-system koi8-r) | |
373 (input-method . "cyrillic-yawerty") | 374 (input-method . "cyrillic-yawerty") |
374 (features cyril-util) | 375 (features cyril-util) |
375 (locale "ru") | 376 (locale "ru") |
376 (mswindows-locale . "RUSSIAN") | 377 (mswindows-locale . "RUSSIAN") |
377 (tutorial . "TUTORIAL.ru") | 378 (tutorial . "TUTORIAL.ru") |
541 | 542 |
542 (set-language-info-alist | 543 (set-language-info-alist |
543 "Ukrainian" '((coding-system koi8-u) | 544 "Ukrainian" '((coding-system koi8-u) |
544 (coding-priority koi8-u) | 545 (coding-priority koi8-u) |
545 (locale "uk") | 546 (locale "uk") |
547 (error-sequence-coding-system koi8-u) | |
546 (input-method . "cyrillic-ukrainian") | 548 (input-method . "cyrillic-ukrainian") |
547 (documentation | 549 (documentation |
548 . "Support for Ukrainian.")) | 550 . "Support for Ukrainian.")) |
549 '("Cyrillic")) | 551 '("Cyrillic")) |
550 | 552 |
687 aliases (cp1251))) | 689 aliases (cp1251))) |
688 | 690 |
689 (set-language-info-alist | 691 (set-language-info-alist |
690 "Bulgarian" '((coding-system windows-1251) | 692 "Bulgarian" '((coding-system windows-1251) |
691 (coding-priority windows-1251) | 693 (coding-priority windows-1251) |
694 (error-sequence-coding-system windows-1251) | |
692 (input-method . "bulgarian-bds") | 695 (input-method . "bulgarian-bds") |
693 (locale "bg") | 696 (locale "bg") |
694 (documentation | 697 (documentation |
695 . "Support for Bulgarian. ") | 698 . "Support for Bulgarian. ") |
696 (tutorial . "TUTORIAL.bg")) | 699 (tutorial . "TUTORIAL.bg")) |
697 '("Cyrillic")) | 700 '("Cyrillic")) |
698 | 701 |
699 (set-language-info-alist | 702 (set-language-info-alist |
700 "Belarusian" '((coding-system windows-1251) | 703 "Belarusian" '((coding-system windows-1251) |
701 (coding-priority windows-1251) | 704 (coding-priority windows-1251) |
705 (error-sequence-coding-system windows-1251) | |
702 (locale "be") | 706 (locale "be") |
703 (input-method . "belarusian") | 707 (input-method . "belarusian") |
704 (documentation | 708 (documentation |
705 . "Support for Belarusian. \(The name Belarusian replaced\ | 709 . "Support for Belarusian. \(The name Belarusian replaced\ |
706 Byelorussian in the early 1990s.)")) | 710 Byelorussian in the early 1990s.)")) |
843 | 847 |
844 (set-language-info-alist | 848 (set-language-info-alist |
845 "Cyrillic-ALT" '((charset cyrillic-iso8859-5) | 849 "Cyrillic-ALT" '((charset cyrillic-iso8859-5) |
846 (coding-system alternativnyj) | 850 (coding-system alternativnyj) |
847 (native-coding-system alternativnyj) | 851 (native-coding-system alternativnyj) |
852 (error-sequence-coding-system alternativnyj) | |
848 (coding-priority alternativnyj) | 853 (coding-priority alternativnyj) |
849 (input-method . "cyrillic-yawerty") | 854 (input-method . "cyrillic-yawerty") |
850 (features cyril-util) | 855 (features cyril-util) |
851 (tutorial . "TUTORIAL.ru") | 856 (tutorial . "TUTORIAL.ru") |
852 (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!") | 857 (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!") |