Mercurial > emacs

diff lisp/language/cyrillic.el @ 17772:550afdbb31d8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Make functions setup-LANGUAGE-environment interactive and add new functions describe-LANGUAGE-support for all LANGUAGEs supported. Remove resisterations of input methods which use the function encoded-kbd-select-terminal.
author Kenichi Handa <handa@m17n.org>
date Mon, 12 May 1997 07:00:16 +0000
parents 4dafa5431293
children 084d922fcd78
line wrap: on
line diff
--- a/lisp/language/cyrillic.el	Mon May 12 07:00:15 1997 +0000
+++ b/lisp/language/cyrillic.el	Mon May 12 07:00:16 1997 +0000
@@ -187,6 +187,8 @@
  "Cyrillic" '("quail-yawerty" quail-use-package "quail/cyrillic"))
 
 (defun setup-cyrillic-environment ()
+  "Setup multilingual environment for Cyrillic users."
+  (interactive)
   (setq primary-language "Cyrillic")
 
   (setq coding-category-iso-8-1 'iso-8859-5)
@@ -202,11 +204,17 @@
   (setq default-input-method '("Cyrillic" . "quail-yawerty"))
   )
 
+(defun describe-cyrillic-support ()
+  "Describe how Emacs support Cyrillic."
+  (interactive)
+  (describe-language-support-internal "Cyrillic"))
+
 (set-language-info-alist
  "Cyrillic" '((setup-function . setup-cyrillic-environment)
+	      (describe-function . describe-cyrillic-support)
 	      (charset . (cyrillic-iso8859-5))
 	      (coding-system . (iso-8859-5 koi8 alternativnyj))
-	      (documentation . t)
-	      (sample-text . "Russian (,L@caaZXY(B)	,L7T`PRabRcYbU(B!")))
+	      (sample-text . "Russian (,L@caaZXY(B)	,L7T`PRabRcYbU(B!")
+	      (documentation . nil)))
 
 ;;; cyrillic.el ends here