diff options
| author | Kenichi Handa | 1997-06-18 13:02:11 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1997-06-18 13:02:11 +0000 |
| commit | 9e9af2e94fe9a2e3ff69f70d6ad789da97bc5a76 (patch) | |
| tree | 16b1d1b887d6b667cf2b146d37e953293ab336ba | |
| parent | a69ed912b73e70d1f7921a80cedff5a5b3d32306 (diff) | |
| download | emacs-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.el | 27 |
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 |