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

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.

17771:1db36f7e82d1

 "Cyrillic" '("quail-ukrainian" quail-use-package "quail/cyrillic"))
(register-input-method
 "Cyrillic" '("quail-yawerty" quail-use-package "quail/cyrillic"))

(defun setup-cyrillic-environment ()
  (setq primary-language "Cyrillic")

  (setq coding-category-iso-8-1 'iso-8859-5)

  (set-coding-priority

  (set-keyboard-coding-system 'iso-8859-5)

  (setq default-input-method '("Cyrillic" . "quail-yawerty"))
  )

(set-language-info-alist
 "Cyrillic" '((setup-function . setup-cyrillic-environment)
	      (charset . (cyrillic-iso8859-5))
	      (coding-system . (iso-8859-5 koi8 alternativnyj))
	      (documentation . t)
	      (sample-text . "Russian (,L@caaZXY(B)	,L7T`PRabRcYbU(B!")))

;;; cyrillic.el ends here

17772:550afdbb31d8

 "Cyrillic" '("quail-ukrainian" quail-use-package "quail/cyrillic"))
(register-input-method
 "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)

  (set-coding-priority

  (set-keyboard-coding-system 'iso-8859-5)

  (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))
	      (sample-text . "Russian (,L@caaZXY(B)	,L7T`PRabRcYbU(B!")
	      (documentation . nil)))

;;; cyrillic.el ends here