Mercurial > emacs
changeset 18309:bd8b521f5218
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.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 18 Jun 1997 13:06:17 +0000 |
| parents | b8622afb8a6e |
| children | a97ed8efcb6a |
| files | lisp/language/china-util.el lisp/language/chinese.el lisp/language/devan-util.el lisp/language/devanagari.el lisp/language/english.el lisp/language/ethiopic.el lisp/language/european.el lisp/language/greek.el lisp/language/hebrew.el lisp/language/japan-util.el lisp/language/japanese.el lisp/language/korean.el lisp/language/lao-util.el lisp/language/lao.el lisp/language/misc-lang.el lisp/language/thai-util.el lisp/language/thai.el lisp/language/tibet-util.el lisp/language/tibetan.el lisp/language/viet-util.el lisp/language/vietnamese.el |
| diffstat | 21 files changed, 7 insertions(+), 158 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/language/china-util.el Wed Jun 18 13:03:19 1997 +0000 +++ b/lisp/language/china-util.el Wed Jun 18 13:06:17 1997 +0000 @@ -228,9 +228,6 @@ (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
--- a/lisp/language/chinese.el Wed Jun 18 13:03:19 1997 +0000 +++ b/lisp/language/chinese.el Wed Jun 18 13:06:17 1997 +0000 @@ -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))
--- a/lisp/language/devan-util.el Wed Jun 18 13:03:19 1997 +0000 +++ b/lisp/language/devan-util.el Wed Jun 18 13:06:17 1997 +0000 @@ -1311,9 +1311,6 @@ ;; Test comment. ;; -(provide 'language/devan-util) +(provide 'devan-util) -;;; Local Variables: -;;; generated-autoload-file: "../loaddefs.el" -;;; End: ;;; devan-util.el end here
--- a/lisp/language/devanagari.el Wed Jun 18 13:03:19 1997 +0000 +++ b/lisp/language/devanagari.el Wed Jun 18 13:06:17 1997 +0000 @@ -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))
--- a/lisp/language/english.el Wed Jun 18 13:03:19 1997 +0000 +++ b/lisp/language/english.el Wed Jun 18 13:06:17 1997 +0000 @@ -94,7 +94,4 @@ Nothing special is needed to handle English.") )) -(register-input-method "English" - '("quail-dvorak" quail-use-package "quail/latin")) - ;;; english.el ends here
--- a/lisp/language/ethiopic.el Wed Jun 18 13:03:19 1997 +0000 +++ b/lisp/language/ethiopic.el Wed Jun 18 13:06:17 1997 +0000 @@ -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))
--- a/lisp/language/european.el Wed Jun 18 13:03:19 1997 +0000 +++ b/lisp/language/european.el Wed Jun 18 13:06:17 1997 +0000 @@ -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 @@ (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 @@ (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 @@ (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 @@ (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-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
--- a/lisp/language/greek.el Wed Jun 18 13:03:19 1997 +0000 +++ b/lisp/language/greek.el Wed Jun 18 13:06:17 1997 +0000 @@ -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)
--- a/lisp/language/hebrew.el Wed Jun 18 13:03:19 1997 +0000 +++ b/lisp/language/hebrew.el Wed Jun 18 13:06:17 1997 +0000 @@ -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."
--- a/lisp/language/japan-util.el Wed Jun 18 13:03:19 1997 +0000 +++ b/lisp/language/japan-util.el Wed Jun 18 13:06:17 1997 +0000 @@ -297,9 +297,6 @@ "Japanese" "quail-ja-hiragana")) ;; -(provide 'language/japan-util) +(provide 'japan-util) -;;; Local Variables: -;;; generated-autoload-file: "../loaddefs.el" -;;; End: ;;; japan-util.el ends here
--- a/lisp/language/japanese.el Wed Jun 18 13:03:19 1997 +0000 +++ b/lisp/language/japanese.el Wed Jun 18 13:06:17 1997 +0000 @@ -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")
--- a/lisp/language/korean.el Wed Jun 18 13:03:19 1997 +0000 +++ b/lisp/language/korean.el Wed Jun 18 13:06:17 1997 +0000 @@ -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)
--- a/lisp/language/lao-util.el Wed Jun 18 13:03:19 1997 +0000 +++ b/lisp/language/lao-util.el Wed Jun 18 13:06:17 1997 +0000 @@ -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
--- a/lisp/language/lao.el Wed Jun 18 13:03:19 1997 +0000 +++ b/lisp/language/lao.el Wed Jun 18 13:06:17 1997 +0000 @@ -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))
--- a/lisp/language/misc-lang.el Wed Jun 18 13:03:19 1997 +0000 +++ b/lisp/language/misc-lang.el Wed Jun 18 13:06:17 1997 +0000 @@ -26,7 +26,4 @@ ;;; IPA (International Phonetic Alphabet) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(register-input-method - "IPA" '("quail-ipa" quail-use-package "quail/ipa")) - ;;; misc-lang.el ends here
--- a/lisp/language/thai-util.el Wed Jun 18 13:03:19 1997 +0000 +++ b/lisp/language/thai-util.el Wed Jun 18 13:06:17 1997 +0000 @@ -179,9 +179,6 @@ nil)) ;; -(provide 'language/thai-util) +(provide 'thai-util) -;;; Local Variables: -;;; generated-autoload-file: "../loaddefs.el" -;;; End: ;;; thai-util.el ends here
--- a/lisp/language/thai.el Wed Jun 18 13:03:19 1997 +0000 +++ b/lisp/language/thai.el Wed Jun 18 13:06:17 1997 +0000 @@ -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)
--- a/lisp/language/tibet-util.el Wed Jun 18 13:03:19 1997 +0000 +++ b/lisp/language/tibet-util.el Wed Jun 18 13:06:17 1997 +0000 @@ -465,9 +465,6 @@ ;; 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.
--- a/lisp/language/tibetan.el Wed Jun 18 13:03:19 1997 +0000 +++ b/lisp/language/tibetan.el Wed Jun 18 13:06:17 1997 +0000 @@ -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))
--- a/lisp/language/viet-util.el Wed Jun 18 13:03:19 1997 +0000 +++ b/lisp/language/viet-util.el Wed Jun 18 13:06:17 1997 +0000 @@ -289,9 +289,6 @@ nil)) ;;; -(provide 'language/viet-util) +(provide 'viet-util) -;;; Local Variables: -;;; generated-autoload-file: "../loaddefs.el" -;;; End: ;;; viet-util.el ends here
--- a/lisp/language/vietnamese.el Wed Jun 18 13:03:19 1997 +0000 +++ b/lisp/language/vietnamese.el Wed Jun 18 13:06:17 1997 +0000 @@ -229,9 +229,6 @@ (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