Mercurial > emacs

comparison lisp/language/cyril-util.el @ 19452:9cf9cae37598

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(setup-cyrillic-environment): Deleted. (setup-cyrillic-iso-environment): New function. (setup-cyrillic-koi8-environment): New function. (setup-cyrillic-alternativnyj-environment): New function.
author Kenichi Handa <handa@m17n.org>
date Fri, 22 Aug 1997 01:22:17 +0000
parents 2f2033e9d79b
children 3bbf4dd908a5
comparison
equal deleted inserted replaced
19451:933bea774c3c 19452:9cf9cae37598
22 ;; Boston, MA 02111-1307, USA. 22 ;; Boston, MA 02111-1307, USA.
23 23
24 ;;; Code: 24 ;;; Code:
25 25
26 ;;;###autoload 26 ;;;###autoload
27 (defun setup-cyrillic-environment () 27 (defun setup-cyrillic-iso-environment ()
28 "Setup multilingual environment (MULE) for Cyrillic users." 28 "Setup multilingual environment (MULE) for Cyrillic ISO-8859-5 users."
29 (interactive) 29 (interactive)
30 (setup-8-bit-environment "Cyrillic" 'cyrillic-iso8859-5 'cyrillic-iso-8bit 30 (setup-8-bit-environment "Cyrillic-ISO" 'cyrillic-iso8859-5
31 'cyrillic-iso-8bit "cyrillic-yawerty"))
32
33 ;;;###autoload
34 (defun setup-cyrillic-koi8-environment ()
35 "Setup multilingual environment (MULE) for Cyrillic KOI8 users."
36 (interactive)
37 (setup-8-bit-environment "Cyrillic-KOI8" 'cyrillic-iso8859-5 'cyrillic-koi8
31 "cyrillic-yawerty")) 38 "cyrillic-yawerty"))
39
40 ;;;###autoload
41 (defun setup-cyrillic-alternativnyj-environment ()
42 "Setup multilingual environment (MULE) for Cyrillic ALTERNATIVNYJ users."
43 (interactive)
44 (setup-8-bit-environment "Cyrillic" 'cyrillic-iso8859-5
45 'cyrillic-alternativnyj "cyrillic-yawerty"))
46
32 47
33 ;; Display 48 ;; Display
34 49
35 ;; Written by Valery Alexeev <valery@math.uga.edu>. 50 ;; Written by Valery Alexeev <valery@math.uga.edu>.
36 51