Skip to content

GitLab

emacs
emacs
Commit dc09922d authored by Kenichi Handa's avatar Kenichi Handa
Browse files
Options

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.
parent fb8c8b47
Hide whitespace changes
Inline Side-by-side
Showing with 91 additions and 18 deletions
lisp/language/cyrillic.el
View file @ dc09922d
......@@ -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
lisp/language/ethiopic.el
View file @ dc09922d
......@@ -51,7 +51,9 @@
(register-input-method
"Ethiopic" '("quail-ethio" quail-use-package "quail/ethiopic"))
(defun setup-ethio-environment ()
(defun setup-ethiopic-environment ()
"Setup multilingual environment for Ethiopic."
(interactive)
(setq primary-language "Ethiopic")
(setq default-input-method '("Ethiopic" . "quail-ethio"))
......@@ -83,10 +85,16 @@
(define-key mail-mode-map [C-f5] 'fidel-to-sera-mail)))
)
(defun describe-ethiopic-support ()
"Describe how Emacs supports Ethiopic."
(interactive)
(describe-language-support-internal "Ethiopic"))
(set-language-info-alist
"Ethiopic" '((setup-function . setup-ethio-environment)
"Ethiopic" '((setup-function . setup-ethiopic-environment)
(describe-function . describe-ethiopic-support)
(charset . (ethiopic))
(documentation . t)
(sample-text . "$(3$O#U!.(B")))
(sample-text . "$(3$O#U!.(B")
(documentation . nil)))
;;; ethiopic.el ends here
lisp/language/greek.el
View file @ dc09922d
......@@ -37,6 +37,8 @@
"Greek" '("quail-greek" quail-use-package "quail/greek"))
(defun setup-greek-environment ()
"Setup multilingual environment (MULE) for Greek."
(interactive)
(setq coding-category-iso-8-1 'iso-8859-7)
(set-coding-priority
......@@ -50,11 +52,17 @@
(setq default-input-method '("Greek" . "quail-greek"))
)
(defun describe-greek-support ()
"Describe how Emacs supports Greek."
(interactive)
(describe-language-support-internal "Greek"))
(set-language-info-alist
"Greek" '((setup-function . setup-greek-environment)
(describe-function. describe-greek-support)
(charset . (greek-iso8859-7))
(coding-system . (iso-8859-7))
(documentation . t)
(sample-text . "Greek (,FGkk]mija(B) ,FCei\(B ,Fsar(B")))
(sample-text . "Greek (,FGkk]mija(B) ,FCei\(B ,Fsar(B")
(documentation . nil)))
;;; greek.el ends here
lisp/language/hebrew.el
View file @ dc09922d
......@@ -37,6 +37,9 @@
"Hebrew" '("quail-hebrew" quail-use-package "quail/hebrew"))
(defun setup-hebrew-environment ()
"Setup multilingual environment (MULE) for Hebrew.
But, please note that right-to-left writing is not yet supported."
(interactive)
(setq coding-category-iso-8-1 'iso-8859-8)
(set-coding-priority
......@@ -51,11 +54,17 @@
(setq default-input-method '("Hebrew" . "quail-hebrew"))
)
(defun describe-hebrew-support ()
"Describe how Emacs supports Hebrew."
(interactive)
(describe-language-support-internal "Hebrew"))
(set-language-info-alist
"Hebrew" '((setup-function . setup-hebrew-environment)
(describe-function . describe-hebrew-support)
(charset . (hebrew-iso8859-8))
(coding-system . (iso-8859-8))
(documentation . "Right-to-left writing is Not yet supported")
(sample-text . "Hebrew ,Hylem(B")))
(sample-text . "Hebrew ,Hylem(B")
(documentation . "Right-to-left writing is not yet supported.")))
;;; hebew.el ends here
lisp/language/indian.el
View file @ dc09922d
......@@ -51,6 +51,20 @@
;;; Code:
(defun describe-indian-support ()
"Describe how Emacs support Indian languages."
(interactive)
(describe-language-support-internal "Indian"))
(set-language-info-alist
"Indian" '((describe-function . describe-indian-support)
(charset . (indian-is13194))
(documentation . "\
Among Indian languages, such languages using Devanagari scripts as
Hindi and Marathi are supproted. For them, please specify Devanagari
for more detail.")
))
;; Followings are what you see when you refer to the Emacs
;; representations of IS 13194 charcters. However, this is merely
;; tentative apperance, and you must convert them by
......
lisp/language/lao.el
View file @ dc09922d
......@@ -37,6 +37,9 @@
"Lao" '("quail-lrt" quail-use-package "quail/lrt"))
(defun setup-lao-environment ()
"Setup multilingual environment (MULE) for Lao."
(interactive)
(setup-english-environment)
(setq coding-category-iso-8-1 'lao)
(set-coding-priority
......@@ -47,12 +50,18 @@
(setq default-input-method '("Lao" . "quail-lao")))
(defun describe-lao-support ()
"Describe how Emacs supports Lao."
(interactive)
(describe-language-support-internal "Lao"))
(set-language-info-alist
"Lao" '((setup-function . setup-lao-environment)
(describe-function . describe-lao-support)
(charset . (lao))
(coding-system . (lao))
(documentation . t)
(sample-text . "Lao((1>RJRERG(B) (1JP:R-04U1(B, 0(1"i1M-`0;Q190$[19ERG(B")))
(sample-text . "Lao((1>RJRERG(B) (1JP:R-04U1(B, 0(1"i1M-`0;Q190$[19ERG(B")
(documentation . nil)))
(aset use-default-ascent ?(1;(B t)
(aset use-default-ascent ?(1=(B t)
......
lisp/language/thai.el
View file @ dc09922d
......@@ -42,6 +42,9 @@
"Thai" '("quail-thai" quail-use-package "quail/thai"))
(defun setup-thai-environment ()
"Setup multilingual environment (MULE) for Thai."
(interactive)
(setup-english-environment)
(setq coding-category-iso-8-1 'th-tis620)
(set-coding-priority
......@@ -53,12 +56,18 @@
(setq default-input-method '("Thai" . "quail-thai"))
)
(defun describe-thai-support ()
"Describe how Emacs supports Thai."
(interactive)
(describe-language-support-internal "Thai"))
(set-language-info-alist
"Thai" '((tutorial . "TUTORIAL.th")
(setup-function . setup-thai-environment)
(describe-function . describe-thai-support)
(charset . (thai-tis620))
(coding-system . (th-tis620))
(documentation . t)
(sample-text . "Thai (,T@RIRd7B(B) ,TJ0GQ1J04U1$0CQ1:(B, ,TJ0GQ1J04U10$h1P(B")))
(sample-text . "Thai (,T@RIRd7B(B) ,TJ0GQ1J04U1$0CQ1:(B, ,TJ0GQ1J04U10$h1P(B")
(documentation . nil)))
;;; thai.el ends here
lisp/language/vietnamese.el
View file @ dc09922d
......@@ -226,7 +226,9 @@ Both tables are indexed by the position code of Vietnamese characters.")
(register-input-method
"Vietnamese" '("quail-viqr" quail-use-package "quail/viqr"))
(defun setup-viet-environment ()
(defun setup-vietnamese-environment ()
"Setup multilingual environment (MULE) for Vietnamese."
(interactive)
;; for VISCII users
(setq coding-category-binary 'viscii)
......@@ -242,12 +244,18 @@ Both tables are indexed by the position code of Vietnamese characters.")
(setq default-input-method '("Vietnamese" . "quail-viqr"))
)
(defun describe-vietnamese-support ()
"Describe how Emacs supports Vietnamese."
(interactive)
(describe-language-support-internal "Vietnamese"))
(set-language-info-alist
"Vietnamese" '((setup-function . setup-viet-environment)
"Vietnamese" '((setup-function . setup-vietnamese-environment)
(describe-function . describe-vietnamese-support)
(charset . (vietnamese-viscii-lower
vietnamese-viscii-upper))
(coding-system . (viscii vscii viqr))
(documentation . t)
(sample-text . "Vietnamese (Ti,1*(Bng Vi,1.(Bt) Ch,1`(Bo b,1U(Bn")))
(sample-text . "Vietnamese (Ti,1*(Bng Vi,1.(Bt) Ch,1`(Bo b,1U(Bn")
(documentation . nil)))
;;; vietnamese.el ends here
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment