aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKenichi Handa1997-06-18 13:02:11 +0000
committerKenichi Handa1997-06-18 13:02:11 +0000
commit9e9af2e94fe9a2e3ff69f70d6ad789da97bc5a76 (patch)
tree16b1d1b887d6b667cf2b146d37e953293ab336ba
parenta69ed912b73e70d1f7921a80cedff5a5b3d32306 (diff)
downloademacs-9e9af2e94fe9a2e3ff69f70d6ad789da97bc5a76.tar.gz
emacs-9e9af2e94fe9a2e3ff69f70d6ad789da97bc5a76.zip
Provide cyril-util nstead of language/cyril-util.
(setup-cyrillic-iso-environment, setup-cyrillic-koi8-environment, setup-cyrillic-alternativnyj-environment): Deleted. (setup-cyrillic-environment): New function.
-rw-r--r--lisp/language/cyril-util.el27
1 files changed, 3 insertions, 24 deletions
diff --git a/lisp/language/cyril-util.el b/lisp/language/cyril-util.el
index c76d5f356bc..15c386febf0 100644
--- a/lisp/language/cyril-util.el
+++ b/lisp/language/cyril-util.el
@@ -25,35 +25,14 @@
25;;; Code: 25;;; Code:
26 26
27;;;###autoload 27;;;###autoload
28(defun setup-cyrillic-iso-environment () 28(defun setup-cyrillic-environment ()
29 "Setup multilingual environment (MULE) for Cyrillic ISO-8859-5 users." 29 "Setup multilingual environment (MULE) for Cyrillic users."
30 (interactive) 30 (interactive)
31 (setup-8-bit-environment 'cyrillic-iso8859-5 'cyrillic-iso-8bit 31 (setup-8-bit-environment 'cyrillic-iso8859-5 'cyrillic-iso-8bit
32 '("Cyrillic" . "quail-yawerty")) 32 '("Cyrillic" . "quail-yawerty"))
33 (setq primary-language "Cyrillic")) 33 (setq primary-language "Cyrillic"))
34 34
35;;;###autoload
36(defun setup-cyrillic-koi8-environment ()
37 "Setup multilingual environment for Cyrillic (KOI8-R) users."
38 (interactive)
39 (setup-8-bit-environment 'cyrillic-iso8859-5 'cyrillic-koi8
40 '("Cyrillic" . "quail-yawerty"))
41
42 (setq primary-language "Cyrillic"))
43
44;;;###autoload
45(defun setup-cyrillic-alternativnyj-environment ()
46 "Setup multilingual environment for Cyrillic (ALTERNATIVNYJ) users."
47 (interactive)
48 (setup-8-bit-environment 'cyrillic-iso8859-5 'cyrillic-alternativnyj
49 '("Cyrillic" . "quail-yawerty"))
50
51 (setq primary-language "Cyrillic"))
52
53;; 35;;
54(provide 'language/cyril-util) 36(provide 'cyril-util)
55 37
56;;; Local Variables:
57;;; generated-autoload-file: "../loaddefs.el"
58;;; End:
59;;; cyril-util.el ends here 38;;; cyril-util.el ends here