Commit 650e8505 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

Provide XXX-util instead of

language/XXX-util.  Delete local variable declartion.
Delete the code of calling register-input-method form
all files under this directory.
parent efbc7e89
......@@ -228,9 +228,6 @@ Return the length of resulting text."
(encode-hz-region (point-min) (point-max)))
;;
(provide 'language/china-util)
(provide 'china-util)
;;; Local Variables:
;;; generated-autoload-file: "../loaddefs.el"
;;; End:
;;; china-util.el ends here
......@@ -95,23 +95,6 @@
(encode-hz-region 1 (point-max))
nil))
(register-input-method
"Chinese-GB" '("quail-ccdospy" quail-use-package "quail/ccdospy"))
(register-input-method
"Chinese-GB" '("quail-ctlau" quail-use-package "quail/ctlau"))
(register-input-method
"Chinese-GB" '("quail-punct" quail-use-package "quail/punct"))
(register-input-method
"Chinese-GB" '("quail-qj" quail-use-package "quail/qj"))
(register-input-method
"Chinese-GB" '("quail-sw" quail-use-package "quail/sw"))
(register-input-method
"Chinese-GB" '("quail-ziranma" quail-use-package "quail/ziranma"))
(register-input-method
"Chinese-GB" '("quail-tonepy" quail-use-package "quail/tonepy"))
(register-input-method
"Chinese-GB" '("quail-py" quail-use-package "quail/py"))
(set-language-info-alist
"Chinese-GB" '((setup-function . (setup-chinese-gb-environment
. setup-chinese-environment-map))
......@@ -151,27 +134,6 @@
(setq font-ccl-encoder-alist
(cons (cons "big5" ccl-encode-big5-font) font-ccl-encoder-alist))
(register-input-method
"Chinese-BIG5" '("quail-qj-b5" quail-use-package "quail/qj-b5"))
(register-input-method
"Chinese-BIG5" '("quail-zozy" quail-use-package "quail/zozy"))
(register-input-method
"Chinese-BIG5" '("quail-tsangchi-b5" quail-use-package "quail/tsangchi-b5"))
(register-input-method
"Chinese-BIG5" '("quail-py-b5" quail-use-package "quail/py-b5"))
(register-input-method
"Chinese-BIG5" '("quail-quick-b5" quail-use-package "quail/quick-bt"))
(register-input-method
"Chinese-BIG5" '("quail-etzy" quail-use-package "quail/etzy"))
(register-input-method
"Chinese-BIG5" '("quail-ecdict" quail-use-package "quail/ecdict"))
(register-input-method
"Chinese-BIG5" '("quail-ctlaub" quail-use-package "quail/ctlaub"))
(register-input-method
"Chinese-BIG5" '("quail-array30" quail-use-package "quail/array30"))
(register-input-method
"Chinese-BIG5" '("quail-4corner" quail-use-package "quail/4corner"))
(set-language-info-alist
"Chinese-BIG5" '((setup-function . (setup-chinese-big5-environment
. setup-chinese-environment-map))
......@@ -186,11 +148,6 @@
;; Chinese CNS11643 (traditional)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(register-input-method
"Chinese-CNS" '("quail-quick-cns" quail-use-package "quail/quick-cns"))
(register-input-method
"Chinese-CNS" '("quail-tsangchi-cns" quail-use-package "quail/tsangchi-cns"))
(set-language-info-alist
"Chinese-CNS" '((setup-function . (setup-chinese-cns-environment
. setup-chinese-environment-map))
......
......@@ -1311,9 +1311,6 @@ basic Devanagari character string."
;; Test comment.
;;
(provide 'language/devan-util)
(provide 'devan-util)
;;; Local Variables:
;;; generated-autoload-file: "../loaddefs.el"
;;; End:
;;; devan-util.el end here
......@@ -43,22 +43,6 @@
(put 'devanagari
'pre-write-conversion 'in-is13194-devanagari-pre-write-conversion)
(register-input-method
"Devanagari" '("quail-devanagari-transliteration" quail-use-package
"quail/devanagari"))
(register-input-method
"Devanagari" '("quail-devanagari-keyboard-a" quail-use-package
"quail/devanagari"))
(register-input-method
"Devanagari" '("quail-devanagari-itrans" quail-use-package
"quail/devanagari"))
(register-input-method
"Devanagari" '("quail-devanagari-hindi-transliteration" quail-use-package
"quail/devanagari"))
(set-language-info-alist
"Devanagari" '((setup-function . (setup-devanagari-environment
. setup-indian-environment-map))
......
......@@ -94,7 +94,4 @@ The default status is as follows.
Nothing special is needed to handle English.")
))
(register-input-method "English"
'("quail-dvorak" quail-use-package "quail/latin"))
;;; english.el ends here
......@@ -48,9 +48,6 @@
(setq font-ccl-encoder-alist
(cons (cons "ethiopic" ccl-encode-ethio-font) font-ccl-encoder-alist))
(register-input-method
"Ethiopic" '("quail-ethio" quail-use-package "quail/ethiopic"))
(set-language-info-alist
"Ethiopic" '((setup-function . setup-ethiopic-environment)
(charset . (ethiopic))
......
......@@ -76,9 +76,6 @@
(define-coding-system-alias 'iso-latin-1 'iso-8859-1)
(define-coding-system-alias 'iso-latin-1 'ctext)
(register-input-method "Latin-1"
'("quail-latin-1" quail-use-package "quail/latin"))
(defun setup-latin1-environment ()
"Set up multilingual environment (MULE) for European Latin-1 users."
(interactive)
......@@ -109,9 +106,6 @@ These languages are supported with the Latin-1 (ISO-8859-1) character set:
(define-coding-system-alias 'iso-latin-2 'iso-8859-2)
(register-input-method "Latin-2"
'("quail-latin-2" quail-use-package "quail/latin"))
(defun setup-latin2-environment ()
"Set up multilingual environment (MULE) for European Latin-2 users."
(interactive)
......@@ -140,9 +134,6 @@ These languages are supported with the Latin-2 (ISO-8859-2) character set:
(define-coding-system-alias 'iso-latin-3 'iso-8859-3)
(register-input-method "Latin-3"
'("quail-latin-3" quail-use-package "quail/latin"))
(defun setup-latin3-environment ()
"Set up multilingual environment (MULE) for European Latin-3 users."
(interactive)
......@@ -171,9 +162,6 @@ These languages are supported with the Latin-3 (ISO-8859-3) character set:
(define-coding-system-alias 'iso-latin-4 'iso-8859-4)
(register-input-method "Latin-4"
'("quail-latin-4" quail-use-package "quail/latin"))
(defun setup-latin4-environment ()
"Set up multilingual environment (MULE) for European Latin-4 users."
(interactive)
......@@ -202,9 +190,6 @@ These languages are supported with the Latin-4 (ISO-8859-4) character set:
(define-coding-system-alias 'iso-latin-5 'iso-8859-9)
(register-input-method "Latin-5"
'("quail-latin-5" quail-use-package "quail/latin"))
(defun setup-latin5-environment ()
"Set up multilingual environment (MULE) for European Latin-5 users."
(interactive)
......@@ -220,13 +205,5 @@ These languages are supported with the Latin-4 (ISO-8859-4) character set:
These languages are supported with the Latin-5 (ISO-8859-9) character set.
" . describe-european-environment-map))
))
(let ((languages '("French" "German" "Spanish" "Italian"
;; We have to list much more European languages here.
))
(val '("quail-latin-1" quail-use-package "quail/latin")))
(while languages
(register-input-method (car languages) val)
(setq languages (cdr languages))))
;;; european.el ends here
......@@ -36,9 +36,6 @@
(define-coding-system-alias 'greek-iso-8bit 'iso-8859-7)
(register-input-method
"Greek" '("quail-greek" quail-use-package "quail/greek"))
(defun setup-greek-environment ()
"Setup multilingual environment (MULE) for Greek."
(interactive)
......
......@@ -36,9 +36,6 @@
(define-coding-system-alias 'hebrew-iso-8bit 'iso-8859-8)
(register-input-method
"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."
......
......@@ -297,9 +297,6 @@ If non-nil, second arg INITIAL-INPUT is a string to insert before reading."
"Japanese" "quail-ja-hiragana"))
;;
(provide 'language/japan-util)
(provide 'japan-util)
;;; Local Variables:
;;; generated-autoload-file: "../loaddefs.el"
;;; End:
;;; japan-util.el ends here
......@@ -58,11 +58,6 @@
(define-coding-system-alias 'japanese-iso-8bit 'euc-japan)
(define-coding-system-alias 'japanese-iso-8bit 'euc-jp)
(register-input-method
"Japanese" '("quail-ja-hiragana" quail-use-package "quail/japanese"))
(register-input-method
"Japanese" '("quail-ja" quail-use-package "quail/japanese"))
(set-language-info-alist
"Japanese" '((setup-function . setup-japanese-environment)
(tutorial . "TUTORIAL.jp")
......
......@@ -46,17 +46,6 @@
(define-coding-system-alias 'korean-iso-7bit-lock 'iso-2022-kr)
(register-input-method
"Korean" '("quail-hangul" quail-use-package "quail/hangul"))
(register-input-method
"Korean" '("quail-hangul3" quail-use-package "quail/hangul3"))
(register-input-method
"Korean" '("quail-hanja" quail-use-package "quail/hanja"))
(register-input-method
"Korean" '("quail-symbol-ksc" quail-use-package "quail/symbol-ksc"))
(register-input-method
"Korean" '("quail-hanja-jis" quail-use-package "quail/hanja-jis"))
(defun setup-korean-environment ()
"Setup multilingual environment (MULE) for Korean."
(interactive)
......
......@@ -135,9 +135,6 @@
(setq l (cdr l))))
;;
(provide 'language/lao-util)
(provide 'lao-util)
;;; Local Variables:
;;; generated-autoload-file: "../loaddefs.el"
;;; End:
;;; lao-util.el ends here
......@@ -30,12 +30,6 @@
'((ascii t) (lao t) nil nil
nil ascii-eol))
(register-input-method
"Lao" '("quail-lao" quail-use-package "quail/lao"))
(register-input-method
"Lao" '("quail-lrt" quail-use-package "quail/lrt"))
(set-language-info-alist
"Lao" '((setup-function . setup-lao-environment)
(charset . (lao))
......
......@@ -26,7 +26,4 @@
;;; IPA (International Phonetic Alphabet)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(register-input-method
"IPA" '("quail-ipa" quail-use-package "quail/ipa"))
;;; misc-lang.el ends here
......@@ -179,9 +179,6 @@ positions (integers or markers) specifying the region."
nil))
;;
(provide 'language/thai-util)
(provide 'thai-util)
;;; Local Variables:
;;; generated-autoload-file: "../loaddefs.el"
;;; End:
;;; thai-util.el ends here
......@@ -39,9 +39,6 @@
(define-coding-system-alias 'thai-tis620 'th-tis620)
(define-coding-system-alias 'thai-tis620 'tis620)
(register-input-method
"Thai" '("quail-thai" quail-use-package "quail/thai"))
(set-language-info-alist
"Thai" '((tutorial . "TUTORIAL.th")
(setup-function . setup-thai-environment)
......
......@@ -465,9 +465,6 @@ See also docstring of the function tibetan-compose-region."
;; Should return nil as annotations.
nil))
(provide 'language/tibet-util)
(provide 'tibet-util)
;;; Local Variables:
;;; generated-autoload-file: "../loaddefs.el"
;;; End:
;;; language/tibet-util.el ends here.
......@@ -97,11 +97,6 @@
(put 'tibetan 'post-read-conversion 'tibetan-post-read-conversion)
(put 'tibetan 'pre-write-conversion 'tibetan-pre-write-conversion)
(register-input-method
"Tibetan" '("quail-tibetan-wylie" quail-use-package "quail/tibetan"))
(register-input-method
"Tibetan" '("quail-tibetan-tibkey" quail-use-package "quail/tibetan"))
(set-language-info-alist
"Tibetan" '((setup-function . setup-tibetan-environment)
(charset . (tibetan tibetan-1-column))
......
......@@ -289,9 +289,6 @@ positions (integers or markers) specifying the stretch of the region."
nil))
;;;
(provide 'language/viet-util)
(provide 'viet-util)
;;; Local Variables:
;;; generated-autoload-file: "../loaddefs.el"
;;; End:
;;; viet-util.el ends here
......@@ -229,9 +229,6 @@ Both tables are indexed by the position code of Vietnamese characters.")
(setq font-ccl-encoder-alist
(cons (cons "vscii" ccl-encode-vscii-font) font-ccl-encoder-alist))
(register-input-method
"Vietnamese" '("quail-viqr" quail-use-package "quail/viqr"))
(set-language-info-alist
"Vietnamese" '((setup-function . setup-vietnamese-environment)
(charset . (vietnamese-viscii-lower
......
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