From 5f1d80c7c2a78f49904f2e8967a798f805317747 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Fri, 22 Aug 1997 01:22:17 +0000 Subject: [PATCH] Make describe-cyrillic-environment-map and setup-cyrillic-environment-map prefix commands and bind [Cyrillic] to them in describe-environment-map and setup-environment-map respectively. Divide language environemnt "Cyrillic" into three: "Cyrillic-ISO", "Cyrillic-KOI8", and "Cyrillic-ALTERNATIVNYJ". --- lisp/language/cyrillic.el | 45 ++++++++++++++++++++++++++++++++------- 1 file changed, 37 insertions(+), 8 deletions(-) diff --git a/lisp/language/cyrillic.el b/lisp/language/cyrillic.el index 922a7e36438..b97c3f26698 100644 --- a/lisp/language/cyrillic.el +++ b/lisp/language/cyrillic.el @@ -29,6 +29,18 @@ ;;; Code: +;; Cyrillic (general) + +(define-prefix-command 'describe-cyrillic-environment-map) +(define-key-after describe-language-environment-map [Cyrillic] + '("Cyrillic" . describe-cyrillic-environment-map) + t) + +(define-prefix-command 'setup-cyrillic-environment-map) +(define-key-after setup-language-environment-map [Cyrillic] + '("Cyrillic" . setup-cyrillic-environment-map) + t) + ;; ISO-8859-5 staff (make-coding-system @@ -39,6 +51,15 @@ (define-coding-system-alias 'iso-8859-5 'cyrillic-iso-8bit) +(set-language-info-alist + "Cyrillic-ISO" '((setup-function . (setup-cyrillic-iso-environment + . setup-cyrillic-environment-map)) + (charset . (cyrillic-iso8859-5)) + (coding-system . (cyrillic-iso-8bit)) + (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!") + (documentation . ("Support for Cyrillic ISO-8859-5." + . describe-cyrillic-environment-map)))) + ;; KOI-8 staff (define-ccl-program ccl-decode-koi8 @@ -112,6 +133,15 @@ (setq font-ccl-encoder-alist (cons (cons "koi8" ccl-encode-koi8-font) font-ccl-encoder-alist)) +(set-language-info-alist + "Cyrillic-KOI8" '((setup-function . (setup-cyrillic-koi8-environment + . setup-cyrillic-environment-map)) + (charset . (cyrillic-iso8859-5)) + (coding-system . (cyrillic-koi8)) + (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!") + (documentation . ("Support for Cyrillic KOI-8." + . describe-cyrillic-environment-map)))) + ;;; ALTERNATIVNYJ staff (define-ccl-program ccl-decode-alternativnyj @@ -181,14 +211,13 @@ (cons (cons "alternativnyj" ccl-encode-alternativnyj-font) font-ccl-encoder-alist)) -;;; For all Cyrillics. - (set-language-info-alist - "Cyrillic" '((setup-function . setup-cyrillic-environment) - (charset . (cyrillic-iso8859-5)) - (coding-system . (cyrillic-iso-8bit cyrillic-koi8 - cyrillic-alternativnyj)) - (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!") - (documentation . t))) + "Cyrillic-ALT" '((setup-function . (setup-cyrillic-alternativnyj-environment + . setup-cyrillic-environment-map)) + (charset . (cyrillic-iso8859-5)) + (coding-system . (cyrillic-alternativnyj)) + (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!") + (documentation . ("Support for Cyrillic ALTERNATIVNYJ." + . describe-cyrillic-environment-map)))) ;;; cyrillic.el ends here -- 2.39.2