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 1466121..8fa1dc5 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 9718fe2..869b812 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 c14730a..da4ead7 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 72e2c70..e84cf35 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 74fc770..90c2638 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 35b4f4d..b8e3aa4 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 eefcf16..8b447e5 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 57bc4f2..aee8a2b 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 7970b5a..290c025 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 8b75055..81f720d 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 86998bf..87ec76f 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 c188c17..18bf3b0 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 8f50bde..8497828 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 38a55d0..dd132ef 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 0485cb0..cd73cca 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 4c3e0bc..ac68208 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 3c94b7d..adcf055 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 202cf52..96d63d3 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 482939b..90be406 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 bdb3ecf..665ae78 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 6fbd58c..399b2ed 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