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".

diff --git a/lisp/language/cyrillic.el b/lisp/language/cyrillic.el
index 922a7e36438544e269cd811d845ff8a73ac536f2..b97c3f26698550fcccf408c16f8872a46f7acc2e 100644 (file)
--- 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 (\e,L@caaZXY\e(B)       \e,L7T`PRabRcYbU\e(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 (\e,L@caaZXY\e(B)      \e,L7T`PRabRcYbU\e(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 (\e,L@caaZXY\e(B)   \e,L7T`PRabRcYbU\e(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 (\e,L@caaZXY\e(B)       \e,L7T`PRabRcYbU\e(B!")
+                 (documentation . ("Support for Cyrillic ALTERNATIVNYJ."
+                                   . describe-cyrillic-environment-map))))
 
 ;;; cyrillic.el ends here