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.

diff --git a/lisp/language/china-util.el b/lisp/language/china-util.el
index 14661219878d7f30951f4fdd0631183bd6e97338..8fa1dc521678cee96972ec5b93972dcb839e37af 100644 (file)
--- a/lisp/language/china-util.el
+++ b/lisp/language/china-util.el
@@ -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

diff --git a/lisp/language/chinese.el b/lisp/language/chinese.el
index 9718fe2dcc30dad63e7afdd1b92a7c8330504130..869b8129ab08ada3c3be7e4ce1756125b6a117db 100644 (file)
--- a/lisp/language/chinese.el
+++ b/lisp/language/chinese.el
@@ -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))

diff --git a/lisp/language/devan-util.el b/lisp/language/devan-util.el
index c14730aebbe20b6ff128555f3b8de8eddbea2f70..da4ead71772337658c3413918953da9b2a86fbcc 100644 (file)
--- a/lisp/language/devan-util.el
+++ b/lisp/language/devan-util.el
@@ -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

diff --git a/lisp/language/devanagari.el b/lisp/language/devanagari.el
index 72e2c70314413855d8c0977955df5753058a1a4f..e84cf3531f64dc9fcd9435fa24de979d8ab87405 100644 (file)
--- a/lisp/language/devanagari.el
+++ b/lisp/language/devanagari.el
@@ -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))

diff --git a/lisp/language/english.el b/lisp/language/english.el
index 74fc77021f703d49d456e05afca40bd6e80c3897..90c2638931f3f96548bea70efa527317267fd633 100644 (file)
--- a/lisp/language/english.el
+++ b/lisp/language/english.el
@@ -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

diff --git a/lisp/language/ethiopic.el b/lisp/language/ethiopic.el
index 35b4f4d00e48ff236e76513aeaba233cc4af2c11..b8e3aa46fbf0234b6ccee9e2a8f03d72fd4017b4 100644 (file)
--- a/lisp/language/ethiopic.el
+++ b/lisp/language/ethiopic.el
@@ -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))

diff --git a/lisp/language/european.el b/lisp/language/european.el
index eefcf16f56da88ef369121e106a0be9e2ff699ef..8b447e5477e0afe1cdd0bbe402b963060f68a729 100644 (file)
--- a/lisp/language/european.el
+++ b/lisp/language/european.el
@@ -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))
             ))
-\f
-(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

diff --git a/lisp/language/greek.el b/lisp/language/greek.el
index 57bc4f242607ae1879077c452ea56c786cbeae05..aee8a2b27ad36eb4c6eb3a4b4445454f3e401345 100644 (file)
--- a/lisp/language/greek.el
+++ b/lisp/language/greek.el
@@ -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)

diff --git a/lisp/language/hebrew.el b/lisp/language/hebrew.el
index 7970b5a82e4c0a5ee773b2d454c6cc976d214eff..290c02568f775e937a36659571262ecbb4b47644 100644 (file)
--- a/lisp/language/hebrew.el
+++ b/lisp/language/hebrew.el
@@ -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."

diff --git a/lisp/language/japan-util.el b/lisp/language/japan-util.el
index 8b7505567b2c8549d0e79f898be092bfb2a142b2..81f720dda3dbe2d836ee46adb78b34b8fa639bba 100644 (file)
--- a/lisp/language/japan-util.el
+++ b/lisp/language/japan-util.el
@@ -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

diff --git a/lisp/language/japanese.el b/lisp/language/japanese.el
index 86998bfc85b6c3895503e68d3215aba12a784658..87ec76f483e0d4ec4900a19e3f28587fb2b14170 100644 (file)
--- a/lisp/language/japanese.el
+++ b/lisp/language/japanese.el
@@ -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")

diff --git a/lisp/language/korean.el b/lisp/language/korean.el
index c188c17357e786247f140daf202d47bfaabc71f1..18bf3b021c469d16c4b5e7b45b608213fe497637 100644 (file)
--- a/lisp/language/korean.el
+++ b/lisp/language/korean.el
@@ -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)

diff --git a/lisp/language/lao-util.el b/lisp/language/lao-util.el
index 8f50bdecea6c904c9ae722b21f859452d89c4340..8497828d337f5f0105e6682b0e8bc4fa2544bae7 100644 (file)
--- a/lisp/language/lao-util.el
+++ b/lisp/language/lao-util.el
@@ -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

diff --git a/lisp/language/lao.el b/lisp/language/lao.el
index 38a55d0c5a90ceeb07a7dbc1425dd43d71585aac..dd132ef12fb90b625f9b1cc52e49c074a20fe95f 100644 (file)
--- a/lisp/language/lao.el
+++ b/lisp/language/lao.el
@@ -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))

diff --git a/lisp/language/misc-lang.el b/lisp/language/misc-lang.el
index 0485cb01ff50764c318edf57e7ab33e87f09e7cc..cd73cca8df984f1b8194f8a2a10edf26e352f988 100644 (file)
--- a/lisp/language/misc-lang.el
+++ b/lisp/language/misc-lang.el
@@ -26,7 +26,4 @@
 ;;; IPA (International Phonetic Alphabet)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(register-input-method
- "IPA" '("quail-ipa" quail-use-package "quail/ipa"))
-
 ;;; misc-lang.el ends here

diff --git a/lisp/language/thai-util.el b/lisp/language/thai-util.el
index 4c3e0bc62de4ce1dcc3ce3c119eeba3a9e382925..ac68208d39510739e3d9cc2b6d626d2507f0f17a 100644 (file)
--- a/lisp/language/thai-util.el
+++ b/lisp/language/thai-util.el
@@ -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

diff --git a/lisp/language/thai.el b/lisp/language/thai.el
index 3c94b7df7f08607e434d35650685ea77316da562..adcf055c85266746fd07384a9889271726a7aa99 100644 (file)
--- a/lisp/language/thai.el
+++ b/lisp/language/thai.el
@@ -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)

diff --git a/lisp/language/tibet-util.el b/lisp/language/tibet-util.el
index 202cf52e29e4e24fe33a14b8cf000a82dfea880f..96d63d37d8e07f4fb2f3b71e0621f40c7f166899 100644 (file)
--- a/lisp/language/tibet-util.el
+++ b/lisp/language/tibet-util.el
@@ -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.

diff --git a/lisp/language/tibetan.el b/lisp/language/tibetan.el
index 482939b188d1e4889baaa48be68b59bc87d04180..90be406a37c0bcf9cb828814d456126ad7399631 100644 (file)
--- a/lisp/language/tibetan.el
+++ b/lisp/language/tibetan.el
@@ -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))

diff --git a/lisp/language/viet-util.el b/lisp/language/viet-util.el
index bdb3ecfaa87d0afad7aa919dc1e56cc325458167..665ae78dfa2bd0af0ced4fa55180f8a898602a2a 100644 (file)
--- a/lisp/language/viet-util.el
+++ b/lisp/language/viet-util.el
@@ -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

diff --git a/lisp/language/vietnamese.el b/lisp/language/vietnamese.el
index 6fbd58cdafec6f1d877676e764881c8c5bffd754..399b2edaf4c380a87d0ec3d449f80c775dc3b4c0 100644 (file)
--- a/lisp/language/vietnamese.el
+++ b/lisp/language/vietnamese.el
@@ -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