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.
This commit is contained in:
parent
efbc7e89e3
commit
650e8505e2
21 changed files with 7 additions and 158 deletions
|
@ -228,9 +228,6 @@ Return the length of resulting text."
|
||||||
(encode-hz-region (point-min) (point-max)))
|
(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
|
;;; china-util.el ends here
|
||||||
|
|
|
@ -95,23 +95,6 @@
|
||||||
(encode-hz-region 1 (point-max))
|
(encode-hz-region 1 (point-max))
|
||||||
nil))
|
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
|
(set-language-info-alist
|
||||||
"Chinese-GB" '((setup-function . (setup-chinese-gb-environment
|
"Chinese-GB" '((setup-function . (setup-chinese-gb-environment
|
||||||
. setup-chinese-environment-map))
|
. setup-chinese-environment-map))
|
||||||
|
@ -151,27 +134,6 @@
|
||||||
(setq font-ccl-encoder-alist
|
(setq font-ccl-encoder-alist
|
||||||
(cons (cons "big5" ccl-encode-big5-font) 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
|
(set-language-info-alist
|
||||||
"Chinese-BIG5" '((setup-function . (setup-chinese-big5-environment
|
"Chinese-BIG5" '((setup-function . (setup-chinese-big5-environment
|
||||||
. setup-chinese-environment-map))
|
. setup-chinese-environment-map))
|
||||||
|
@ -186,11 +148,6 @@
|
||||||
;; Chinese CNS11643 (traditional)
|
;; 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
|
(set-language-info-alist
|
||||||
"Chinese-CNS" '((setup-function . (setup-chinese-cns-environment
|
"Chinese-CNS" '((setup-function . (setup-chinese-cns-environment
|
||||||
. setup-chinese-environment-map))
|
. setup-chinese-environment-map))
|
||||||
|
|
|
@ -1311,9 +1311,6 @@ basic Devanagari character string."
|
||||||
;; Test comment.
|
;; Test comment.
|
||||||
|
|
||||||
;;
|
;;
|
||||||
(provide 'language/devan-util)
|
(provide 'devan-util)
|
||||||
|
|
||||||
;;; Local Variables:
|
|
||||||
;;; generated-autoload-file: "../loaddefs.el"
|
|
||||||
;;; End:
|
|
||||||
;;; devan-util.el end here
|
;;; devan-util.el end here
|
||||||
|
|
|
@ -43,22 +43,6 @@
|
||||||
(put 'devanagari
|
(put 'devanagari
|
||||||
'pre-write-conversion 'in-is13194-devanagari-pre-write-conversion)
|
'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
|
(set-language-info-alist
|
||||||
"Devanagari" '((setup-function . (setup-devanagari-environment
|
"Devanagari" '((setup-function . (setup-devanagari-environment
|
||||||
. setup-indian-environment-map))
|
. setup-indian-environment-map))
|
||||||
|
|
|
@ -94,7 +94,4 @@ The default status is as follows.
|
||||||
Nothing special is needed to handle English.")
|
Nothing special is needed to handle English.")
|
||||||
))
|
))
|
||||||
|
|
||||||
(register-input-method "English"
|
|
||||||
'("quail-dvorak" quail-use-package "quail/latin"))
|
|
||||||
|
|
||||||
;;; english.el ends here
|
;;; english.el ends here
|
||||||
|
|
|
@ -48,9 +48,6 @@
|
||||||
(setq font-ccl-encoder-alist
|
(setq font-ccl-encoder-alist
|
||||||
(cons (cons "ethiopic" ccl-encode-ethio-font) 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
|
(set-language-info-alist
|
||||||
"Ethiopic" '((setup-function . setup-ethiopic-environment)
|
"Ethiopic" '((setup-function . setup-ethiopic-environment)
|
||||||
(charset . (ethiopic))
|
(charset . (ethiopic))
|
||||||
|
|
|
@ -76,9 +76,6 @@
|
||||||
(define-coding-system-alias 'iso-latin-1 'iso-8859-1)
|
(define-coding-system-alias 'iso-latin-1 'iso-8859-1)
|
||||||
(define-coding-system-alias 'iso-latin-1 'ctext)
|
(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 ()
|
(defun setup-latin1-environment ()
|
||||||
"Set up multilingual environment (MULE) for European Latin-1 users."
|
"Set up multilingual environment (MULE) for European Latin-1 users."
|
||||||
(interactive)
|
(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)
|
(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 ()
|
(defun setup-latin2-environment ()
|
||||||
"Set up multilingual environment (MULE) for European Latin-2 users."
|
"Set up multilingual environment (MULE) for European Latin-2 users."
|
||||||
(interactive)
|
(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)
|
(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 ()
|
(defun setup-latin3-environment ()
|
||||||
"Set up multilingual environment (MULE) for European Latin-3 users."
|
"Set up multilingual environment (MULE) for European Latin-3 users."
|
||||||
(interactive)
|
(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)
|
(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 ()
|
(defun setup-latin4-environment ()
|
||||||
"Set up multilingual environment (MULE) for European Latin-4 users."
|
"Set up multilingual environment (MULE) for European Latin-4 users."
|
||||||
(interactive)
|
(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)
|
(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 ()
|
(defun setup-latin5-environment ()
|
||||||
"Set up multilingual environment (MULE) for European Latin-5 users."
|
"Set up multilingual environment (MULE) for European Latin-5 users."
|
||||||
(interactive)
|
(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.
|
These languages are supported with the Latin-5 (ISO-8859-9) character set.
|
||||||
" . describe-european-environment-map))
|
" . 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
|
;;; european.el ends here
|
||||||
|
|
|
@ -36,9 +36,6 @@
|
||||||
|
|
||||||
(define-coding-system-alias 'greek-iso-8bit 'iso-8859-7)
|
(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 ()
|
(defun setup-greek-environment ()
|
||||||
"Setup multilingual environment (MULE) for Greek."
|
"Setup multilingual environment (MULE) for Greek."
|
||||||
(interactive)
|
(interactive)
|
||||||
|
|
|
@ -36,9 +36,6 @@
|
||||||
|
|
||||||
(define-coding-system-alias 'hebrew-iso-8bit 'iso-8859-8)
|
(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 ()
|
(defun setup-hebrew-environment ()
|
||||||
"Setup multilingual environment (MULE) for Hebrew.
|
"Setup multilingual environment (MULE) for Hebrew.
|
||||||
But, please note that right-to-left writing is not yet supported."
|
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"))
|
"Japanese" "quail-ja-hiragana"))
|
||||||
|
|
||||||
;;
|
;;
|
||||||
(provide 'language/japan-util)
|
(provide 'japan-util)
|
||||||
|
|
||||||
;;; Local Variables:
|
|
||||||
;;; generated-autoload-file: "../loaddefs.el"
|
|
||||||
;;; End:
|
|
||||||
;;; japan-util.el ends here
|
;;; 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-japan)
|
||||||
(define-coding-system-alias 'japanese-iso-8bit 'euc-jp)
|
(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
|
(set-language-info-alist
|
||||||
"Japanese" '((setup-function . setup-japanese-environment)
|
"Japanese" '((setup-function . setup-japanese-environment)
|
||||||
(tutorial . "TUTORIAL.jp")
|
(tutorial . "TUTORIAL.jp")
|
||||||
|
|
|
@ -46,17 +46,6 @@
|
||||||
|
|
||||||
(define-coding-system-alias 'korean-iso-7bit-lock 'iso-2022-kr)
|
(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 ()
|
(defun setup-korean-environment ()
|
||||||
"Setup multilingual environment (MULE) for Korean."
|
"Setup multilingual environment (MULE) for Korean."
|
||||||
(interactive)
|
(interactive)
|
||||||
|
|
|
@ -135,9 +135,6 @@
|
||||||
(setq l (cdr l))))
|
(setq l (cdr l))))
|
||||||
|
|
||||||
;;
|
;;
|
||||||
(provide 'language/lao-util)
|
(provide 'lao-util)
|
||||||
|
|
||||||
;;; Local Variables:
|
|
||||||
;;; generated-autoload-file: "../loaddefs.el"
|
|
||||||
;;; End:
|
|
||||||
;;; lao-util.el ends here
|
;;; lao-util.el ends here
|
||||||
|
|
|
@ -30,12 +30,6 @@
|
||||||
'((ascii t) (lao t) nil nil
|
'((ascii t) (lao t) nil nil
|
||||||
nil ascii-eol))
|
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
|
(set-language-info-alist
|
||||||
"Lao" '((setup-function . setup-lao-environment)
|
"Lao" '((setup-function . setup-lao-environment)
|
||||||
(charset . (lao))
|
(charset . (lao))
|
||||||
|
|
|
@ -26,7 +26,4 @@
|
||||||
;;; IPA (International Phonetic Alphabet)
|
;;; IPA (International Phonetic Alphabet)
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
||||||
(register-input-method
|
|
||||||
"IPA" '("quail-ipa" quail-use-package "quail/ipa"))
|
|
||||||
|
|
||||||
;;; misc-lang.el ends here
|
;;; misc-lang.el ends here
|
||||||
|
|
|
@ -179,9 +179,6 @@ positions (integers or markers) specifying the region."
|
||||||
nil))
|
nil))
|
||||||
|
|
||||||
;;
|
;;
|
||||||
(provide 'language/thai-util)
|
(provide 'thai-util)
|
||||||
|
|
||||||
;;; Local Variables:
|
|
||||||
;;; generated-autoload-file: "../loaddefs.el"
|
|
||||||
;;; End:
|
|
||||||
;;; thai-util.el ends here
|
;;; thai-util.el ends here
|
||||||
|
|
|
@ -39,9 +39,6 @@
|
||||||
(define-coding-system-alias 'thai-tis620 'th-tis620)
|
(define-coding-system-alias 'thai-tis620 'th-tis620)
|
||||||
(define-coding-system-alias 'thai-tis620 'tis620)
|
(define-coding-system-alias 'thai-tis620 'tis620)
|
||||||
|
|
||||||
(register-input-method
|
|
||||||
"Thai" '("quail-thai" quail-use-package "quail/thai"))
|
|
||||||
|
|
||||||
(set-language-info-alist
|
(set-language-info-alist
|
||||||
"Thai" '((tutorial . "TUTORIAL.th")
|
"Thai" '((tutorial . "TUTORIAL.th")
|
||||||
(setup-function . setup-thai-environment)
|
(setup-function . setup-thai-environment)
|
||||||
|
|
|
@ -465,9 +465,6 @@ See also docstring of the function tibetan-compose-region."
|
||||||
;; Should return nil as annotations.
|
;; Should return nil as annotations.
|
||||||
nil))
|
nil))
|
||||||
|
|
||||||
(provide 'language/tibet-util)
|
(provide 'tibet-util)
|
||||||
|
|
||||||
;;; Local Variables:
|
|
||||||
;;; generated-autoload-file: "../loaddefs.el"
|
|
||||||
;;; End:
|
|
||||||
;;; language/tibet-util.el ends here.
|
;;; language/tibet-util.el ends here.
|
||||||
|
|
|
@ -97,11 +97,6 @@
|
||||||
(put 'tibetan 'post-read-conversion 'tibetan-post-read-conversion)
|
(put 'tibetan 'post-read-conversion 'tibetan-post-read-conversion)
|
||||||
(put 'tibetan 'pre-write-conversion 'tibetan-pre-write-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
|
(set-language-info-alist
|
||||||
"Tibetan" '((setup-function . setup-tibetan-environment)
|
"Tibetan" '((setup-function . setup-tibetan-environment)
|
||||||
(charset . (tibetan tibetan-1-column))
|
(charset . (tibetan tibetan-1-column))
|
||||||
|
|
|
@ -289,9 +289,6 @@ positions (integers or markers) specifying the stretch of the region."
|
||||||
nil))
|
nil))
|
||||||
|
|
||||||
;;;
|
;;;
|
||||||
(provide 'language/viet-util)
|
(provide 'viet-util)
|
||||||
|
|
||||||
;;; Local Variables:
|
|
||||||
;;; generated-autoload-file: "../loaddefs.el"
|
|
||||||
;;; End:
|
|
||||||
;;; viet-util.el ends here
|
;;; 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
|
(setq font-ccl-encoder-alist
|
||||||
(cons (cons "vscii" ccl-encode-vscii-font) 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
|
(set-language-info-alist
|
||||||
"Vietnamese" '((setup-function . setup-vietnamese-environment)
|
"Vietnamese" '((setup-function . setup-vietnamese-environment)
|
||||||
(charset . (vietnamese-viscii-lower
|
(charset . (vietnamese-viscii-lower
|
||||||
|
|
Loading…
Reference in a new issue