Mercurial > emacs

comparison lisp/language/cyril-util.el @ 22987:708271862495

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(setup-XXX-environment): Just call set-language-environment. If they used to do some other jobs than what done by set-language-environment, those jobs are done in setup-XXX-environment-internal now.
author Kenichi Handa <handa@m17n.org>
date Mon, 10 Aug 1998 06:42:41 +0000
parents 059cd9afc6e4
children 60eb71a9f901
comparison
equal deleted inserted replaced
22986:b5c383369b40 22987:708271862495
25 25
26 ;;;###autoload 26 ;;;###autoload
27 (defun setup-cyrillic-iso-environment () 27 (defun setup-cyrillic-iso-environment ()
28 "Setup multilingual environment (MULE) for Cyrillic ISO-8859-5 users." 28 "Setup multilingual environment (MULE) for Cyrillic ISO-8859-5 users."
29 (interactive) 29 (interactive)
30 (setup-8-bit-environment "Cyrillic-ISO" 'cyrillic-iso8859-5 30 (set-language-environment "Cyrillic-ISO"))
31 "cyrillic-yawerty"))
32 31
33 ;;;###autoload 32 ;;;###autoload
34 (defun setup-cyrillic-koi8-environment () 33 (defun setup-cyrillic-koi8-environment ()
35 "Setup multilingual environment (MULE) for Cyrillic KOI8 users." 34 "Setup multilingual environment (MULE) for Cyrillic KOI8 users."
36 (interactive) 35 (interactive)
37 (setup-8-bit-environment "Cyrillic-KOI8" 'cyrillic-iso8859-5 36 (set-language-environment "Cyrillic-KOI8"))
38 "cyrillic-yawerty"))
39 37
40 ;;;###autoload 38 ;;;###autoload
41 (defun setup-cyrillic-alternativnyj-environment () 39 (defun setup-cyrillic-alternativnyj-environment ()
42 "Setup multilingual environment (MULE) for Cyrillic ALTERNATIVNYJ users." 40 "Setup multilingual environment (MULE) for Cyrillic ALTERNATIVNYJ users."
43 (interactive) 41 (interactive)
44 (setup-8-bit-environment "Cyrillic-ALT" 'cyrillic-iso8859-5 42 (set-language-environment "Cyrillic-ALT"))
45 "cyrillic-yawerty")
46 (setq coding-category-raw-text 'cyrillic-alternativnyj))
47 43
48 ;;;###autoload 44 ;;;###autoload
49 (defun cyrillic-encode-koi8-r-char (char) 45 (defun cyrillic-encode-koi8-r-char (char)
50 "Return KOI8-R external character code of CHAR if appropriate." 46 "Return KOI8-R external character code of CHAR if appropriate."
51 (aref (char-table-extra-slot cyrillic-koi8-r-nonascii-translation-table 0) 47 (aref (char-table-extra-slot cyrillic-koi8-r-nonascii-translation-table 0)