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!")