From b8c062eeb6e7091510ab0e16852917ee8e4d5f29 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 7 Jan 2019 21:18:40 -0500 Subject: [PATCH] Use utf-8 coding system for all our Elisp files * lisp/international/ja-dic-cnv.el: * lisp/international/ja-dic-utl.el: * lisp/international/kinsoku.el: * lisp/international/kkc.el: * lisp/language/japan-util.el: * lisp/language/japanese.el: * lisp/leim/quail/cyril-jis.el: * lisp/leim/quail/hanja-jis.el: * lisp/leim/quail/japanese.el: * lisp/leim/quail/py-punct.el: * lisp/leim/quail/pypunct-b5.el: Use utf-8 coding system. * lisp/international/titdic-cnv.el: Use utf-8-emacs coding system. --- lisp/international/ja-dic-cnv.el | 65 +- lisp/international/ja-dic-utl.el | 43 +- lisp/international/kinsoku.el | 36 +- lisp/international/kkc.el | 4 +- lisp/international/titdic-cnv.el | 236 ++++---- lisp/language/japan-util.el | 88 +-- lisp/language/japanese.el | 4 +- lisp/leim/quail/cyril-jis.el | 204 ++++--- lisp/leim/quail/hanja-jis.el | 984 +++++++++++++++---------------- lisp/leim/quail/japanese.el | 374 ++++++------ lisp/leim/quail/py-punct.el | 14 +- lisp/leim/quail/pypunct-b5.el | 8 +- 12 files changed, 1023 insertions(+), 1037 deletions(-) diff --git a/lisp/international/ja-dic-cnv.el b/lisp/international/ja-dic-cnv.el index 78d2cd5aced..578cd63a590 100644 --- a/lisp/international/ja-dic-cnv.el +++ b/lisp/international/ja-dic-cnv.el @@ -32,15 +32,15 @@ ;; input method (e.g. quail-japanese) can utilize the dictionary. ;; The format of SKK dictionary is quite simple. Each line has the -;; form "KANASTRING /CONV1/CONV2/.../" which means KANASTRING ($B2>L>J8(B -;; $B;zNs(B) can be converted to one of CONVi. CONVi is a Kanji ($B4A;z(B) -;; and Kana ($B2>L>(B) mixed string. +;; form "KANASTRING /CONV1/CONV2/.../" which means KANASTRING (仮名文 +;; 字列) can be converted to one of CONVi. CONVi is a Kanji (漢字) +;; and Kana (仮名) mixed string. ;; -;; KANASTRING may have a trailing ASCII letter for Okurigana ($BAw$j2>L>(B) +;; KANASTRING may have a trailing ASCII letter for Okurigana (送り仮名) ;; information. For instance, the trailing letter `k' means that one -;; of the following Okurigana is allowed: $B$+$-$/$1$3(B. So, in that -;; case, the string "KANASTRING$B$/(B" can be converted to one of "CONV1$B$/(B", -;; CONV2$B$/(B, ... +;; of the following Okurigana is allowed: かきくけこ. So, in that +;; case, the string "KANASTRINGく" can be converted to one of "CONV1く", +;; CONV2く, ... ;;; Code: @@ -76,25 +76,25 @@ (defconst skkdic-postfix-list '(skkdic-postfix-list)) (defconst skkdic-postfix-data - '(("$B$$$-(B" "$B9T(B") - ("$B$,$+$j(B" "$B78(B") - ("$B$,$/(B" "$B3X(B") - ("$B$,$o(B" "$B@n(B") - ("$B$7$c(B" "$B^(B" "$B>k(B") - ("$B$8$g$&(B" "$B>k(B") - ("$B$;$s(B" "$B@~(B") - ("$B$@$1(B" "$B3Y(B") - ("$B$A$c$/(B" "$BCe(B") - ("$B$F$s(B" "$BE9(B") - ("$B$H$&$2(B" "$BF=(B") - ("$B$I$*$j(B" "$BDL$j(B") - ("$B$d$^(B" "$B;3(B") - ("$B$P$7(B" "$B66(B") - ("$B$O$D(B" "$BH/(B") - ("$B$b$/(B" "$BL\(B") - ("$B$f$-(B" "$B9T(B"))) + '(("いき" "行") + ("がかり" "係") + ("がく" "å­¦") + ("がわ" "川") + ("しゃ" "社") + ("しゅう" "集") + ("しょう" "賞" "城") + ("じょう" "城") + ("せん" "線") + ("だけ" "å²³") + ("ちゃく" "着") + ("てん" "店") + ("とうげ" "å³ ") + ("どおり" "通り") + ("やま" "å±±") + ("ばし" "橋") + ("はつ" "発") + ("もく" "目") + ("ゆき" "行"))) (defun skkdic-convert-postfix (skkbuf buf) (message "Processing POSTFIX entries ...") @@ -124,7 +124,7 @@ (setq l (cdr l))))) ;; Search postfix entries. - (while (re-search-forward "^[#<>?]\\(\\(\\cH\\|$B!<(B\\)+\\) " nil t) + (while (re-search-forward "^[#<>?]\\(\\(\\cH\\|ー\\)+\\) " nil t) (let ((kana (match-string-no-properties 1)) str candidates) (while (looking-at "/[#0-9 ]*\\([^/\n]*\\)/") @@ -157,7 +157,7 @@ (insert ";; Setting prefix entries.\n" "(skkdic-set-prefix\n")) (save-excursion - (while (re-search-forward "^\\(\\(\\cH\\|$B!<(B\\)+\\)[<>?] " nil t) + (while (re-search-forward "^\\(\\(\\cH\\|ー\\)+\\)[<>?] " nil t) (let ((kana (match-string-no-properties 1)) str candidates) (while (looking-at "/\\([^/\n]+\\)/") @@ -275,7 +275,7 @@ (let ((progress (make-progress-reporter "Collecting OKURI-NASI entries" (point) (point-max) nil 10))) - (while (re-search-forward "^\\(\\(\\cH\\|$B!<(B\\)+\\) \\(/\\cj.*\\)/$" + (while (re-search-forward "^\\(\\(\\cH\\|ー\\)+\\) \\(/\\cj.*\\)/$" nil t) (let ((kana (match-string-no-properties 1)) (candidates (skkdic-get-candidate-list (match-beginning 3) @@ -452,7 +452,7 @@ To get complete usage, invoke: (aset vec i (if (< ch 128) ; CH is an ASCII letter for OKURIGANA, (- ch) ; represented by a negative code. - (if (= ch ?$B!<(B) ; `$B!<(B' is represented by 0. + (if (= ch ?ー) ; `ー' is represented by 0. 0 (- (logand (encode-char ch 'japanese-jisx0208) #xFF) 32)))) (setq i (1+ i))) @@ -541,9 +541,4 @@ To get complete usage, invoke: map))) (provide 'ja-dic-cnv) - -;; Local Variables: -;; coding: iso-2022-7bit -;; End: - ;;; ja-dic-cnv.el ends here diff --git a/lisp/international/ja-dic-utl.el b/lisp/international/ja-dic-utl.el index 86ba3749df8..498fb23f707 100644 --- a/lisp/international/ja-dic-utl.el +++ b/lisp/international/ja-dic-utl.el @@ -53,23 +53,23 @@ "Nested alist for OKURI-NASI entries of SKK dictionary.") (defconst skkdic-okurigana-table - '((?$B$!(B . ?a) (?$B$"(B . ?a) (?$B$#(B . ?i) (?$B$$(B . ?i) (?$B$%(B . ?u) - (?$B$&(B . ?u) (?$B$'(B . ?e) (?$B$((B . ?e) (?$B$)(B . ?o) (?$B$*(B . ?o) - (?$B$+(B . ?k) (?$B$,(B . ?g) (?$B$-(B . ?k) (?$B$.(B . ?g) (?$B$/(B . ?k) - (?$B$0(B . ?g) (?$B$1(B . ?k) (?$B$2(B . ?g) (?$B$3(B . ?k) (?$B$4(B . ?g) - (?$B$5(B . ?s) (?$B$6(B . ?z) (?$B$7(B . ?s) (?$B$8(B . ?j) (?$B$9(B . ?s) - (?$B$:(B . ?z) (?$B$;(B . ?s) (?$B$<(B . ?z) (?$B$=(B . ?s) (?$B$>(B . ?z) - (?$B$?(B . ?t) (?$B$@(B . ?d) (?$B$A(B . ?t) (?$B$B(B . ?d) (?$B$C(B . ?t) - (?$B$D(B . ?t) (?$B$E(B . ?d) (?$B$F(B . ?t) (?$B$G(B . ?d) (?$B$H(B . ?t) (?$B$I(B . ?d) - (?$B$J(B . ?n) (?$B$K(B . ?n) (?$B$L(B . ?n) (?$B$M(B . ?n) (?$B$N(B . ?n) - (?$B$O(B . ?h) (?$B$P(B . ?b) (?$B$Q(B . ?p) (?$B$R(B . ?h) (?$B$S(B . ?b) - (?$B$T(B . ?p) (?$B$U(B . ?h) (?$B$V(B . ?b) (?$B$W(B . ?p) (?$B$X(B . ?h) - (?$B$Y(B . ?b) (?$B$Z(B . ?p) (?$B$[(B . ?h) (?$B$\(B . ?b) (?$B$](B . ?p) - (?$B$^(B . ?m) (?$B$_(B . ?m) (?$B$`(B . ?m) (?$B$a(B . ?m) (?$B$b(B . ?m) - (?$B$c(B . ?y) (?$B$d(B . ?y) (?$B$e(B . ?y) (?$B$f(B . ?y) (?$B$g(B . ?y) (?$B$h(B . ?y) - (?$B$i(B . ?r) (?$B$j(B . ?r) (?$B$k(B . ?r) (?$B$l(B . ?r) (?$B$m(B . ?r) - (?$B$o(B . ?w) (?$B$p(B . ?w) (?$B$q(B . ?w) (?$B$r(B . ?w) - (?$B$s(B . ?n) + '((?ぁ . ?a) (?あ . ?a) (?ぃ . ?i) (?い . ?i) (?ぅ . ?u) + (?う . ?u) (?ぇ . ?e) (?え . ?e) (?ぉ . ?o) (?お . ?o) + (?か . ?k) (?が . ?g) (?き . ?k) (?ぎ . ?g) (?く . ?k) + (?ぐ . ?g) (?け . ?k) (?げ . ?g) (?こ . ?k) (?ご . ?g) + (?さ . ?s) (?ざ . ?z) (?し . ?s) (?じ . ?j) (?す . ?s) + (?ず . ?z) (?せ . ?s) (?ぜ . ?z) (?そ . ?s) (?ぞ . ?z) + (?た . ?t) (?だ . ?d) (?ち . ?t) (?ぢ . ?d) (?っ . ?t) + (?つ . ?t) (?づ . ?d) (?て . ?t) (?で . ?d) (?と . ?t) (?ど . ?d) + (?な . ?n) (?に . ?n) (?ぬ . ?n) (?ね . ?n) (?の . ?n) + (?は . ?h) (?ば . ?b) (?ぱ . ?p) (?ひ . ?h) (?び . ?b) + (?ぴ . ?p) (?ふ . ?h) (?ぶ . ?b) (?ぷ . ?p) (?へ . ?h) + (?べ . ?b) (?ぺ . ?p) (?ほ . ?h) (?ぼ . ?b) (?ぽ . ?p) + (?ま . ?m) (?み . ?m) (?む . ?m) (?め . ?m) (?も . ?m) + (?ゃ . ?y) (?や . ?y) (?ゅ . ?y) (?ゆ . ?y) (?ょ . ?y) (?よ . ?y) + (?ら . ?r) (?り . ?r) (?る . ?r) (?れ . ?r) (?ろ . ?r) + (?わ . ?w) (?ゐ . ?w) (?ゑ . ?w) (?を . ?w) + (?ん . ?n) ) "Alist of Okuriganas vs trailing ASCII letters in OKURI-ARI entry.") @@ -125,14 +125,14 @@ LEIM is available from the same ftp directory as Emacs."))) ;; At first, generate vector VEC from SEQ for looking up SKK ;; alists. Nth element in VEC corresponds to Nth element in SEQ. ;; The values are decided as follows. - ;; If SEQ[N] is `$B!<(B', VEC[N] is 0, + ;; If SEQ[N] is `ー', VEC[N] is 0, ;; else if SEQ[N] is a Hiragana character, VEC[N] is: ;; ((The 2nd position code of SEQ[N]) - 32), ;; else VEC[N] is 128. (while (< i len) (let ((ch (aref seq i)) code) - (cond ((= ch ?$B!<(B) + (cond ((= ch ?ー) (aset vec i 0)) ((and (>= ch (car skkdic-jisx0208-hiragana-block)) (<= ch (cdr skkdic-jisx0208-hiragana-block))) @@ -218,9 +218,4 @@ LEIM is available from the same ftp directory as Emacs."))) ;; (provide 'ja-dic-utl) - -;; Local Variables: -;; coding: iso-2022-7bit -;; End: - ;;; ja-dic-utl.el ends here diff --git a/lisp/international/kinsoku.el b/lisp/international/kinsoku.el index 376d23b1fa6..690a80e6595 100644 --- a/lisp/international/kinsoku.el +++ b/lisp/international/kinsoku.el @@ -1,4 +1,4 @@ -;;; kinsoku.el --- `Kinsoku' processing funcs -*- coding: iso-2022-7bit; -*- +;;; kinsoku.el --- `Kinsoku' processing funcs ;; Copyright (C) 1997, 2001-2019 Free Software Foundation, Inc. ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, @@ -62,19 +62,19 @@ The value 0 means there's no limitation.") idx (1+ idx))) str2) ;; Katakana JISX0201 - "(I!#'()*+,-./0^_(B" + "。」ァィゥェォャュョッー゙゚" ;; Japanese JISX0208 - "$B!"!#!$!%!&!'!(!)!*!+!,!-!.!/!0!1!2!3!4!5!6!7!8!9!:!;!(B\ -$B!?!@!A!B!C!D!E!G!I!K!M!O!Q!S!U!W!Y![!k!l!m!n(B\ -$B$!$#$%$'$)$C$c$e$g$n%!%#%%%'%)%C%c%e%g%n%u%v(B" + "、。,.・:;?!゛゜´`¨^ ̄_ヽヾゝゞ〃仝々〆〇ー—‐\ +/\〜‖|…‥’”)〕]}〉》」』】°′″℃\ +ぁぃぅぇぉっゃゅょゎァィゥェォッャュョヮヵヶ" ;; Chinese GB2312 - "$A!"!##.#,!$!%!&!'!(!)!*!+!,!-!/!1#)!3!5!7!9!;!=(B\ -$A!?#;#:#?#!!@!A!B!C!c!d!e!f#/#\#"#_#~#|(e(B" + "、。.,・ˉˇ¨〃々―~‖…’”)〕〉》」』〗\ +】;:?!±×÷∶°′″℃/\"_ ̄|ㄥ" ;; Chinese BIG5 - "$(0!"!#!$!%!&!'!(!)!*!+!,!-!.!/!0!1!2(B\ -$(0!3!4!5!6!7!8!9!:!;!!c!d!e#@!f!l(B\ -$A(E(F(G(H(I(J(K(L(M(N(O(P(Q(R(S(T(U(V(W(X(Y(h(B\ -\$(0!>!@!B!D!F!H!J!L!N!P!R!T!V!X!Z!\!^!`!b(B" + "‘“"(〔〈《「『〖【°′″@℃§\ +ㄅㄆㄇㄈㄉㄊㄋㄌㄍㄎㄏㄐㄑㄒㄓㄔㄕㄖㄗㄘㄙㄨ\ +\(︵{︷〔︹【︻《︽〈︿「﹁『﹃﹙﹛﹝" ;; Chinese BIG5 - "$(0!d!f!h!j!k!q!p"i"j"k"n"x$u$v$w$x$y$z${(B\ -$(0$|$}$~%!%"%#%$%%%&%'%(%)%*%+%:(B")) + "‘“〝‵′〃§@℃℉﹫°ㄅㄆㄇㄈㄉㄊㄋ\ +ㄌㄍㄎㄏㄐㄑㄒㄓㄔㄕㄖㄗㄘㄙㄨ")) (len (length kinsoku-eol)) (idx 0) ch) diff --git a/lisp/international/kkc.el b/lisp/international/kkc.el index df56ce26161..6691ee9eb9b 100644 --- a/lisp/international/kkc.el +++ b/lisp/international/kkc.el @@ -1,4 +1,4 @@ -;;; kkc.el --- Kana Kanji converter -*- coding: iso-2022-7bit; -*- +;;; kkc.el --- Kana Kanji converter ;; Copyright (C) 1997-1998, 2001-2019 Free Software Foundation, Inc. ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, @@ -36,7 +36,7 @@ (require 'ja-dic-utl) -(defvar kkc-input-method-title "$B4A(B" +(defvar kkc-input-method-title "æ¼¢" "String denoting KKC input method. This string is shown at mode line when users are in KKC mode.") diff --git a/lisp/international/titdic-cnv.el b/lisp/international/titdic-cnv.el index ed020fe32a9..f1a81018cb6 100644 --- a/lisp/international/titdic-cnv.el +++ b/lisp/international/titdic-cnv.el @@ -1,4 +1,4 @@ -;;; titdic-cnv.el --- convert cxterm dictionary (TIT format) to Quail package -*- coding:iso-2022-7bit; -*- +;;; titdic-cnv.el --- convert cxterm dictionary (TIT format) to Quail package -*- coding:utf-8-emacs -*- ;; Copyright (C) 1997-1998, 2000-2019 Free Software Foundation, Inc. ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, @@ -83,9 +83,9 @@ ;; how to select a translation from a list of candidates. (defvar quail-cxterm-package-ext-info - '(("chinese-4corner" "$(0(?-F(B") - ("chinese-array30" "$(0#R#O(B") - ("chinese-ccdospy" "$AKuF4(B" + '(("chinese-4corner" "四角") + ("chinese-array30" "30") + ("chinese-ccdospy" "缩拼" "Pinyin base input method for Chinese charset GB2312 (`chinese-gb2312'). Pinyin is the standard Roman transliteration method for Chinese. @@ -94,10 +94,10 @@ method `chinese-py'. This input method works almost the same way as `chinese-py'. The difference is that you type a single key for these Pinyin spelling. - Pinyin: zh en eng ang ch an ao ai ong sh ing yu($A(9(B) + Pinyin: zh en eng ang ch an ao ai ong sh ing yu(ü) keyseq: a f g h i j k l s u y v For example: - Chinese: $A0!(B $A9{(B $AVP(B $AND(B $A9b(B $ASq(B $AH+(B + Chinese: 啊 果 中 文 光 玉 全 Pinyin: a guo zhong wen guang yu quan Keyseq: a1 guo4 as1 wf4 guh1 yu..6 qvj6 @@ -106,14 +106,14 @@ For example: For double-width GB2312 characters corresponding to ASCII, use the input method `chinese-qj'.") - ("chinese-ecdict" "$(05CKH(B" + ("chinese-ecdict" "英漢" "In this input method, you enter a Chinese (Big5) character or word by typing the corresponding English word. For example, if you type -\"computer\", \"$(0IZH+(B\" is input. +\"computer\", \"電腦\" is input. \\") - ("chinese-etzy" "$(06/0D(B" + ("chinese-etzy" "倚注" "Zhuyin base input method for Chinese Big5 characters (`chinese-big5-1', `chinese-big5-2'). @@ -122,20 +122,20 @@ compose one Chinese character. In this input method, you enter a Chinese character by first typing keys corresponding to Zhuyin symbols (see the above table) followed by -SPC, 1, 2, 3, or 4 specifying a tone (SPC:$(0?v(N(B, 1:$(0M=Vy(B, 2:$(0Dm(N(B, 3: $(0&9Vy(B, -4:$(0(+Vy(B). +SPC, 1, 2, 3, or 4 specifying a tone (SPC:陰平, 1:輕聲, 2:陽平, 3: 上聲, +4:去聲). \\") - ("chinese-punct-b5" "$(0O:(BB" + ("chinese-punct-b5" "標B" "Input method for Chinese punctuation and symbols of Big5 \(`chinese-big5-1' and `chinese-big5-2').") - ("chinese-punct" "$A1j(BG" + ("chinese-punct" "标G" "Input method for Chinese punctuation and symbols of GB2312 \(`chinese-gb2312').") - ("chinese-py-b5" "$(03<(BB" + ("chinese-py-b5" "拼B" "Pinyin base input method for Chinese Big5 characters \(`chinese-big5-1', `chinese-big5-2'). @@ -153,28 +153,28 @@ method `chinese-qj-b5'. The input method `chinese-py' and `chinese-tonepy' are also Pinyin based, but for the character set GB2312 (`chinese-gb2312').") - ("chinese-qj-b5" "$(0)A(BB") + ("chinese-qj-b5" "全B") - ("chinese-qj" "$AH+(BG") + ("chinese-qj" "全G") - ("chinese-sw" "$AJWN2(B" + ("chinese-sw" "首尾" "Radical base input method for Chinese charset GB2312 (`chinese-gb2312'). In this input method, you enter a Chinese character by typing two -keys. The first key corresponds to the first ($AJW(B) radical, the second -key corresponds to the last ($AN2(B) radical. The correspondence of keys +keys. The first key corresponds to the first (首) radical, the second +key corresponds to the last (å°¾) radical. The correspondence of keys and radicals is as below: first radical: a b c d e f g h i j k l m n o p q r s t u v w x y z - $APD(B $AZ"(B $AJ,(B $AX<(B $A;p(B $A?Z(B $A^P(B $Ac_(B $AZ%(B $A\3(B $AXi(B $AD>(B $Alj(B $Ab;(B $ATB(B $Afy(B $AJ/(B $AMu(B $A0K(B $AX/(B $AHU(B $AeA(B $Aak(B $AVq(B $AR;(B $AHK(B + 心 冖 å°¸ 丶 火 口 扌 æ°µ è®  艹 亻 木 礻 饣 月 纟 石 王 八 丿 日 辶 犭 竹 一 人 last radical: a b c d e f g h i j k l m n o p q r s t u v w x y z - $ASV(B $AI=(B $AMA(B $A56(B $AZb(B $A?Z(B $ARB(B $Aqb(B $A4s(B $A6!(B $A[L(B $Ala(B $AJ.(B $A4u(B $AXg(B $ACE(B $A=q(B $AX-(B $AE.(B $ARR(B $A`m(B $AP!(B $A3'(B $A3f(B $A_.(B $A27(B + 又 å±± 土 刀 阝 口 è¡£ 疋 大 丁 厶 灬 十 æ­¹ 冂 门 今 丨 女 乙 囗 小 厂 虫 弋 卜 \\") - ("chinese-tonepy" "$A5wF4(B" + ("chinese-tonepy" "调拼" "Pinyin base input method for Chinese charset GB2312 (`chinese-gb2312'). Pinyin is the standard roman transliteration method for Chinese. @@ -183,18 +183,18 @@ method `chinese-py'. This input method works almost the same way as `chinese-py'. The difference is that you must type 1..5 after each Pinyin spelling to -specify a tone (1:$ARuF=(B, 2:$AQtF=(B, 3:$AIOIy(B, 4$AOBIy(B, 5:$AGaIy(B). +specify a tone (1:阴平, 2:阳平, 3:上声, 4下声, 5:轻声). \\ -For instance, to input $ADc(B, you type \"n i 3 3\", the first \"n i\" is +For instance, to input ä½ , you type \"n i 3 3\", the first \"n i\" is a Pinyin, the next \"3\" specifies tone, and the last \"3\" selects the third character from the candidate list. For double-width GB2312 characters corresponding to ASCII, use the input method `chinese-qj'.") - ("chinese-zozy" "$(0I\0D(B" + ("chinese-zozy" "零注" "Zhuyin base input method for Chinese Big5 characters (`chinese-big5-1', `chinese-big5-2'). @@ -203,8 +203,8 @@ compose a Chinese character. In this input method, you enter a Chinese character by first typing keys corresponding to Zhuyin symbols (see the above table) followed by -SPC, 6, 3, 4, or 7 specifying a tone (SPC:$(0?v(N(B, 6:$(0Dm(N(B, 3:$(0&9Vy(B, 4:$(0(+Vy(B, -7:$(0M=Vy(B). +SPC, 6, 3, 4, or 7 specifying a tone (SPC:陰平, 6:陽平, 3:上聲, 4:去聲, +7:輕聲). \\"))) @@ -348,7 +348,7 @@ SPC, 6, 3, 4, or 7 specifying a tone (SPC:$(0?v(N(B, 6:$(0Dm(N(B, 3:$(0&9Vy (princ (nth 2 (assoc tit-encode tit-encode-list))) (princ "\" \"") (princ (or title - (if (string-match "[:$A!K$(0!(!J(B]+\\([^:$A!K$(0!(!K(B]+\\)" tit-prompt) + (if (string-match "[:∷:【]+\\([^:∷:】]+\\)" tit-prompt) (substring tit-prompt (match-beginning 1) (match-end 1)) tit-prompt))) (princ "\"\n")) @@ -579,7 +579,7 @@ To get complete usage, invoke \"emacs -batch -f batch-titdic-convert -h\"." ;; ) (defvar quail-misc-package-ext-info - '(("chinese-b5-tsangchi" "$(06A(BB" + '(("chinese-b5-tsangchi" "倉B" "cangjie-table.b5" big5 "tsang-b5.el" tsang-b5-converter "\ @@ -589,7 +589,7 @@ To get complete usage, invoke \"emacs -batch -f batch-titdic-convert -h\"." ;; # unmodified versions is granted without royalty provided ;; # this notice is preserved.") - ("chinese-b5-quick" "$(0X|(BB" + ("chinese-b5-quick" "ç°¡B" "cangjie-table.b5" big5 "quick-b5.el" quick-b5-converter "\ @@ -599,7 +599,7 @@ To get complete usage, invoke \"emacs -batch -f batch-titdic-convert -h\"." ;; # unmodified versions is granted without royalty provided ;; # this notice is preserved.") - ("chinese-cns-tsangchi" "$(GT?(BC" + ("chinese-cns-tsangchi" "倉C" "cangjie-table.cns" iso-2022-cn-ext "tsang-cns.el" tsang-cns-converter "\ @@ -609,7 +609,7 @@ To get complete usage, invoke \"emacs -batch -f batch-titdic-convert -h\"." ;; # unmodified versions is granted without royalty provided ;; # this notice is preserved.") - ("chinese-cns-quick" "$(Gv|(BC" + ("chinese-cns-quick" "ç°¡C" "cangjie-table.cns" iso-2022-cn-ext "quick-cns.el" quick-cns-converter "\ @@ -619,7 +619,7 @@ To get complete usage, invoke \"emacs -batch -f batch-titdic-convert -h\"." ;; # unmodified versions is granted without royalty provided ;; # this notice is preserved.") - ("chinese-py" "$AF4(BG" + ("chinese-py" "拼G" "pinyin.map" cn-gb-2312 "PY.el" py-converter "\ @@ -647,7 +647,7 @@ To get complete usage, invoke \"emacs -batch -f batch-titdic-convert -h\"." ;; You should have received a copy of the GNU General Public License along with ;; CCE. If not, see .") - ("chinese-ziranma" "$AWTH;(B" + ("chinese-ziranma" "自然" "ziranma.cin" cn-gb-2312 "ZIRANMA.el" ziranma-converter "\ @@ -675,7 +675,7 @@ To get complete usage, invoke \"emacs -batch -f batch-titdic-convert -h\"." ;; You should have received a copy of the GNU General Public License along with ;; CCE. If not, see .") - ("chinese-ctlau" "$AAuTA(B" + ("chinese-ctlau" "刘粤" "CTLau.html" cn-gb-2312 "CTLau.el" ctlau-gb-converter "\ @@ -700,7 +700,7 @@ To get complete usage, invoke \"emacs -batch -f batch-titdic-convert -h\"." ;; # You should have received a copy of the GNU General Public License ;; # along with this program. If not, see .") - ("chinese-ctlaub" "$(0N,Gn(B" + ("chinese-ctlaub" "劉粵" "CTLau-b5.html" big5 "CTLau-b5.el" ctlau-b5-converter "\ @@ -730,38 +730,38 @@ To get complete usage, invoke \"emacs -batch -f batch-titdic-convert -h\"." ;; dictionary in the buffer DICBUF. The input method name of the ;; Quail package is NAME, and the title string is TITLE. -;; TSANG-P is non-nil, generate $(06AQo(B input method. Otherwise -;; generate $(0X|/y(B (simple version of $(06AQo(B). If BIG5-P is non-nil, the +;; TSANG-P is non-nil, generate 倉頡 input method. Otherwise +;; generate 簡易 (simple version of 倉頡). If BIG5-P is non-nil, the ;; input method is for inputting Big5 characters. Otherwise the input ;; method is for inputting CNS characters. (defun tsang-quick-converter (dicbuf name title tsang-p big5-p) - (let ((fulltitle (if tsang-p (if big5-p "$(06AQo(B" "$(GT?on(B") - (if big5-p "$(0X|/y(B" "$(Gv|Mx(B"))) + (let ((fulltitle (if tsang-p (if big5-p "倉頡" "倉頡") + (if big5-p "簡易" "簡易"))) dic) (goto-char (point-max)) (if big5-p - (insert (format "\"$(0&d'GTT&,!J(B%s$(0!K(BBIG5 + (insert (format "\"中文輸入【%s】BIG5 - $(0KHM$(B%s$(0TT&,WoOu(B + 漢語%s輸入鍵盤 - [Q $(0'D(B] [W $(0(q(B] [E $(0'V(B] [R $(0&H(B] [T $(0'>(B] [Y $(0&4(B] [U $(0&U(B] [I $(0'B(B] [O $(0&*(B] [P $(0'A(B] + [Q 手] [W 田] [E æ°´] [R 口] [T 廿] [Y 卜] [U å±±] [I 戈] [O 人] [P 心] - [A $(0'K(B] [S $(0&T(B] [D $(0'N(B] [F $(0'W(B] [G $(0&I(B] [H $(0*M(B] [J $(0&3(B] [L $(0&d(B] + [A 日] [S å°¸] [D 木] [F 火] [G 土] [H 竹] [J 十] [L 中] - [Z ] [X $(0[E(B] [C $(01[(B] [V $(0&M(B] [B $(0'M(B] [N $(0&_(B] [M $(0&"(B] + [Z ] [X 難] [C 金] [V 女] [B 月] [N 弓] [M 一] \\\\\"\n" fulltitle fulltitle)) - (insert (format "\"$(GDcEFrSD+!J(B%s$(G!K(BCNS + (insert (format "\"中文輸入【%s】CNS - $(GiGk#(B%s$(GrSD+uomu(B + 漢語%s輸入鍵盤 - [Q $(GEC(B] [W $(GFp(B] [E $(GEU(B] [R $(GDG(B] [T $(GE=(B] [Y $(GD3(B] [U $(GDT(B] [I $(GEA(B] [O $(GD)(B] [P $(GE@(B] + [Q 手] [W 田] [E æ°´] [R 口] [T 廿] [Y 卜] [U å±±] [I 戈] [O 人] [P 心] - [A $(GEJ(B] [S $(GDS(B] [D $(GEM(B] [F $(GEV(B] [G $(GDH(B] [H $(GHL(B] [J $(GD2(B] [L $(GDc(B] + [A 日] [S å°¸] [D 木] [F 火] [G 土] [H 竹] [J 十] [L 中] - [Z ] [X $(GyE(B] [C $(GOZ(B] [V $(GDL(B] [B $(GEL(B] [N $(GD^(B] [M $(GD!(B] + [Z ] [X 難] [C 金] [V 女] [B 月] [N 弓] [M 一] \\\\\"\n" fulltitle fulltitle))) @@ -797,35 +797,35 @@ To get complete usage, invoke \"emacs -batch -f batch-titdic-convert -h\"." (setq dic (sort dic (function (lambda (x y) (string< (car x ) (car y)))))) (dolist (elt dic) (insert (format "(%S\t%S)\n" (car elt) (cdr elt)))) - (let ((punctuation '((";" "$(0!'!2!"!#!.!/(B" "$(G!'!2!"!#!.!/(B") - (":" "$(0!(!+!3!%!$!&!0!1(B" "$(G!(!+!3!%!$!&!0!1(B") - ("'" "$(0!e!d(B" "$(G!e!d(B") - ("\"" "$(0!g!f!h!i!q(B" "$(G!g!f!h!i!q(B") - ("\\" "$(0"`"b#M(B" "$(G"`"b#M(B") - ("|" "$(0!6!8!:"^(B" "$(G!6!8!:"^(B") - ("/" "$(0"_"a#L(B" "$(G"_"a#L(B") - ("?" "$(0!)!4(B" "$(G!)!4(B") - ("<" "$(0!R"6"A!T"H(B" "$(G!R"6"A!T"H(B") - (">" "$(0!S"7"B!U(B" "$(G!S"7"B!U(B") - ("[" "$(0!F!J!b!H!L!V!Z!X!\(B" "$(G!F!J!b!H!L!V!Z!X!\(B") - ("]" "$(0!G!K!c!I!M!W![!Y!](B" "$(G!G!K!c!I!M!W![!Y!](B") - ("{" "$(0!B!`!D(B " "$(G!B!`!D(B ") - ("}" "$(0!C!a!E(B" "$(G!C!a!E(B") - ("`" "$(0!j!k(B" "$(G!j!k(B") - ("~" "$(0"D"+",!!^!@(B" "$(G!>!^!@(B") - (")" "$(0!?!_!A(B" "$(G!?!_!A(B") - ("-" "$(0!7!9"#"$"1"@(B" "$(G!7!9"#"$"1"@(B") - ("_" "$(0"%"&(B" "$(G"%"&(B") - ("=" "$(0"8"C(B" "$(G"8"C(B") - ("+" "$(0"0"?(B" "$(G"0"?(B")))) + (let ((punctuation '((";" ";﹔,、﹐﹑" ";﹔,、﹐﹑") + (":" ":︰﹕.。‧﹒·" ":︰﹕.。・﹒·") + ("'" "’‘" "’‘") + ("\"" "”“〝〞〃" "”“〝〞〃") + ("\\" "\﹨╲" "\﹨╲") + ("|" "|︱︳∣" "︱︲ô”€™ï½œ") + ("/" "/∕╱" "/∕╱") + ("?" "?﹖" "?﹖") + ("<" "〈<﹤︿∠" "〈<﹤︿∠") + (">" "〉>﹥﹀" "〉>﹦﹀") + ("[" "〔【﹝︹︻「『﹁﹃" "〔【﹝︹︻「『﹁﹃") + ("]" "〕】﹞︺︼」』﹂﹄" "〕】﹞︺︼」』﹂﹄") + ("{" "{﹛︷ " "{﹛︷ ") + ("}" "}﹜︸" "}﹜︸") + ("`" "‵′" "′‵") + ("~" "~﹋﹌︴﹏" "∼﹋﹌ô”€›ô”€œ") + ("!" "!﹗" "!﹗") + ("@" "@﹫" "@﹫") + ("#" "#﹟" "#﹟") + ("$" "$﹩" "$﹩") + ("%" "%﹪" "%﹪") + ("&" "&﹠" "&﹠") + ("*" "*﹡※☆★" "*﹡※☆★") + ("(" "(﹙︵" "(﹙︵") + (")" ")﹚︶" ")﹚︶") + ("-" "–—¯ ̄-﹣" "—–‾ô”¡ï¼ï¹£") + ("_" "_ˍ" "_ô”£") + ("=" "=﹦" "=﹥") + ("+" "+﹢" "+﹢")))) (dolist (elt punctuation) (insert (format "(%S %S)\n" (concat "z" (car elt)) (if big5-p (nth 1 elt) (nth 2 elt)))))) @@ -849,11 +849,11 @@ To get complete usage, invoke \"emacs -batch -f batch-titdic-convert -h\"." (defun py-converter (dicbuf name title) (goto-char (point-max)) - (insert (format "%S\n" "$A::WVJdHk!KF4Rt!K(B + (insert (format "%S\n" "汉字输入∷拼音∷ - $AF4Rt7=08(B + 拼音方案 - $AP!P4S"NDWVD84z1m!8F4Rt!97{:E#,(B \"u(yu) $ATrSC(B u: $A1mJ>!C(B + 小写英文字母代表「拼音」符号, \"u(yu) 则用 u: 表示∶ Pinyin base input method for Chinese charset GB2312 (`chinese-gb2312'). @@ -867,14 +867,14 @@ character. The sequence is made by the combination of the initials iang ing iong u ua uo uai ui uan un uan ueng yu yue yuan yun (Note: In the correct Pinyin writing, the sequence \"yu\" in the last - four finals should be written by the character u-umlaut `$A(9(B'.) + four finals should be written by the character u-umlaut `ü'.) With this input method, you enter a Chinese character by first entering its pinyin spelling. \\ -For instance, to input $ADc(B, you type \"n i C-n 3\". The first \"n i\" +For instance, to input ä½ , you type \"n i C-n 3\". The first \"n i\" is a Pinyin, \"C-n\" selects the next group of candidates (each group contains at most 10 characters), \"3\" select the third character in that group. @@ -957,22 +957,22 @@ method `chinese-tonepy' with which you must specify tones by digits table))) (setq dic (sort dic (function (lambda (x y) (string< (car x) (car y)))))) (goto-char (point-max)) - (insert (format "%S\n" "$A::WVJdHk!K!>WTH;!?!K(B - - $A<|EL6TUU1m(B: - $A)3)%)%)W)%)%)W)%)%)W)%)%)W)%)%)W)%)%)W)%)%)W)%)%)W)%)%)W)%)%)7(B - $A)'#Q(B $A)'#W(B $A)'#E(B $A)'#R(B $A)'#T(B $A)'#Y(B $A)'#U(Bsh$A)'#I(Bch$A)'#O(B $A)'#P(B $A)'(B - $A)'(B iu$A)'(B ua$A)'(B e$A)'(B uan$A)'(B ue$A)'(B uai$A)'(B u$A)'(B i$A)'(B o$A)'(B un$A)'(B - $A)'(B $A)'(B ia$A)'(B $A)'(B van$A)'(B ve$A)'(B ing$A)'(B $A)'(B $A)'(B uo$A)'(B vn$A)'(B - $A);)W)%)_)W)%)_)W)%)_)W)%)_)W)%)_)W)%)_)W)%)_)W)%)_)W)%)_)W)%)?(B - $A)'#A(B $A)'#S(B $A)'#D(B $A)'#F(B $A)'#G(B $A)'#H(B $A)'#J(B $A)'#K(B $A)'#L(B $A)'(B - $A)'(B a$A)'(Biong$A)'(Buang$A)'(B en$A)'(B eng$A)'(B ang$A)'(B an$A)'(B ao$A)'(B ai$A)'(B - $A)'(B $A)'(B ong$A)'(Biang$A)'(B $A)'(B ng$A)'(B $A)'(B $A)'(B $A)'(B $A)'(B - $A);)W)%)_)W)%)_)W)%)_)W)%)_)W)%)_)W)%)_)W)%)_)W)%)_)W)%)_)W)%)%)7(B - $A)'#Z(B $A)'#X(B $A)'#C(B $A)'#V(Bzh$A)'#B(B $A)'#N(B $A)'#M(B $A)'#,(B $A)'#.(B $A)'(B $A#/(B $A)'(B - $A)'(B ei$A)'(B ie$A)'(B iao$A)'(B ui$A)'(B ou$A)'(B in$A)'(B ian$A)'G0R3)':sR3)'7{:E)'(B - $A)'(B $A)'(B $A)'(B $A)'(B v$A)'(B $A)'(B $A)'(B $A)'(B $A)'(B $A)'(B $A)'(B - $A);)%)%)_)%)%)_)%)%)_)%)%)_)%)%)_)%)%)_)%)%)_)%)%)_)%)%)_)%)%)?(B + (insert (format "%S\n" "汉字输入∷【自然】∷ + + 键盘对照表: + ┏━━┳━━┳━━┳━━┳━━┳━━┳━━┳━━┳━━┳━━┓ + ┃Q ┃W ┃E ┃R ┃T ┃Y ┃Ush┃Ich┃O ┃P ┃ + ┃ iu┃ ua┃ e┃ uan┃ ue┃ uai┃ u┃ i┃ o┃ un┃ + ┃ ┃ ia┃ ┃ van┃ ve┃ ing┃ ┃ ┃ uo┃ vn┃ + ┗┳━┻┳━┻┳━┻┳━┻┳━┻┳━┻┳━┻┳━┻┳━┻┳━┛ + ┃A ┃S ┃D ┃F ┃G ┃H ┃J ┃K ┃L ┃ + ┃ a┃iong┃uang┃ en┃ eng┃ ang┃ an┃ ao┃ ai┃ + ┃ ┃ ong┃iang┃ ┃ ng┃ ┃ ┃ ┃ ┃ + ┗┳━┻┳━┻┳━┻┳━┻┳━┻┳━┻┳━┻┳━┻┳━┻┳━━┓ + ┃Z ┃X ┃C ┃Vzh┃B ┃N ┃M ┃, ┃. ┃ / ┃ + ┃ ei┃ ie┃ iao┃ ui┃ ou┃ in┃ ian┃前页┃后页┃符号┃ + ┃ ┃ ┃ ┃ v┃ ┃ ┃ ┃ ┃ ┃ ┃ + ┗━━┻━━┻━━┻━━┻━━┻━━┻━━┻━━┻━━┻━━┛ Pinyin base input method for Chinese GB2312 characters (`chinese-gb2312'). @@ -984,34 +984,34 @@ method `chinese-py'. Unlike the standard spelling of Pinyin, in this input method all initials and finals are assigned to single keys (see the above table). For instance, the initial \"ch\" is assigned to the key `i', the final -\"iu\" is assigned to the key `q', and tones 1, 2, 3, 4, and $AGaIy(B are +\"iu\" is assigned to the key `q', and tones 1, 2, 3, 4, and 轻声 are assigned to the keys `q', `w', `e', `r', `t' respectively. \\ To input one-letter words, you type 4 keys, the first two for the Pinyin of the letter, next one for tone, and the last one is always a -quote ('). For instance, \"vsq'\" input $AVP(B. Exceptions are these +quote ('). For instance, \"vsq'\" input 中. Exceptions are these letters. You can input them just by typing a single key. - Character: $A04(B $A2;(B $A4N(B $A5D(B $A6~(B $A7"(B $A8v(B $A:M(B $A3v(B $A<0(B $A?I(B $AAK(B $AC;(B + Character: 按 不 次 的 二 发 个 和 出 及 可 了 没 Key: a b c d e f g h i j k l m - Character: $ADc(B $AE7(B $AF,(B $AF_(B $AHK(B $AH}(B $AK{(B $AJG(B $AWE(B $ANR(B $AP!(B $AR;(B $ATZ(B + Character: ä½  欧 片 七 人 三 他 是 着 我 小 一 在 Key: n o p q r s t u v w x y z To input two-letter words, you have two ways. One way is to type 4 keys, two for the first Pinyin, two for the second Pinyin. For -instance, \"vsgo\" inputs $AVP9z(B. Another way is to type 3 keys: 2 +instance, \"vsgo\" inputs 中国. Another way is to type 3 keys: 2 initials of two letters, and quote ('). For instance, \"vg'\" also -inputs $AVP9z(B. +inputs 中国. To input three-letter words, you type 4 keys: initials of three -letters, and the last is quote ('). For instance, \"bjy'2\" inputs $A11(B -$A>)Q<(B (the last `2' is to select one of the candidates). +letters, and the last is quote ('). For instance, \"bjy'2\" inputs 北 +京鸭 (the last `2' is to select one of the candidates). To input words of more than three letters, you type 4 keys, initials of the first three letters and the last letter. For instance, -\"bjdt\" inputs $A11>)5gJSL((B. +\"bjdt\" inputs 北京电视台. To input symbols and punctuation, type `/' followed by one of `a' to `z', then select one of the candidates.")) @@ -1058,7 +1058,7 @@ To input symbols and punctuation, type `/' followed by one of `a' to ;; which the file is converted have no Big5 equivalent. Go ;; through and delete them. (goto-char pos) - (while (search-forward "$(0!{(B" nil t) + (while (search-forward "□" nil t) (delete-char -1)) ;; Uppercase keys in dictionary need to be downcased. Backslashes ;; at the beginning of keys need to be turned into double @@ -1082,31 +1082,31 @@ To input symbols and punctuation, type `/' followed by one of `a' to (defun ctlau-gb-converter (dicbuf name title) (ctlau-converter dicbuf name title -"$A::WVJdHk!KAuN}OiJ=TARt!K(B +"汉字输入∷刘锡祥式粤音∷ - $AAuN}OiJ=TASoW"Rt7=08(B + 刘锡祥式粤语注音方案 Sidney Lau's Cantonese transcription scheme as described in his book \"Elementary Cantonese\", The Government Printer, Hong Kong, 1972. - This file was prepared by Fung Fung Lee ($A@n7c7e(B). + This file was prepared by Fung Fung Lee (李枫峰). Originally converted from CTCPS3.tit Last modified: June 2, 1993. Some infrequent GB characters are accessed by typing \\, followed by - the Cantonese romanization of the respective radical ($A2?JW(B).")) + the Cantonese romanization of the respective radical (部首).")) (defun ctlau-b5-converter (dicbuf name title) (ctlau-converter dicbuf name title -"$(0KH)tTT&,!(N,Tg>A*#Gn5x!((B +"漢字輸入:劉錫祥式粵音: - $(0N,Tg>A*#GnM$0D5x'J7{(B + 劉錫祥式粵語注音方案 Sidney Lau's Cantonese transcription scheme as described in his book \"Elementary Cantonese\", The Government Printer, Hong Kong, 1972. - This file was prepared by Fung Fung Lee ($(0,XFS76(B). + This file was prepared by Fung Fung Lee (李楓峰). Originally converted from CTCPS3.tit Last modified: June 2, 1993. Some infrequent characters are accessed by typing \\, followed by - the Cantonese romanization of the respective radical ($(0?f5}(B).")) + the Cantonese romanization of the respective radical (部首).")) (declare-function dos-8+3-filename "dos-fns.el" (filename)) diff --git a/lisp/language/japan-util.el b/lisp/language/japan-util.el index fd27ae220bd..5d6f5374071 100644 --- a/lisp/language/japan-util.el +++ b/lisp/language/japan-util.el @@ -1,4 +1,4 @@ -;;; japan-util.el --- utilities for Japanese -*- coding: iso-2022-7bit; -*- +;;; japan-util.el --- utilities for Japanese ;; Copyright (C) 2001-2019 Free Software Foundation, Inc. ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, @@ -37,28 +37,28 @@ (use-cjk-char-width-table 'ja_JP)) (defconst japanese-kana-table - '((?$B$"(B ?$B%"(B ?(I1(B) (?$B$$(B ?$B%$(B ?(I2(B) (?$B$&(B ?$B%&(B ?(I3(B) (?$B$((B ?$B%((B ?(I4(B) (?$B$*(B ?$B%*(B ?(I5(B) - (?$B$+(B ?$B%+(B ?(I6(B) (?$B$-(B ?$B%-(B ?(I7(B) (?$B$/(B ?$B%/(B ?(I8(B) (?$B$1(B ?$B%1(B ?(I9(B) (?$B$3(B ?$B%3(B ?(I:(B) - (?$B$5(B ?$B%5(B ?(I;(B) (?$B$7(B ?$B%7(B ?(I<(B) (?$B$9(B ?$B%9(B ?(I=(B) (?$B$;(B ?$B%;(B ?(I>(B) (?$B$=(B ?$B%=(B ?(I?(B) - (?$B$?(B ?$B%?(B ?(I@(B) (?$B$A(B ?$B%A(B ?(IA(B) (?$B$D(B ?$B%D(B ?(IB(B) (?$B$F(B ?$B%F(B ?(IC(B) (?$B$H(B ?$B%H(B ?(ID(B) - (?$B$J(B ?$B%J(B ?(IE(B) (?$B$K(B ?$B%K(B ?(IF(B) (?$B$L(B ?$B%L(B ?(IG(B) (?$B$M(B ?$B%M(B ?(IH(B) (?$B$N(B ?$B%N(B ?(II(B) - (?$B$O(B ?$B%O(B ?(IJ(B) (?$B$R(B ?$B%R(B ?(IK(B) (?$B$U(B ?$B%U(B ?(IL(B) (?$B$X(B ?$B%X(B ?(IM(B) (?$B$[(B ?$B%[(B ?(IN(B) - (?$B$^(B ?$B%^(B ?(IO(B) (?$B$_(B ?$B%_(B ?(IP(B) (?$B$`(B ?$B%`(B ?(IQ(B) (?$B$a(B ?$B%a(B ?(IR(B) (?$B$b(B ?$B%b(B ?(IS(B) - (?$B$d(B ?$B%d(B ?(IT(B) (?$B$f(B ?$B%f(B ?(IU(B) (?$B$h(B ?$B%h(B ?(IV(B) - (?$B$i(B ?$B%i(B ?(IW(B) (?$B$j(B ?$B%j(B ?(IX(B) (?$B$k(B ?$B%k(B ?(IY(B) (?$B$l(B ?$B%l(B ?(IZ(B) (?$B$m(B ?$B%m(B ?(I[(B) - (?$B$o(B ?$B%o(B ?(I\(B) (?$B$p(B ?$B%p(B "(I2(B") (?$B$q(B ?$B%q(B "(I4(B") (?$B$r(B ?$B%r(B ?(I&(B) - (?$B$s(B ?$B%s(B ?(I](B) - (?$B$,(B ?$B%,(B "(I6^(B") (?$B$.(B ?$B%.(B "(I7^(B") (?$B$0(B ?$B%0(B "(I8^(B") (?$B$2(B ?$B%2(B "(I9^(B") (?$B$4(B ?$B%4(B "(I:^(B") - (?$B$6(B ?$B%6(B "(I;^(B") (?$B$8(B ?$B%8(B "(I<^(B") (?$B$:(B ?$B%:(B "(I=^(B") (?$B$<(B ?$B%<(B "(I>^(B") (?$B$>(B ?$B%>(B "(I?^(B") - (?$B$@(B ?$B%@(B "(I@^(B") (?$B$B(B ?$B%B(B "(IA^(B") (?$B$E(B ?$B%E(B "(IB^(B") (?$B$G(B ?$B%G(B "(IC^(B") (?$B$I(B ?$B%I(B "(ID^(B") - (?$B$P(B ?$B%P(B "(IJ^(B") (?$B$S(B ?$B%S(B "(IK^(B") (?$B$V(B ?$B%V(B "(IL^(B") (?$B$Y(B ?$B%Y(B "(IM^(B") (?$B$\(B ?$B%\(B "(IN^(B") - (?$B$Q(B ?$B%Q(B "(IJ_(B") (?$B$T(B ?$B%T(B "(IK_(B") (?$B$W(B ?$B%W(B "(IL_(B") (?$B$Z(B ?$B%Z(B "(IM_(B") (?$B$](B ?$B%](B "(IN_(B") - (?$B$!(B ?$B%!(B ?(I'(B) (?$B$#(B ?$B%#(B ?(I((B) (?$B$%(B ?$B%%(B ?(I)(B) (?$B$'(B ?$B%'(B ?(I*(B) (?$B$)(B ?$B%)(B ?(I+(B) - (?$B$C(B ?$B%C(B ?(I/(B) - (?$B$c(B ?$B%c(B ?(I,(B) (?$B$e(B ?$B%e(B ?(I-(B) (?$B$g(B ?$B%g(B ?(I.(B) - (?$B$n(B ?$B%n(B "(I\(B") - (?$B!5(B ?$B!3(B) (?$B!6(B ?$B!4(B) - ("$B$&!+(B" ?$B%t(B "(I3^(B") (nil ?$B%u(B "(I6(B") (nil ?$B%v(B "(I9(B")) + '((?あ ?ア ?ï½±) (?い ?イ ?ï½²) (?う ?ウ ?ï½³) (?え ?エ ?ï½´) (?お ?オ ?ï½µ) + (?か ?カ ?カ) (?き ?キ ?ï½·) (?く ?ク ?ク) (?け ?ケ ?ï½¹) (?こ ?コ ?コ) + (?さ ?サ ?ï½») (?し ?シ ?ï½¼) (?す ?ス ?ï½½) (?せ ?セ ?ï½¾) (?そ ?ソ ?ソ) + (?た ?タ ?タ) (?ち ?チ ?チ) (?つ ?ツ ?ツ) (?て ?テ ?テ) (?と ?ト ?ト) + (?な ?ナ ?ナ) (?に ?ニ ?ニ) (?ぬ ?ヌ ?ヌ) (?ね ?ネ ?ネ) (?の ?ノ ?ノ) + (?は ?ハ ?ハ) (?ひ ?ヒ ?ヒ) (?ふ ?フ ?フ) (?へ ?ヘ ?ヘ) (?ほ ?ホ ?ホ) + (?ま ?マ ?マ) (?み ?ミ ?ミ) (?む ?ム ?ム) (?め ?メ ?メ) (?も ?モ ?モ) + (?や ?ヤ ?ヤ) (?ゆ ?ユ ?ユ) (?よ ?ヨ ?ヨ) + (?ら ?ラ ?ラ) (?り ?リ ?リ) (?る ?ル ?ル) (?れ ?レ ?レ) (?ろ ?ロ ?ロ) + (?わ ?ワ ?ワ) (?ゐ ?ヰ "ï½²") (?ゑ ?ヱ "ï½´") (?を ?ヲ ?ヲ) + (?ん ?ン ?ン) + (?が ?ガ "ガ") (?ぎ ?ギ "ギ") (?ぐ ?グ "グ") (?げ ?ゲ "ゲ") (?ご ?ゴ "ゴ") + (?ざ ?ザ "ザ") (?じ ?ジ "ジ") (?ず ?ズ "ズ") (?ぜ ?ゼ "ゼ") (?ぞ ?ゾ "ゾ") + (?だ ?ダ "ダ") (?ぢ ?ヂ "ヂ") (?づ ?ヅ "ヅ") (?で ?デ "デ") (?ど ?ド "ド") + (?ば ?バ "バ") (?び ?ビ "ビ") (?ぶ ?ブ "ブ") (?べ ?ベ "ベ") (?ぼ ?ボ "ボ") + (?ぱ ?パ "パ") (?ぴ ?ピ "ピ") (?ぷ ?プ "プ") (?ぺ ?ペ "ペ") (?ぽ ?ポ "ポ") + (?ぁ ?ァ ?ァ) (?ぃ ?ィ ?ィ) (?ぅ ?ゥ ?ゥ) (?ぇ ?ェ ?ェ) (?ぉ ?ォ ?ォ) + (?っ ?ッ ?ッ) + (?ゃ ?ャ ?ャ) (?ゅ ?ュ ?ï½­) (?ょ ?ョ ?ï½®) + (?ゎ ?ヮ "ワ") + (?ゝ ?ヽ) (?ゞ ?ヾ) + ("う゛" ?ヴ "ヴ") (nil ?ヵ "カ") (nil ?ヶ "ï½¹")) "Japanese JISX0208 Kana character table. Each element is of the form (HIRAGANA KATAKANA HANKAKU-KATAKANA), where HIRAGANA and KATAKANA belong to `japanese-jisx0208', @@ -98,15 +98,15 @@ HANKAKU-KATAKANA belongs to `japanese-jisx0201-kana'.") (put-char-code-property jisx0201 'jisx0208 katakana))))) (defconst japanese-symbol-table - '((?\$B!!(B ?\ ) (?$B!$(B ?, ?(I$(B) (?$B!%(B ?. ?(I!(B) (?$B!"(B ?, ?(I$(B) (?$B!#(B ?. ?(I!(B) (?$B!&(B nil ?(I%(B) - (?$B!'(B ?:) (?$B!((B ?\;) (?$B!)(B ??) (?$B!*(B ?!) (?$B!+(B nil ?(I^(B) (?$B!,(B nil ?(I_(B) - (?$B!-(B ?') (?$B!.(B ?`) (?$B!0(B ?^) (?$B!2(B ?_) (?$B!<(B ?- ?(I0(B) (?$B!=(B ?-) (?$B!>(B ?-) - (?$B!?(B ?/) (?$B!@(B ?\\) (?$B!A(B ?~) (?$B!C(B ?|) (?$B!F(B ?`) (?$B!G(B ?') (?$B!H(B ?\") (?$B!I(B ?\") - (?\$B!J(B ?\() (?\$B!K(B ?\)) (?\$B!N(B ?\[) (?\$B!O(B ?\]) (?\$B!P(B ?{) (?\$B!Q(B ?}) - (?$B!R(B ?<) (?$B!S(B ?>) (?\$B!V(B nil ?\(I"(B) (?\$B!W(B nil ?\(I#(B) - (?$B!\(B ?+) (?$B!](B ?-) (?$B!a(B ?=) (?$B!c(B ?<) (?$B!d(B ?>) - (?$B!l(B ?') (?$B!m(B ?\") (?$B!o(B ?\\) (?$B!p(B ?$) (?$B!s(B ?%) (?$B!t(B ?#) (?$B!u(B ?&) (?$B!v(B ?*) - (?$B!w(B ?@) + '((?\  ?\ ) (?, ?, ?、) (?. ?. ?。) (?、 ?, ?、) (?。 ?. ?。) (?・ nil ?ï½¥) + (?: ?:) (?; ?\;) (?? ??) (?! ?!) (?゛ nil ?゙) (?゜ nil ?゚) + (?´ ?') (?` ?`) (?ï¼¾ ?^) (?_ ?_) (?ー ?- ?ï½°) (?— ?-) (?‐ ?-) + (?/ ?/) (?ï¼¼ ?\\) (?〜 ?~) (?| ?|) (?‘ ?`) (?’ ?') (?“ ?\") (?” ?\") + (?\( ?\() (?\) ?\)) (?\ï¼» ?\[) (?\ï¼½ ?\]) (?\{ ?{) (?\} ?}) + (?〈 ?<) (?〉 ?>) (?\「 nil ?\ï½¢) (?\」 nil ?\ï½£) + (?+ ?+) (?− ?-) (?= ?=) (?< ?<) (?> ?>) + (?′ ?') (?″ ?\") (?ï¿¥ ?\\) (?$ ?$) (?% ?%) (?# ?#) (?& ?&) (?* ?*) + (?ï¼  ?@) ;; cp932-2-byte (#x2015 ?-) (#xFF5E ?~) (#xFF0D ?-)) "Japanese JISX0208 and CP932 symbol character table. @@ -134,18 +134,18 @@ and HANKAKU belongs to `japanese-jisx0201-kana'.") (put-char-code-property jisx0201 'jisx0208 jisx0208)))))) (defconst japanese-alpha-numeric-table - '((?$B#0(B . ?0) (?$B#1(B . ?1) (?$B#2(B . ?2) (?$B#3(B . ?3) (?$B#4(B . ?4) - (?$B#5(B . ?5) (?$B#6(B . ?6) (?$B#7(B . ?7) (?$B#8(B . ?8) (?$B#9(B . ?9) - (?$B#A(B . ?A) (?$B#B(B . ?B) (?$B#C(B . ?C) (?$B#D(B . ?D) (?$B#E(B . ?E) - (?$B#F(B . ?F) (?$B#G(B . ?G) (?$B#H(B . ?H) (?$B#I(B . ?I) (?$B#J(B . ?J) - (?$B#K(B . ?K) (?$B#L(B . ?L) (?$B#M(B . ?M) (?$B#N(B . ?N) (?$B#O(B . ?O) - (?$B#P(B . ?P) (?$B#Q(B . ?Q) (?$B#R(B . ?R) (?$B#S(B . ?S) (?$B#T(B . ?T) - (?$B#U(B . ?U) (?$B#V(B . ?V) (?$B#W(B . ?W) (?$B#X(B . ?X) (?$B#Y(B . ?Y) (?$B#Z(B . ?Z) - (?$B#a(B . ?a) (?$B#b(B . ?b) (?$B#c(B . ?c) (?$B#d(B . ?d) (?$B#e(B . ?e) - (?$B#f(B . ?f) (?$B#g(B . ?g) (?$B#h(B . ?h) (?$B#i(B . ?i) (?$B#j(B . ?j) - (?$B#k(B . ?k) (?$B#l(B . ?l) (?$B#m(B . ?m) (?$B#n(B . ?n) (?$B#o(B . ?o) - (?$B#p(B . ?p) (?$B#q(B . ?q) (?$B#r(B . ?r) (?$B#s(B . ?s) (?$B#t(B . ?t) - (?$B#u(B . ?u) (?$B#v(B . ?v) (?$B#w(B . ?w) (?$B#x(B . ?x) (?$B#y(B . ?y) (?$B#z(B . ?z)) + '((?0 . ?0) (?1 . ?1) (?2 . ?2) (?3 . ?3) (?4 . ?4) + (?5 . ?5) (?6 . ?6) (?7 . ?7) (?8 . ?8) (?9 . ?9) + (?A . ?A) (?ï¼¢ . ?B) (?ï¼£ . ?C) (?D . ?D) (?ï¼¥ . ?E) + (?F . ?F) (?G . ?G) (?H . ?H) (?I . ?I) (?J . ?J) + (?K . ?K) (?L . ?L) (?ï¼­ . ?M) (?ï¼® . ?N) (?O . ?O) + (?ï¼° . ?P) (?ï¼± . ?Q) (?ï¼² . ?R) (?ï¼³ . ?S) (?ï¼´ . ?T) + (?ï¼µ . ?U) (?V . ?V) (?ï¼· . ?W) (?X . ?X) (?ï¼¹ . ?Y) (?Z . ?Z) + (?a . ?a) (?b . ?b) (?c . ?c) (?d . ?d) (?e . ?e) + (?f . ?f) (?g . ?g) (?h . ?h) (?i . ?i) (?j . ?j) + (?k . ?k) (?l . ?l) (?m . ?m) (?n . ?n) (?o . ?o) + (?p . ?p) (?q . ?q) (?r . ?r) (?s . ?s) (?t . ?t) + (?u . ?u) (?v . ?v) (?w . ?w) (?x . ?x) (?y . ?y) (?z . ?z)) "Japanese JISX0208 alpha numeric character table. Each element is of the form (ALPHA-NUMERIC . ASCII), where ALPHA-NUMERIC belongs to `japanese-jisx0208', ASCII belongs to `ascii'.") diff --git a/lisp/language/japanese.el b/lisp/language/japanese.el index 9c41a26f36c..fabeab89c12 100644 --- a/lisp/language/japanese.el +++ b/lisp/language/japanese.el @@ -1,4 +1,4 @@ -;;; japanese.el --- support for Japanese -*- coding: iso-2022-7bit -*- +;;; japanese.el --- support for Japanese ;; Copyright (C) 1997, 2001-2019 Free Software Foundation, Inc. ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, @@ -210,7 +210,7 @@ eucJP-ms is defined in ." iso-2022-jp-2) (input-method . "japanese") (features japan-util) - (sample-text . "Japanese ($BF|K\8l(B) $B$3$s$K$A$O(B, (I:]FAJ(B") + (sample-text . "Japanese (日本語) こんにちは, コンニチハ") (documentation . t))) (let ((map diff --git a/lisp/leim/quail/cyril-jis.el b/lisp/leim/quail/cyril-jis.el index 0214a51d74e..67271ab3c47 100644 --- a/lisp/leim/quail/cyril-jis.el +++ b/lisp/leim/quail/cyril-jis.el @@ -32,114 +32,110 @@ ;;; Code: (quail-define-package - "cyrillic-jis-russian" "Cyrillic" "$B'('+(B" nil - "$B'+'8'5','&'/(B keyboard layout same as JCUKEN (JIS X0208.1983 encoding)" + "cyrillic-jis-russian" "Cyrillic" "ЖЙ" nil + "ЙЦУКЕН keyboard layout same as JCUKEN (JIS X0208.1983 encoding)" nil t t t t nil nil nil nil nil t) -;; 1! 2@ 3# 4" 5: 6, 7. 8* 9( 0) -_ =+ ,L!(B -;; ,L9(B ,LF(B ,LC(B ,L:(B ,L5(B ,L=(B ,L3(B ,LH(B ,LI(B ,L7(B ,LE(B ,Lj(B -;; ,LD(B ,LK(B ,L2(B ,L0(B ,L?(B ,L@(B ,L>(B ,L;(B ,L4(B ,L6(B ,LM(B -;; ,LO(B ,LG(B ,LA(B ,L<(B ,L8(B ,LB(B ,LL(B ,L1(B ,LN(B /? +;; 1! 2@ 3# 4" 5: 6, 7. 8* 9( 0) -_ =+ Ё +;; Й Ц У К Е Н Г Ш Щ З Ð¥ ъ +;; Ф Ы В А П Р О Л Д Ж Э +;; Я Ч С М И Т Ь Б Ю /? (quail-define-rules - ("1" ?$B#1(B) - ("2" ?$B#2(B) - ("3" ?$B#3(B) - ("4" ?$B#4(B) - ("5" ?$B#5(B) - ("6" ?$B#6(B) - ("7" ?$B#7(B) - ("8" ?$B#8(B) - ("9" ?$B#9(B) - ("0" ?$B#0(B) - ("-" ?$B!](B) - ("=" ?$B!a(B) - ("`" ?$B'W(B) - ("q" ?$B'[(B) - ("w" ?$B'h(B) - ("e" ?$B'e(B) - ("r" ?$B'\(B) - ("t" ?$B'V(B) - ("y" ?$B'_(B) - ("u" ?$B'T(B) - ("i" ?$B'j(B) - ("o" ?$B'k(B) - ("p" ?$B'Y(B) - ("[" ?$B'g(B) - ("]" ?$B'l(B) - ("a" ?$B'f(B) - ("s" ?$B'm(B) - ("d" ?$B'S(B) - ("f" ?$B'Q(B) - ("g" ?$B'a(B) - ("h" ?$B'b(B) - ("j" ?$B'`(B) - ("k" ?$B'](B) - ("l" ?$B'U(B) - (";" ?$B'X(B) - ("'" ?$B'o(B) - ("\\" ?$B!@(B) - ("z" ?$B'q(B) - ("x" ?$B'i(B) - ("c" ?$B'c(B) - ("v" ?$B'^(B) - ("b" ?$B'Z(B) - ("n" ?$B'd(B) - ("m" ?$B'n(B) - ("," ?$B'R(B) - ("." ?$B'p(B) - ("/" ?$B!?(B) + ("1" ?1) + ("2" ?2) + ("3" ?3) + ("4" ?4) + ("5" ?5) + ("6" ?6) + ("7" ?7) + ("8" ?8) + ("9" ?9) + ("0" ?0) + ("-" ?−) + ("=" ?=) + ("`" ?ё) + ("q" ?й) + ("w" ?ц) + ("e" ?у) + ("r" ?к) + ("t" ?е) + ("y" ?н) + ("u" ?г) + ("i" ?ш) + ("o" ?щ) + ("p" ?з) + ("[" ?х) + ("]" ?ъ) + ("a" ?ф) + ("s" ?ы) + ("d" ?в) + ("f" ?а) + ("g" ?п) + ("h" ?р) + ("j" ?о) + ("k" ?л) + ("l" ?д) + (";" ?ж) + ("'" ?э) + ("\\" ?ï¼¼) + ("z" ?я) + ("x" ?ч) + ("c" ?с) + ("v" ?м) + ("b" ?и) + ("n" ?т) + ("m" ?ь) + ("," ?б) + ("." ?ю) + ("/" ?/) - ("!" ?$B!*(B) - ("@" ?$B!w(B) - ("#" ?$B!t(B) - ("$" ?$B!I(B) - ("%" ?$B!'(B) - ("^" ?$B!$(B) - ("&" ?$B!%(B) - ("*" ?$B!v(B) - ("(" ?$B!J(B) - (")" ?$B!K(B) - ("_" ?$B!2(B) - ("+" ?$B!\(B) - ("~" ?$B''(B) - ("Q" ?$B'+(B) - ("W" ?$B'8(B) - ("E" ?$B'5(B) - ("R" ?$B',(B) - ("T" ?$B'&(B) - ("Y" ?$B'/(B) - ("U" ?$B'$(B) - ("I" ?$B':(B) - ("O" ?$B';(B) - ("P" ?$B')(B) - ("{" ?$B'7(B) - ("}" ?$B'<(B) - ("A" ?$B'6(B) - ("S" ?$B'=(B) - ("D" ?$B'#(B) - ("F" ?$B'!(B) - ("G" ?$B'1(B) - ("H" ?$B'2(B) - ("J" ?$B'0(B) - ("K" ?$B'-(B) - ("L" ?$B'%(B) - (":" ?$B'((B) - ("\"" ?$B'?(B) - ("|" ?$B!C(B) - ("Z" ?$B'A(B) - ("X" ?$B'9(B) - ("C" ?$B'3(B) - ("V" ?$B'.(B) - ("B" ?$B'*(B) - ("N" ?$B'4(B) - ("M" ?$B'>(B) - ("<" ?$B'"(B) - (">" ?$B'@(B) - ("?" ?$B!)(B)) - -;; Local Variables: -;; coding: iso-2022-7bit -;; End: + ("!" ?!) + ("@" ?ï¼ ) + ("#" ?#) + ("$" ?”) + ("%" ?:) + ("^" ?,) + ("&" ?.) + ("*" ?*) + ("(" ?() + (")" ?)) + ("_" ?_) + ("+" ?+) + ("~" ?Ё) + ("Q" ?Й) + ("W" ?Ц) + ("E" ?У) + ("R" ?К) + ("T" ?Е) + ("Y" ?Н) + ("U" ?Г) + ("I" ?Ш) + ("O" ?Щ) + ("P" ?З) + ("{" ?Ð¥) + ("}" ?Ъ) + ("A" ?Ф) + ("S" ?Ы) + ("D" ?В) + ("F" ?А) + ("G" ?П) + ("H" ?Р) + ("J" ?О) + ("K" ?Л) + ("L" ?Д) + (":" ?Ж) + ("\"" ?Э) + ("|" ?|) + ("Z" ?Я) + ("X" ?Ч) + ("C" ?С) + ("V" ?М) + ("B" ?И) + ("N" ?Т) + ("M" ?Ь) + ("<" ?Б) + (">" ?Ю) + ("?" ??)) ;;; cyril-jis.el ends here diff --git a/lisp/leim/quail/hanja-jis.el b/lisp/leim/quail/hanja-jis.el index 79730b816ef..6f753259456 100644 --- a/lisp/leim/quail/hanja-jis.el +++ b/lisp/leim/quail/hanja-jis.el @@ -1,4 +1,4 @@ -;;; hanja-jis.el --- Quail package for inputting Korean Hanja (JISX0208) -*-coding: iso-2022-7bit;-*- +;;; hanja-jis.el --- Quail package for inputting Korean Hanja (JISX0208) ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, ;; 2006, 2007, 2008, 2009, 2010, 2011 @@ -29,499 +29,499 @@ (require 'quail) (quail-define-package - "korean-hanja-jis" "Korean" "$B4A(B2" t - "2$(C9z=D(BJIS$B4A;z(B: $B3:aD$(CGO4B(B $B4A;z$(C@G(B $B1$$(C@;(B $(CGQ1[(B2$(C9z$B<0$(C@87N(B $B8F=P$(CGO?)(B $BA*Z$(B" + "korean-hanja-jis" "Korean" "æ¼¢2" t + "2벌식JIS漢字: 該當하는 漢字의 韻을 한글2벌式으로 呼出하여 選擇" nil nil nil nil nil nil t) (quail-define-rules - ("rk" "$B1]2>2@2A2B2C2D2E2G2H2K2M2N2Q2T2W2X2`2o3976P$PqQ+RjS'[H[I`]aPcwgWhSkEkhlKlhmF(B") - ("rkr" "$B3F3J3L3P3Q3S3U5Q5S9oH9RJS>T=WmXBZ([d]W`Bk4l;r((B") - ("rks" "$B064%4&4)4/43444B4G4H4J4N4V:&:):1?{U!XLYc[8[K[Y[e`CarcCecgek]s*su(B") - ("rkf" "$B2p3e3i3k3l7GP"[+brcqf;iypbpv(B") - ("rka" "$B4*4.46484:4;4E4F4U7g848::0QaT,T0VHY"Y~\m]>^@aQbWeHiTm^nGoHs|(B") - ("rkq" "$B2!389C9gL(R:b5fpo^(B") - ("rkd" "$B2,3`6/607D9/959>9G9K9P9V9]9_9dFzP6Q,S3U*V>XMY,[:[|aEbee,eZf5i(jvlora(B") - ("ro" "$B2B2U2p2r2~3'3)3+3,3.313435383;8DP"P$PCQsXAXhYb\4^taNb5k;(B") - ("ror" "$B5RS=(B") - ("rod" "$B9#99dkf=f>o3(B") - ("ri" "$B2X(B") - ("rir" "$BnS(B") - ("rj" "$B5n5o5p5q5r5t5w5x3J3V3W7b7cPqYH\|g-h#k.ojqnr/rps&(B") - ("rus" "$B3_3o7x8#8$8(8*8+8/G{KzLzPWVtWz[G`Fa+d*f0l$s$(B") - ("ruf" "$B5K7@7h7i7k7mLRQSY1YIYMe~r!(B") - ("rua" "$B3y7s8,XDY:]>d/heni(B") - ("ruq" "$B3fKKXDnw(B") - ("rud" "$B5~6%6*6-6@6C797B7D7I7J7P7T7U7Y7Z7[7_9.999<9E9L:"P7Q?QDQHQmR&R'S+WMX]\{_i`{a9a[b~e%e4e;fVfzh3krmKmtpopts](B") - ("rP" "$B2|3#3&3,5(787<7@7K7L7N7O7Q7R7W7\:fFOU|W@X)[G^da8b#c4d"e;eki)kSl0r!s1(B") - ("rh" "$B6l8E8G8H8I8K8N8O8S8T8V8Z8[8\8]9F9M9Q9b9i9p;)4C4I4P4Q4S4X4[4\6z?{P%QN]Y^ub9eEeGf%k7oQopsA(B") - ("rhkf" "$B3g3hH&I0Qi[XfZ(B") - ("rhkd" "$B3H6)688w9-9[9\T]W"Z2[%[&[Z^+bhc~d!e&e-fykToJ(B") - ("rho" "$B3]757SS%XyYL[Jjh(B") - ("rhl" "$B2q2t2u2x2z2}3!P*PzTUW_XC\G`skK(B") - ("rhlr" "$Bg2qE(B") - ("rhld" "$B9(9I9O9l^3mDo)(B") - ("ry" "$B3I3P3S3z5j6#6+6,65666:6>8r8s9'9*9;9J9Y9Z;->7R{UHYxZJ\r_$`Db)c#c\fKg1i`m]n[q-qaqb(B") - ("rn" "$B11192$2%2*3C555V5W5X5_5a5d5e5f5l5q6e6f6g6h6i6j6k6m6n6o6p6q7)8{8}9$949=9B9XC!G#H7KUP}QJR"R?RkSRU=UBUdVOV}V~WaW|XvY+Yl[M[N]?]X]\a.aLbZc`d@gOgQgqhgiUjMjdk2kMkpmsn)n9nlplq'qDq\r-szs}(B") - ("rnr" "$B5E5F5G6I9m9qSxT"[xdxkqlr(B") - ("rns" "$B7/727374[ub0b1c[f:je(B") - ("rnf" "$B6~7!7"KYPcRPVA(B") - ("rnd" "$B5\5]5gcVm;(B") - ("rnjs" "$B4+4,5s7q7t7w7}7~8"R%R0RKT!X+[{\^bGe:"DPTwYdYw\\b#bkcad}eYj_lbm|oaqDr-(B") - ("rbs" "$B556Q6]d0nbsKs}(B") - ("rbf" "$B5L(B") - ("rmr" "$B2D3W6K7`7a7d9nP4QnUqV![yh{n<(B") - ("rms" "$B6O6P6R6T6Z6\6`6a:,Xi\]`wbbhAk3ncq<(B") - ("rmf" "$B7@k?(B") - ("rma" "$B6S6W6X6Y6^6_6b8i:#SaZ"jPsX(B") - ("rmq" "$B075Z5^5b5h5i5kV)(B") - ("rmd" "$B919NOJOKQ>Wqbb(B") - ("rl" "$B0k4k4l4o4p4q4s4t4v4w4z4{4|4}4~5!5$5%5&5'5*5-5/5253585;5=5@5o778J8k8p:j:k:l<(B6H)IIL'P4PXQCQpSOSZT-TtV?W1YVZ\Zz[.[9[L[w\H]c]f]k^?aCc2cEe:f3f4fMk+k1kxl1leq@qVqgr?sJ(B") - ("rlr" "$B5J(B") - ("rls" "$B6[(B") - ("rlf" "$B5H5K5MPKYI(B") - ("rla" "$B6b(B") - ("Rlr" "$B5J(B") - ("sk" "$BF`FaFqQ5U1XoY.YnUP(B") - ("su" "$B=wYRsUWVfW8`obug*gBqN(B") - ("shd" "$BG;G?G@Q/(B") - ("shk" "$B<6(B") - ("shl" "$BG:G>X=g*q/(B") - ("sy" "$BE.G"U>Yz\vo?o_r)(B") - ("sn" "$BfU(B") - ("sns" "$BUD(B") - ("snf" "$BRefmkD(B") - ("sb" "$BI3WY`=nf(B") - ("sbr" "$BWYjHjI(B") - ("smd" "$BG=(B") - ("sl" "$BE%FtG)G*Wb_>_Pg7(B") - ("slr" "$BE.F?(B") - ("slf" "$BFtWbZc(B") - ("sla" "$BDBWl(B") - ("ek" "$BB?BgCcTl(B") - ("eks" "$B1_C"C0C1C4C6C;Cgp0(B") - ("ejr" "$BFAW\(B") - ("eh" "$B0p?^D)D7EHEIEKELEOEQERESETEUEYE]EaEgEhEiEmEnEpEqEsExE~F(F+F3F:F;R[T&V:Y[Y\YqZ.[7[m\*]%]9^9^mbQcKe6eBeCe{h8h9k/lum%mmokpkqC(B") - ("ehr" "$B<3FBFDFEFFFGFHFI`1`9`We{l&qqsb(B") - ("ehs" "$B=cFUFWFXFYFZF[F\Z}_wa&n,q+(B") - ("ehf" "$BFMF\Rt[S(B") - ("ehd" "$B4R6ME_E`ElEoF!F/F0F1F4F6F7F8F9F\[_``8`dqQ(B") - ("fks" "$BMpMqMsMvP,UO]3_Q_s`%k&oVolsB(B") - ("fkf" "$BQoSIT?T@dzme(B") - ("fka" "$BMrMtMuMwQ0U:Z0]4dWeqe|k"k5nN(B") - ("fkq" "$B@"O9YG[VgDgEoM(B") - ("fkd" "$BBlBmO-O/O1O2O5O:[-`f`gh>j'lplt(B") - ("fo" "$BPTWR(B") - ("fod" "$BNd(B") - ("fir" "$BN+N,Z6a@(B") - ("fid" "$BL:N+NNBNCNHNINJNLPoQ@QZSJdmdnjllpltmQmRr4(B") - ("fu" "$B023BEWK{N7N8N9NeNoO$O?Q6R/S:W*[q]-`4`5avbjdze8eFg0gFh-i(B") - ("fyd" "$BN5N6iD(B") - ("fn" "$BP>pU(B") - ("fma" "$BQ[W)XnhR(B") - ("fmd" "$B0=I)KSN?NGNMVE\AhQi3(B") - ("fl" "$B3=8qA8C,DsKiMxMyMzM{M|M}M~N!N"N#N$N%NRNoP]P^X&Xm_"`4`5crdaf@h.h=imjBkJl>nZqkr5rEsW(B") - ("fls" "$BNUNYNZN[RgX'iBm8m9nC(B") - ("fla" "$BNSNTNVNWaepC(B") - ("flq" "$B3^N)N3g~(B") - ("ak" "$BGMGOK`KaKbKcSWU@Vw`uadb{j1j2(B") - ("akr" "$BGyG|KFKkKlLNUki8(B") - ("aks" "$B17HTHUHZJZK|K}K~L!L"OQRDRXV]VoW>W?Xp^`_TbVe\h_jGktm*mNo8q=r#(B") - ("akf" "$BKuKvKwbFcBg}k$p\pi(B") - ("akd" "$BK4K:K;K>LQLVX1f&f(gjh+hOjL?L@LCLDZy\U^rbTh,j&nIsf(B") - ("aP" "$BjV(B") - ("ah" "$B18243}G|InJgJhJiJkJlK9K?KAKEKFKHKlL0L6L7LNLOLSLWU(ZV`S`pa(b&bHcjdwfNfnhOkuqxr|(B") - ("ahr" "$BI$KRKTLZL\Q^[7]teYg|s/(B") - ("ahf" "$BKWL^]G]s(B") - ("ahd" "$BL4LXQOTm[$[/](_Bb^ga(B") - ("ay" "$B1,@&G-I@IAICIDIEJhL/ZbZe^]b?eMg{i8(B") - ("an" "$B@&I5IoIpIqIsJjJlK4K?KEKGL3L5L6L7L8L9LPU(V`W'XcXlYEZ[\>bHeYhOj]kX(B") - ("anr" "$BKAKOK|L[`Tfn(B") - ("ans" "$B2cJ-J8J9JZLHLdLfLgLhPnQfX$XpY_e$(B") - ("anf" "$BJ*L^(B") - ("al" "$B3aFfHxHyH}H~JFL#L$LBLoU;VKW9W=_>_Pdve[i/m?sHsSs`(B") - ("als" "$BIRL1LeV1X>XbZa^#eNf+o\sf(B") - ("alf" "$BL)L*\ikm(B") - ("qkr" "$B9}GmGnGoGqGsGtGuGvGwGzG}JmKPKQP8YsYv\w^p`a`yg.p;qPr0rX(B") - ("qks" "$BHH?H@HBHCHIHJHKHLHRHSHWHXJ1JVJ[YBZ5\Q_/amcme+fvj6k'm*(B") - ("qkf" "$BH-H.H/H0H1H4KVUVX#Y6Y{^_b"b$cAlmq{r1(B") - ("qkd" "$BJoJ|J}K'K,K.K5K7K8KIVIaIcIhJ]JbJcJdJeJnJsJuTHUoUph^jppfse(B") - ("qhr" "$BIzI{I|I}I~J!J"J#J$KMKNKPR6Z=Z>\w]M_Ad9h*hyiui}j`m.mUmVqFrX(B") - ("qhs" "$BK\TqlL(B") - ("qhd" "$B0)HFIuJpJtJvJwJ{K%K)K*K/K1K@^"_bcsdK(B") - ("qn" "$B3x4LlRlgmUn>n]rjrksOsPse(B") - ("qnr" "$BKL(B") - ("qns" "$BBNHRH[J,J.J/J0J1J2J3J4J5J6J7K[K_RfW][C]d]p_9`6a'a=cic|gnlL(B") - ("qnf" "$BITJ&J'J(J)PGWJWgYD[,`Ac1q|sd(B") - ("qnd" "$BC*J+JxJ~K2TDW:boe^(B") - ("qmr" "$BR6(B") - ("ql" "$B7%H[H\H]H^H_HaHbHcHeHfHgHjHkHlHnHpHqHsHtHwHzH{H|I!J(JOP#PlR8SgU&U9U{X`[,\R`Aa]acbNbgc0c>dDdcdue#f1fGg#g$g>hKhoitjkl"l@lAlLl]nAp)pBp[pfqorL(B") - ("qls" "$BIFIKILINIOIPIQLFUMZ/]']R_@eoi@p~r&(B") - ("qld" "$BI9QRQVQ_U2Xaf[qHqU(B") - ("tk" "$B278%:3:6:;:=:>:?:@:p;E;G;H;J;K;L;M;N;U;W;[;`;b;d;e;l;r;t;v;w;{<%<-&>(>0>2>E>M>X>\>]>^>e>o>uAPASAVA[AjAzA|BlBmErF=FKH"MMRVUCURVyV{XS\k]O`.a3fFjakJ@7@8`Ocy(B") - ("tid" "$Bq.(B") - ("tj" "$B5P:T=k=l=n=o=p=q=r=s=v=x=y=z={?p@3@4@>@@@BAMD)L;P0ScTPTfVYY3ZFZGd.e1fTf]fqsUsk(B") - ("tjr" "$B3c<.D@"@]RYSqXRXwYpfcm:oRq#(B") - ("tjd" "$B>J>k@+@-@.@1@9@;@<@?@CX9Zp`Od-fag)(B") - ("tp" "$B:P:Y:{@$@*@G@b@vLcWB^/ih(B") - ("th" "$B037+:i$>%>,>.>/><>?>B>C>F>K>P>R>S>dA:AAABAGAIAJALA]A_AcAgA{B}I%R#SbU?XG[`\f][]{^j_O_va4d,dTg[hvi+i?l!lsmvn:n[nyp>>YAWAwW~[@^DcpgNiOkVo1psr"(B") - ("thkf" "$B:~(B") - ("tho" "$B:?:U:~;&;/^/_S`tbl(B") - ("thl" "$B?h?jTj(B") - ("tn" "$Bs((B") - ("tnf" "$B=Q=RN(WuX|[2(B") - ("tnd" "$B?r?shE(B") - ("tnl" "$BPfPg^C(B") - ("tmf" "$BI(`niMi|(B") - ("tmq" "$B<>=&=,=1_!>#>5>:>g>h>jANFlGhP+QtR4[Fejj$o~(B") - ("tl" "$B0;3A:|;&;H;O;S;T;\;k;m;n;x;{;~<(<,}>~?!?"?#?)?*B)Uf_omHq3(B") - ("tls" "$B:g?-?.?1?5?7?=?@?B?C?E?H?I?U?V?WC$GjH8RqS"UbXFY;Zo_~iglYpur`(B") - ("tlf" "$B<:<<<=(B") - ("dor" "$B1U3[LkLqY/YUf~mCoup'(B") - ("dod" "$BSm]/f"rts@(B") - ("di" "$BYnd`h`hji;oPs4s~(B") - ("did" "$B>\>m>n>w>y>zMHMLMMMNMSM[M\PSTaUPWyZ7ZfZx\k_!_G_laZagaxc:cUjwl*nVqh(B") - ("dj" "$B1w5y5z5{8f8lS0S}S~^Kq,qGrNsw(B") - ("djr" "$B2/21225?M^\z(B") - ("djs" "$B1a8@8AGgI'PpUA_adN(B") - ("djf" "$B]"]1(B") - ("dja" "$B1b1f264`4d8387Q7RLSnV^Vx^;f,ofqd(B") - ("djq" "$B6H(B") - ("dp" "$BWk]P(B") - ("du" "$BFrG!M=M>M?M@MAMBP.]C^.aBe1gMgPh'i1ikl%q1(B") - ("dur" "$B0W0h1V1X5UlWn;pD(B") - ("dP" "$B0e1C1H1L1T4"7X7];yjrr[r\(B") - ("dhf" "$BQ:\Eg,(B") - ("dhd" "$B2'MJTYW+a%a1a~c]j(B") - ("dho" "$B0#3?OARwbdiw(B") - ("dhl" "$B0Z307(VLV[`Pbvi'r>(B") - ("dy" "$B1z3Z6F9x>qD8F+LsMEMIMKMRMTMWMXMZQ'TpU-UKULVRVvWTWUY9YjYz\[\v]H_$`"`vcXc_eeh}j4kon-n3qAs8t!t#t$(B") - ("dyr" "$B?+C+M]M_MaV;^ieUhljs(B") - ("dyd" "$B23B{M&M/M0MCMFMGMOMPMQMVMYP\XJXY\Wa5f`gNill}o0ps(B") - ("dn" "$B0r1&1'1)1*1+2$2%5m6h6r6s6v6w6x6y?uKtL`M$M%M'M+M4M9P2P}R^R_VJ\d]?]XaOb3c;c1?1@Zt]N_pe"fQp(pq(B") - ("dnf" "$B080S1516]5_q(B") - ("dnd" "$B7'M:(B") - ("dnjs" "$B080w1!1`1e1g1n1q1r1s1u3@4j85868;I2QMT$T(U6UcXE^S`)gkiojOkdmWn|ovp((B") - ("dnjf" "$B1[7nXz[)denh(B") - ("dnl" "$B010L0N0O0Q0R0S0V0Y0^0_0`0b0c161R4m56OAQ&S@SxT#Vk^O`*a_eOh(B") - ("dl" "$B0;0J0K0P0W0[0\1B;\<$<)<*jP;QtUT(B") - ("wk" "$B040q:4:8:::^:n;F;I;P;Q;R;Z;g;p;q;s;z;|<"<'<+dQjDlQo4(B") - ("wkq" "$B;(AYA^C}SrYgd4p7p8(B") - ("wkd" "$B>">)>->1>8>@>O>Q>U>_>c>f>l>s>uATAqArAuB!B"D"D%D2D9F5P?TGTVTcTyT}U#UrVQW2\u\~^J^y`-`/`R`xaog6gGgIg`h7hIi,i6jfl[l\o6rc(B") - ("wo" "$B:F:H:K:M:R:X:[:\:_:`:bE?EAEBECEDEEG{H*KjMdQ#QrR4RdSsT{UsV\W%X"X}Y%ZBZS]a^!_E`0a/aYaub!c"d%d5d?euf?fHg"lcm7mYm[nonto"oCp4pSp|q4qBs6s7t"(B") - ("wjf" "$B=`@Z@[@^@`@a@dCbLERERGRzY#ZqZr^6cffOlkmE(B") - ("wja" "$B0>@jA2E9E@FQG4V3dRpAsVsZ(B") - ("wjq" "$B@\D3XR\&\7\D]~^XfcrW(B") - ("wjd" "$B0f;*>=>Z>`>p>t>{@,@/@0@5@:@EBGCzD.D:DbDdDeDgDhDjDmDnDrDuDvDwDxDzD{E"E#E$FTKoLwMdP'RZVlY]ZW[l^F^[a6aKbMcWf^hGj:mwn&nDnKoFp=pP(B") - ("wp" "$B1-:O:Q:W:]:^=t=|@)@=@F@^BhBiBjDiDkDoDpDsDtD}P_Q1Q}Z+Zq_;bDbEbIgAi5lZm3pIpmpnsn(B") - ("wh" "$B3v7+:x;4<>H>[>rA;A=D>a>bAnI"P:WOXQ\#\$\b^JdpeTj*l{m'm)oG(B") - ("whk" "$B:4:8:A:B:C(B") - ("whl" "$B:a(B") - ("wy" "$Bn[(B") - ("wn" "$B3t:nI>Z>xA9A=A>A}A~B#D'YN\t__kz(B") - ("wl" "$B4t5@;V;X;Y;];^;_;c;f;h;i;j;o;}<1SDcFcM(B") - ("wls" "$B?0?6?8?:?>???A?G?J?L?P?T?XC$DADCDDDEE6FxKyPVSQZi]I_~`_a+a;b8bCbSeVgKhmjWlcmGo/(B") - ("wlf" "$B<8<;<@;?;A@qRUZ9`&cbdlesl-lUo4oSoTqB(B") - ("ckf" "$B;!;";$;%QkY)`\e'(B") - ("cka" "$B;2;4;BA2Q(Q)RTTOVPVZXNXOXPXrXs\ackk{k|l)l+q](B") - ("ckd" "$B>'>+>3>4>;>T?zAOARAdAkAsD*D1H+PiQlRRX0XHYoZHZd^E^k^}`KalcYgZm#r.(B") - ("co" "$B:9:D:L:N:S:V:W:Z[Pbyd)dG(B") - ("cj" "$B:J=h@(A@Q]X.^Ge1hF(B") - ("cjr" "$B;I<\@I@L@M@TD=QqRhWFZ3^~akinljm$m(m6p"s5(B") - ("cjs" "$B0+6N6z6|;=@i@n@q@t@u@|A$A&A(A)A+C)E7PBPjQdSCV_Z#[a\9^I^Y_Ea$chh(lMlxoqotph(B") - ("cjf" "$BDVE/E0E1E2E4FLFmS5V%YZmPnno$oDoEq8(B") - ("cja" "$B84@mE:E*>9>vC}D!D-D5E=aHaIaJbLjymLmM(B") - ("cjd" "$B;*;,@2@6@A@DD#D0W,W-fehGiq(B") - ("cp" "$B@ZBNBXBZBaDVDfDyD|D~FeFmSFSiSjYZ\<^8^|bIbfh\hxjim%>6>7>A>G>K>L>S>V>d?]A?ACApD6D8ICQvR#R+V%V9X!X7X^[B\%^W_VcDggkWl:mknLndqzs|?$?(?tB%B0SvV$ZKb`badHifk=m1o7qq(B") - ("chs" "$B1%@#B=FAQAZAmAoC~DMF4G,N5N6P:PxR2WOWdX;eAeTfb(B") - ("chl" "$B:E:GVCYt\c^/(B") - ("cn" "$B0,1/3bWCiCnCoMCQU`>g^j5(B") - ("cnp" "$BX,X-X8aahDlT(B") - ("cnl" "$BAX(B") - ("cl" "$B:7:9;u<#<&>}?"?%CMCQCTCUCVCWCZD'D>FePLRHRNSPTiV5VbVpVz[i_ua7a?awbtcPcze#e>eLfWiPjul8lemOo!p5r5rKrvrwscso(B") - ("clr" "$BB'B,DNGicJjYqU(B") - ("cho" "$B2wTo`V(B") - ("xk" "$BBBBCBDBEBFBGBHBIBJBKBLBMCSOMPIS#TXU`YYYe[4\s]}g!m>qLrx(B") - ("xkr" "$BBnBoBqBsBtBuBvBwBxByE'EYPkS6Y>[Q_7ner0(B") - ("xks" "$BBMC2C3C7C:C>CBCFF]FgWlE(B") - ("xkq" "$BEcEkYr\PpaperW(B") - ("xkd" "$BEfErE|F"Vfb;j#(B") - ("xo" "$B@GB@BABUBVBYB[B]BaBfBgG=KXLaQ<\(cze)ihkHq&qM(B") - ("xor" "$BBpBrBtZ$_7(B") - ("xh" "$BEFEGEQEZEeF$Q=h9(B") - ("xhs" "$Bjt(B") - ("xhd" "$B23DKDLE{E}HuWxXV(B") - ("xhl" "$B?dBOB\B`DHDIDJFXjtpx(B") - ("xn" "$BEJEjF)F.L{Pye5o+qmr,(B") - ("xmr" "$BB_FCXW(B") - ("vk" "$B?|GCGDGEGGGHGIGJGKGLGNHmHvT3WfZ4[1`(``bncvfRg8hJh]jZllox(B") - ("vks" "$B:d:eH=HDHGHNR!]ra"ng(B") - ("vkf" "$B;+H,R\[5n\(B") - ("vo" "$B143-GIGTGWGXG\GbH4HmI#PPUVX#Y6ZT[1]o`cp>(B") - ("vod" "$BC*K#K5KDW:WEZU_0b|e^(B") - ("vir" "$BX?(B") - ("vus" "$BJ?JPJRJSJTJWJXJ\Y(fIgyi~jokfqY(B") - ("vua" "$BlJ(B") - ("vud" "$BDZI>IMJ?Wh^$bogyhLr9(B") - ("vP" "$B3AGQGYJ>J@JCJDJEKJUJVrW&ZIZMasi0qo(B") - ("vh" "$B1:3s3wGxGzI[I]IrJ^J_J`JaJqJyJzK"K$K&K+K0K=R1R5R7RvS.T5YF[T_F_\aWb.f}gTgzj\jqmynppRq0q}r:rDsR(B") - ("vhr" "$BGxGzI}K=_F(B") - ("vy" "$B<]I6I7I8I:I;IeHh1n8nro|pwq2rRsD(B") - ("gkq" "$B389^9gH:RnR}^eb4b5b6hdonr{(B") - ("gkd" "$B7e9+91939:9A9R9T9_9`FzP6PDRbWqe}fjobprr*(B") - ("go" "$B0g2r3#3$3*3/31323:3<:zPsT6TnTxUXW(Xh\4i&j7k;k_n0nOqO(B") - ("gor" "$B3/3Kbkk*mJ(B") - ("god" "$B0I8v9,9Te.jbr}(B") - ("gid" "$B5}6?6A6B8~9aSlq.(B") - ("gj" "$B135u5vTR[[]A^w(B") - ("gjs" "$B7{8%8.YW`[(B") - ("gjf" "$B]8?9`JGPWRl^-aRbAeQidjJnkp}(B") - ("guf" "$B7j7l>iJGLRUSk#pv(B") - ("gua" "$B7y(B") - ("guq" "$B0A3p6"6(6.646965|7:7;7?7A7U7V7e9UTk_W_X`rfzj%mj(B") - ("gP" "$B7E7RQBR>TxWBX*b=c4l~nQp^(B") - ("gh" "$B3O8C8F8L8M8P8Q8R8U8W8[8_8c8j8n8o9%9@9f9h9j9k:c;)I1Q%RzS)S`XAXZY&Zk[']8_f_g_t`!`:c6fTBTCTKTNTQTWT\T_UNU~V&V,V-V.V/V0V2V4V8VNW;WjWnWpY0YKY^Z1Zs[=[b[n\)\-\.\/\0\1\O\S\j\n\o\p\q\x]&]6]B]i^<^L^c_&_1`b keylen 0) (= (aref quail-current-key 1) ?n)) (setq control-flag t))) ((and (> keylen 1) (= (aref quail-current-key 0) (aref quail-current-key 1))) - (setq quail-current-str ?$B$C(B)) + (setq quail-current-str ?っ)) (t (setq quail-current-str (aref quail-current-key 0)))) (if (integerp control-flag) @@ -84,10 +84,10 @@ (defun quail-japanese-kanji-kkc () (interactive) (when (= (char-before (overlay-end quail-conv-overlay)) ?n) - ;; The last char is `n'. We had better convert it to `$B$s(B' + ;; The last char is `n'. We had better convert it to `ん' ;; before kana-kanji conversion. (goto-char (1- (overlay-end quail-conv-overlay))) - (insert ?$B$s(B) + (insert ?ん) (delete-char 1)) (let* ((from (copy-marker (overlay-start quail-conv-overlay))) (len (- (overlay-end quail-conv-overlay) from))) @@ -135,113 +135,113 @@ (throw 'quail-tag nil)) (defvar quail-japanese-transliteration-rules - '(( "a" "$B$"(B") ( "i" "$B$$(B") ( "u" "$B$&(B") ( "e" "$B$((B") ( "o" "$B$*(B") - ("ka" "$B$+(B") ("ki" "$B$-(B") ("ku" "$B$/(B") ("ke" "$B$1(B") ("ko" "$B$3(B") - ("sa" "$B$5(B") ("si" "$B$7(B") ("su" "$B$9(B") ("se" "$B$;(B") ("so" "$B$=(B") - ("ta" "$B$?(B") ("ti" "$B$A(B") ("tu" "$B$D(B") ("te" "$B$F(B") ("to" "$B$H(B") - ("na" "$B$J(B") ("ni" "$B$K(B") ("nu" "$B$L(B") ("ne" "$B$M(B") ("no" "$B$N(B") - ("ha" "$B$O(B") ("hi" "$B$R(B") ("hu" "$B$U(B") ("he" "$B$X(B") ("ho" "$B$[(B") - ("ma" "$B$^(B") ("mi" "$B$_(B") ("mu" "$B$`(B") ("me" "$B$a(B") ("mo" "$B$b(B") - ("ya" "$B$d(B") ("yu" "$B$f(B") ("yo" "$B$h(B") - ("ra" "$B$i(B") ("ri" "$B$j(B") ("ru" "$B$k(B") ("re" "$B$l(B") ("ro" "$B$m(B") - ("la" "$B$i(B") ("li" "$B$j(B") ("lu" "$B$k(B") ("le" "$B$l(B") ("lo" "$B$m(B") - ("wa" "$B$o(B") ("wi" "$B$p(B") ("wu" "$B$&(B") ("we" "$B$q(B") ("wo" "$B$r(B") - ("n'" "$B$s(B") - ("ga" "$B$,(B") ("gi" "$B$.(B") ("gu" "$B$0(B") ("ge" "$B$2(B") ("go" "$B$4(B") - ("za" "$B$6(B") ("zi" "$B$8(B") ("zu" "$B$:(B") ("ze" "$B$<(B") ("zo" "$B$>(B") - ("da" "$B$@(B") ("di" "$B$B(B") ("du" "$B$E(B") ("de" "$B$G(B") ("do" "$B$I(B") - ("ba" "$B$P(B") ("bi" "$B$S(B") ("bu" "$B$V(B") ("be" "$B$Y(B") ("bo" "$B$\(B") - ("pa" "$B$Q(B") ("pi" "$B$T(B") ("pu" "$B$W(B") ("pe" "$B$Z(B") ("po" "$B$](B") - - ("kya" ["$B$-$c(B"]) ("kyu" ["$B$-$e(B"]) ("kye" ["$B$-$'(B"]) ("kyo" ["$B$-$g(B"]) - ("sya" ["$B$7$c(B"]) ("syu" ["$B$7$e(B"]) ("sye" ["$B$7$'(B"]) ("syo" ["$B$7$g(B"]) - ("sha" ["$B$7$c(B"]) ("shu" ["$B$7$e(B"]) ("she" ["$B$7$'(B"]) ("sho" ["$B$7$g(B"]) - ("cha" ["$B$A$c(B"]) ("chu" ["$B$A$e(B"]) ("che" ["$B$A$'(B"]) ("cho" ["$B$A$g(B"]) - ("tya" ["$B$A$c(B"]) ("tyu" ["$B$A$e(B"]) ("tye" ["$B$A$'(B"]) ("tyo" ["$B$A$g(B"]) - ("nya" ["$B$K$c(B"]) ("nyu" ["$B$K$e(B"]) ("nye" ["$B$K$'(B"]) ("nyo" ["$B$K$g(B"]) - ("hya" ["$B$R$c(B"]) ("hyu" ["$B$R$e(B"]) ("hye" ["$B$R$'(B"]) ("hyo" ["$B$R$g(B"]) - ("mya" ["$B$_$c(B"]) ("myu" ["$B$_$e(B"]) ("mye" ["$B$_$'(B"]) ("myo" ["$B$_$g(B"]) - ("rya" ["$B$j$c(B"]) ("ryu" ["$B$j$e(B"]) ("rye" ["$B$j$'(B"]) ("ryo" ["$B$j$g(B"]) - ("lya" ["$B$j$c(B"]) ("lyu" ["$B$j$e(B"]) ("lye" ["$B$j$'(B"]) ("lyo" ["$B$j$g(B"]) - ("gya" ["$B$.$c(B"]) ("gyu" ["$B$.$e(B"]) ("gye" ["$B$.$'(B"]) ("gyo" ["$B$.$g(B"]) - ("zya" ["$B$8$c(B"]) ("zyu" ["$B$8$e(B"]) ("zye" ["$B$8$'(B"]) ("zyo" ["$B$8$g(B"]) - ("jya" ["$B$8$c(B"]) ("jyu" ["$B$8$e(B"]) ("jye" ["$B$8$'(B"]) ("jyo" ["$B$8$g(B"]) - ( "ja" ["$B$8$c(B"]) ( "ju" ["$B$8$e(B"]) ( "je" ["$B$8$'(B"]) ( "jo" ["$B$8$g(B"]) - ("bya" ["$B$S$c(B"]) ("byu" ["$B$S$e(B"]) ("bye" ["$B$S$'(B"]) ("byo" ["$B$S$g(B"]) - ("pya" ["$B$T$c(B"]) ("pyu" ["$B$T$e(B"]) ("pye" ["$B$T$'(B"]) ("pyo" ["$B$T$g(B"]) - - ("kwa" ["$B$/$n(B"]) ("kwi" ["$B$/$#(B"]) ("kwe" ["$B$/$'(B"]) ("kwo" ["$B$/$)(B"]) - ("tsa" ["$B$D$!(B"]) ("tsi" ["$B$D$#(B"]) ("tse" ["$B$D$'(B"]) ("tso" ["$B$D$)(B"]) - ( "fa" ["$B$U$!(B"]) ( "fi" ["$B$U$#(B"]) ( "fe" ["$B$U$'(B"]) ( "fo" ["$B$U$)(B"]) - ("gwa" ["$B$0$n(B"]) ("gwi" ["$B$0$#(B"]) ("gwe" ["$B$0$'(B"]) ("gwo" ["$B$0$)(B"]) - - ("dyi" ["$B$G$#(B"]) ("dyu" ["$B$I$%(B"]) ("dye" ["$B$G$'(B"]) ("dyo" ["$B$I$)(B"]) - ("xwi" ["$B$&$#(B"]) ("xwe" ["$B$&$'(B"]) ("xwo" ["$B$&$)(B"]) - - ("shi" "$B$7(B") ("tyi" ["$B$F$#(B"]) ("chi" "$B$A(B") ("tsu" "$B$D(B") ("ji" "$B$8(B") - ("fu" "$B$U(B") - ("ye" ["$B$$$'(B"]) - - ("va" ["$B%t$!(B"]) ("vi" ["$B%t$#(B"]) ("vu" "$B%t(B") ("ve" ["$B%t$'(B"]) ("vo" ["$B%t$)(B"]) - - ("xa" "$B$!(B") ("xi" "$B$#(B") ("xu" "$B$%(B") ("xe" "$B$'(B") ("xo" "$B$)(B") - ("xtu" "$B$C(B") ("xya" "$B$c(B") ("xyu" "$B$e(B") ("xyo" "$B$g(B") ("xwa" "$B$n(B") - ("xka" "$B%u(B") ("xke" "$B%v(B") - - ("1" "$B#1(B") ("2" "$B#2(B") ("3" "$B#3(B") ("4" "$B#4(B") ("5" "$B#5(B") - ("6" "$B#6(B") ("7" "$B#7(B") ("8" "$B#8(B") ("9" "$B#9(B") ("0" "$B#0(B") - - ("!" "$B!*(B") ("@" "$B!w(B") ("#" "$B!t(B") ("$" "$B!p(B") ("%" "$B!s(B") - ("^" "$B!0(B") ("&" "$B!u(B") ("*" "$B!v(B") ("(" "$B!J(B") (")" "$B!K(B") - ("-" "$B!<(B") ("=" "$B!a(B") ("`" "$B!.(B") ("\\" "$B!o(B") ("|" "$B!C(B") - ("_" "$B!2(B") ("+" "$B!\(B") ("~" "$B!1(B") ("[" "$B!V(B") ("]" "$B!W(B") - ("{" "$B!P(B") ("}" "$B!Q(B") (":" "$B!'(B") (";" "$B!((B") ("\"" "$B!I(B") - ("'" "$B!G(B") ("." "$B!#(B") ("," "$B!"(B") ("<" "$B!c(B") (">" "$B!d(B") - ("?" "$B!)(B") ("/" "$B!?(B") - - ("z1" "$B!{(B") ("z!" "$B!|(B") - ("z2" "$B"&(B") ("z@" "$B"'(B") - ("z3" "$B"$(B") ("z#" "$B"%(B") - ("z4" "$B""(B") ("z$" "$B"#(B") - ("z5" "$B!~(B") ("z%" "$B"!(B") - ("z6" "$B!y(B") ("z^" "$B!z(B") - ("z7" "$B!}(B") ("z&" "$B!r(B") - ("z8" "$B!q(B") ("z*" "$B!_(B") - ("z9" "$B!i(B") ("z(" "$B!Z(B") - ("z0" "$B!j(B") ("z)" "$B![(B") - ("z-" "$B!A(B") ("z_" "$B!h(B") - ("z=" "$B!b(B") ("z+" "$B!^(B") - ("z\\" "$B!@(B") ("z|" "$B!B(B") - ("z`" "$B!-(B") ("z~" "$B!/(B") - - ("zq" "$B!T(B") ("zQ" "$B!R(B") - ("zw" "$B!U(B") ("zW" "$B!S(B") - ("zr" "$B!9(B") ("zR" "$B!8(B") - ("zt" "$B!:(B") ("zT" "$B!x(B") - ("zp" "$B")(B") ("zP" "$B",(B") - ("z[" "$B!X(B") ("z{" "$B!L(B") - ("z]" "$B!Y(B") ("z}" "$B!M(B") - - ("zs" "$B!3(B") ("zS" "$B!4(B") - ("zd" "$B!5(B") ("zD" "$B!6(B") - ("zf" "$B!7(B") ("zF" "$B"*(B") - ("zg" "$B!>(B") ("zG" "$B!=(B") - ("zh" "$B"+(B") - ("zj" "$B"-(B") - ("zk" "$B",(B") - ("zl" "$B"*(B") - ("z;" "$B!+(B") ("z:" "$B!,(B") - ("z'" "$B!F(B") ("z\"" "$B!H(B") + '(( "a" "あ") ( "i" "い") ( "u" "う") ( "e" "え") ( "o" "お") + ("ka" "か") ("ki" "き") ("ku" "く") ("ke" "け") ("ko" "こ") + ("sa" "さ") ("si" "し") ("su" "す") ("se" "せ") ("so" "そ") + ("ta" "た") ("ti" "ち") ("tu" "つ") ("te" "て") ("to" "と") + ("na" "な") ("ni" "に") ("nu" "ぬ") ("ne" "ね") ("no" "の") + ("ha" "は") ("hi" "ひ") ("hu" "ふ") ("he" "へ") ("ho" "ほ") + ("ma" "ま") ("mi" "み") ("mu" "む") ("me" "め") ("mo" "も") + ("ya" "や") ("yu" "ゆ") ("yo" "よ") + ("ra" "ら") ("ri" "り") ("ru" "る") ("re" "れ") ("ro" "ろ") + ("la" "ら") ("li" "り") ("lu" "る") ("le" "れ") ("lo" "ろ") + ("wa" "わ") ("wi" "ゐ") ("wu" "う") ("we" "ゑ") ("wo" "を") + ("n'" "ん") + ("ga" "が") ("gi" "ぎ") ("gu" "ぐ") ("ge" "げ") ("go" "ご") + ("za" "ざ") ("zi" "じ") ("zu" "ず") ("ze" "ぜ") ("zo" "ぞ") + ("da" "だ") ("di" "ぢ") ("du" "づ") ("de" "で") ("do" "ど") + ("ba" "ば") ("bi" "び") ("bu" "ぶ") ("be" "べ") ("bo" "ぼ") + ("pa" "ぱ") ("pi" "ぴ") ("pu" "ぷ") ("pe" "ぺ") ("po" "ぽ") + + ("kya" ["きゃ"]) ("kyu" ["きゅ"]) ("kye" ["きぇ"]) ("kyo" ["きょ"]) + ("sya" ["しゃ"]) ("syu" ["しゅ"]) ("sye" ["しぇ"]) ("syo" ["しょ"]) + ("sha" ["しゃ"]) ("shu" ["しゅ"]) ("she" ["しぇ"]) ("sho" ["しょ"]) + ("cha" ["ちゃ"]) ("chu" ["ちゅ"]) ("che" ["ちぇ"]) ("cho" ["ちょ"]) + ("tya" ["ちゃ"]) ("tyu" ["ちゅ"]) ("tye" ["ちぇ"]) ("tyo" ["ちょ"]) + ("nya" ["にゃ"]) ("nyu" ["にゅ"]) ("nye" ["にぇ"]) ("nyo" ["にょ"]) + ("hya" ["ひゃ"]) ("hyu" ["ひゅ"]) ("hye" ["ひぇ"]) ("hyo" ["ひょ"]) + ("mya" ["みゃ"]) ("myu" ["みゅ"]) ("mye" ["みぇ"]) ("myo" ["みょ"]) + ("rya" ["りゃ"]) ("ryu" ["りゅ"]) ("rye" ["りぇ"]) ("ryo" ["りょ"]) + ("lya" ["りゃ"]) ("lyu" ["りゅ"]) ("lye" ["りぇ"]) ("lyo" ["りょ"]) + ("gya" ["ぎゃ"]) ("gyu" ["ぎゅ"]) ("gye" ["ぎぇ"]) ("gyo" ["ぎょ"]) + ("zya" ["じゃ"]) ("zyu" ["じゅ"]) ("zye" ["じぇ"]) ("zyo" ["じょ"]) + ("jya" ["じゃ"]) ("jyu" ["じゅ"]) ("jye" ["じぇ"]) ("jyo" ["じょ"]) + ( "ja" ["じゃ"]) ( "ju" ["じゅ"]) ( "je" ["じぇ"]) ( "jo" ["じょ"]) + ("bya" ["びゃ"]) ("byu" ["びゅ"]) ("bye" ["びぇ"]) ("byo" ["びょ"]) + ("pya" ["ぴゃ"]) ("pyu" ["ぴゅ"]) ("pye" ["ぴぇ"]) ("pyo" ["ぴょ"]) + + ("kwa" ["くゎ"]) ("kwi" ["くぃ"]) ("kwe" ["くぇ"]) ("kwo" ["くぉ"]) + ("tsa" ["つぁ"]) ("tsi" ["つぃ"]) ("tse" ["つぇ"]) ("tso" ["つぉ"]) + ( "fa" ["ふぁ"]) ( "fi" ["ふぃ"]) ( "fe" ["ふぇ"]) ( "fo" ["ふぉ"]) + ("gwa" ["ぐゎ"]) ("gwi" ["ぐぃ"]) ("gwe" ["ぐぇ"]) ("gwo" ["ぐぉ"]) + + ("dyi" ["でぃ"]) ("dyu" ["どぅ"]) ("dye" ["でぇ"]) ("dyo" ["どぉ"]) + ("xwi" ["うぃ"]) ("xwe" ["うぇ"]) ("xwo" ["うぉ"]) + + ("shi" "し") ("tyi" ["てぃ"]) ("chi" "ち") ("tsu" "つ") ("ji" "じ") + ("fu" "ふ") + ("ye" ["いぇ"]) + + ("va" ["ヴぁ"]) ("vi" ["ヴぃ"]) ("vu" "ヴ") ("ve" ["ヴぇ"]) ("vo" ["ヴぉ"]) + + ("xa" "ぁ") ("xi" "ぃ") ("xu" "ぅ") ("xe" "ぇ") ("xo" "ぉ") + ("xtu" "っ") ("xya" "ゃ") ("xyu" "ゅ") ("xyo" "ょ") ("xwa" "ゎ") + ("xka" "ヵ") ("xke" "ヶ") + + ("1" "1") ("2" "2") ("3" "3") ("4" "4") ("5" "5") + ("6" "6") ("7" "7") ("8" "8") ("9" "9") ("0" "0") + + ("!" "!") ("@" "ï¼ ") ("#" "#") ("$" "$") ("%" "%") + ("^" "ï¼¾") ("&" "&") ("*" "*") ("(" "(") (")" ")") + ("-" "ー") ("=" "=") ("`" "`") ("\\" "ï¿¥") ("|" "|") + ("_" "_") ("+" "+") ("~" "ï¿£") ("[" "「") ("]" "」") + ("{" "{") ("}" "}") (":" ":") (";" ";") ("\"" "”") + ("'" "’") ("." "。") ("," "、") ("<" "<") (">" ">") + ("?" "?") ("/" "/") + + ("z1" "○") ("z!" "●") + ("z2" "▽") ("z@" "▼") + ("z3" "△") ("z#" "▲") + ("z4" "□") ("z$" "■") + ("z5" "◇") ("z%" "◆") + ("z6" "☆") ("z^" "★") + ("z7" "◎") ("z&" "£") + ("z8" "¢") ("z*" "×") + ("z9" "♂") ("z(" "【") + ("z0" "♀") ("z)" "】") + ("z-" "〜") ("z_" "∴") + ("z=" "≠") ("z+" "±") + ("z\\" "ï¼¼") ("z|" "‖") + ("z`" "´") ("z~" "¨") + + ("zq" "《") ("zQ" "〈") + ("zw" "》") ("zW" "〉") + ("zr" "々") ("zR" "仝") + ("zt" "〆") ("zT" "§") + ("zp" "〒") ("zP" "↑") + ("z[" "『") ("z{" "〔") + ("z]" "』") ("z}" "〕") + + ("zs" "ヽ") ("zS" "ヾ") + ("zd" "ゝ") ("zD" "ゞ") + ("zf" "〃") ("zF" "→") + ("zg" "‐") ("zG" "—") + ("zh" "←") + ("zj" "↓") + ("zk" "↑") + ("zl" "→") + ("z;" "゛") ("z:" "゜") + ("z'" "‘") ("z\"" "“") ("zx" [":-"]) ("zX" [":-)"]) - ("zc" "$B!;(B") ("zC" "$B!n(B") - ("zv" "$B"((B") ("zV" "$B!`(B") - ("zb" "$B!k(B") ("zB" "$B"+(B") - ("zn" "$B!l(B") ("zN" "$B"-(B") - ("zm" "$B!m(B") ("zM" "$B".(B") - ("z," "$B!E(B") ("z<" "$B!e(B") - ("z." "$B!D(B") ("z>" "$B!f(B") - ("z/" "$B!&(B") ("z?" "$B!g(B") + ("zc" "〇") ("zC" "℃") + ("zv" "※") ("zV" "÷") + ("zb" "°") ("zB" "←") + ("zn" "′") ("zN" "↓") + ("zm" "″") ("zM" "〓") + ("z," "‥") ("z<" "≦") + ("z." "…") ("z>" "≧") + ("z/" "・") ("z?" "∞") ("\\\\" quail-japanese-self-insert-and-switch-to-alpha) ("{{" quail-japanese-self-insert-and-switch-to-alpha) @@ -252,81 +252,81 @@ )) -;; $B%m!<%^;zF~NO5Z$S2>L>4A;zJQ49$K$h$kF|K\8lF~NO%a%=%C%I(B +;; ローマ字入力及び仮名漢字変換による日本語入力メソッド ;; -;; $B$3$NF~NO%a%=%C%I$G$NF|K\8l$NF~NO$OFs$D$N%9%F!<%8!V%m!<%^;z2>L>JQ49!W(B -;; $B$H!V2>L>4A;zJQ49!W$+$i$J$k!#:G=i$O%m!<%^;z2>L>JQ49$N%9%F!<%8$G!"%9(B -;; $B%Z!<%9%-!<$r2!$9$3$H$K$h$j!"L>4A;zJQ49!W$X?J$`!#(B +;; この入力メソッドでの日本語の入力は二つのステージ「ローマ字仮名変換」 +;; と「仮名漢字変換」からなる。最初はローマ字仮名変換のステージで、ス +;; ペースキーを押すことにより、次のステージ「仮名漢字変換」へ進む。 ;; -;; $B!V%m!<%^;z2>L>JQ49!W(B +;; 「ローマ字仮名変換」 ;; -;; $BJ?2>L>$O>.J8;z%-!$N%7%s%\%k$O(B `z' $B$KB3$1$F2?(B -;; $B$l$+$N%-!<$rBG$D$3$H$K$h$jF~NO!#2<$KA4$F$N2DG=$J%-!<%7!<%1%s%9%j%9(B -;; $B%H%"%C%W$5$l$F$$$k!#F~NO$5$l$?J8;z$O2<@~$G<($5$l$k!#(B +;; 平仮名は小文字キー(列)を打つことにより入力。句読点、括弧類は対応 +;; する英字キーを打つことにより入力。その他のシンボルは `z' に続けて何 +;; れかのキーを打つことにより入力。下に全ての可能なキーシーケンスリス +;; トアップされている。入力された文字は下線で示される。 ;; -;; $B$5$i$K0J2<$N%-!<$GFCJL$J=hM}$r9T$&!#(B +;; さらに以下のキーで特別な処理を行う。 ;; -;; K $BJ?2>L>$rJR2>L>$K!"$"$k$$$OJR2>L>$rJ?2>L>$KJQ49(B -;; qq $B$3$NF~NO%a%=%C%I$H(B `japanese-ascii' $BF~NO%a%=%C%I$r%H%0%k@ZBX(B -;; qz `japanese-zenkaku' $BF~NO%a%=%C%I$K%7%U%H(B -;; qh $B$HBG$F$P85$KLa$k(B -;; RET $B8=:_$NF~NOJ8;zNs$r3NDj(B -;; SPC $B2>L>4A;zJQ49$K?J$`(B +;; K 平仮名を片仮名に、あるいは片仮名を平仮名に変換 +;; qq この入力メソッドと `japanese-ascii' 入力メソッドをトグル切替 +;; qz `japanese-zenkaku' 入力メソッドにシフト +;; qh と打てば元に戻る +;; RET 現在の入力文字列を確定 +;; SPC 仮名漢字変換に進む ;; -;; `japanese-ascii' $BF~NO%a%=%C%I$O(B ASCII $BJ8;z$rF~NO$9$k$N$K;H$&!#$3$l(B -;; $B$OF~NO%a%=%C%I$r%*%U$K$9$k$N$H$[$H$s$IF1$8$G$"$k!#0[$J$k$N$O(B qq $B$H(B -;; $BBG$D$3$H$K$h$j!"(B`japanese' $BF~NO%a%=%C%I$KLa$l$kE@$G$"$k!#(B +;; `japanese-ascii' 入力メソッドは ASCII 文字を入力するのに使う。これ +;; は入力メソッドをオフにするのとほとんど同じである。異なるのは qq と +;; 打つことにより、`japanese' 入力メソッドに戻れる点である。 ;; -;; `japanese-zenkaku' $BF~NO%a%=%C%I$OA43Q1Q?t;z$rF~NO$9$k$N$K;H$&!#(B +;; `japanese-zenkaku' 入力メソッドは全角英数字を入力するのに使う。 ;; -;; $B!V%m!<%^;z2>L>JQ49!W%9%F!<%8$G$N%-!<%7!<%1%s%9$N%j%9%H$O:G8e$KIU$1(B -;; $B$F$"$k!#(B +;; 「ローマ字仮名変換」ステージでのキーシーケンスのリストは最後に付け +;; てある。 ;; -;; $B!V2>L>4A;zJQ49!W(B +;; 「仮名漢字変換」 ;; -;; $B$3$N%9%F!<%8$G$O!"A0%9%F!<%8$GF~NO$5$l$?J8;zNs$r2>L>4A;zJQ49$9$k!#(B -;; $BJQ49$5$l$?J8;zNs$O!"CmL\J8@a!JH?E>I=<(!K$H;D$j$NF~NO!J2<@~I=<(!K$K(B -;; $BJ,$1$i$l$k!#CmL\J8@a$KBP$7$F$O0J2<$N%3%^%s%I$,;H$($k!#(B +;; このステージでは、前ステージで入力された文字列を仮名漢字変換する。 +;; 変換された文字列は、注目文節(反転表示)と残りの入力(下線表示)に +;; 分けられる。注目文節に対しては以下のコマンドが使える。 ;; ;; SPC, C-n kkc-next -;; $BeB3$1$FBG$F$P!"JQ498uJd%j%9(B -;; $B%H$r%(%3!<%(%j%"$KI=<((B +;; 次の変換候補を表示 +;; kkc-show-conversion-list-count 以上続けて打てば、変換候補リス +;; トをエコーエリアに表示 ;; C-p kkc-prev -;; $BA0$NJQ498uJd$rI=<((B -;; kkc-show-conversion-list-count $B0J>eB3$1$FBG$F$P!"JQ498uJd%j%9(B -;; $B%H$r%(%3!<%(%j%"$KI=<((B +;; 前の変換候補を表示 +;; kkc-show-conversion-list-count 以上続けて打てば、変換候補リス +;; トをエコーエリアに表示 ;; l kkc-show-conversion-list-or-next-group -;; $B:G9b#1#08D$^$G$NJQ498uJd$r%(%3!<%(%j%"$KI=<(!#(B -;; $BB3$1$FBG$?$l$l$P!"L>$KJQ49(B +;; 注目文節を平仮名に変換 ;; K kkc-katakana -;; $BCmL\J8@a$rJR2>L>$KJQ49(B +;; 注目文節を片仮名に変換 ;; C-o kkc-longer -;; $BCmL\J8@a$r8e$m$K0lJ8;z?-$P$9(B +;; 注目文節を後ろに一文字伸ばす ;; C-i kkc-shorter -;; $BCmL\J8@a$r8e$m$+$i0lJ8;z=L$a$k(B +;; 注目文節を後ろから一文字縮める ;; C-f kkc-next-phrase -;; $BCmL\J8@a$r3NDj$5$;$k!#$b$7;D$j$NF~NO$,$^$@$"$l$P!":G=i$NJ8@a$r(B -;; $BA*Br$7!"$=$l$rCmL\J8@a$H$7!"$=$N:G=i$NJQ498uJd$rI=<($9$k!#(B +;; 注目文節を確定させる。もし残りの入力がまだあれば、最初の文節を +;; 選択し、それを注目文節とし、その最初の変換候補を表示する。 ;; DEL, C-c kkc-cancel -;; $B2>L>4A;zJQ49$r%-%c%s%;%k$7!"%m!<%^;z2>L>JQ49$N%9%F!<%8$KLa$k!#(B +;; 仮名漢字変換をキャンセルし、ローマ字仮名変換のステージに戻る。 ;; return kkc-terminate -;; $BA4J8@a$r3NDj$5$;$k!#(B +;; 全文節を確定させる。 ;; C-SPC, C-@ kkc-first-char-only -;; $B:G=i$NJ8;z$r3NDj$5$;!";D$j$O:o=|$9$k!#(B +;; 最初の文字を確定させ、残りは削除する。 ;; C-h kkc-help -;; $B$3$l$i$N%-!<%P%$%s%I$N%j%9%H$rI=<($9$k!#$"(B +;; これらのキーバインドのリストを表示する。あ (quail-define-package - "japanese" "Japanese" "A$B$"(B" + "japanese" "Japanese" "Aあ" nil "Japanese input method by Roman transliteration and Kana-Kanji conversion. @@ -433,7 +433,7 @@ Type \"qq\" to go back to previous input method." (quail-define-rules ("qq" quail-japanese-switch-package)) (quail-define-package - "japanese-zenkaku" "Japanese" "$B#A(B" + "japanese-zenkaku" "Japanese" "A" nil "Japanese zenkaku alpha numeric character input method. ---- Special key bindings ---- @@ -445,30 +445,30 @@ qh: shift to the input method `japanese', (quail-define-rules -(" " "$B!!(B") ("!" "$B!*(B") ("\"" "$B!m(B") ("#" "$B!t(B") -("$" "$B!p(B") ("%" "$B!s(B") ("&" "$B!u(B") ("'" "$B!l(B") -("(" "$B!J(B") (")" "$B!K(B") ("*" "$B!v(B") ("+" "$B!\(B") -("," "$B!$(B") ("-" "$B!](B") ("." "$B!%(B") ("/" "$B!?(B") -("0" "$B#0(B") ("1" "$B#1(B") ("2" "$B#2(B") ("3" "$B#3(B") -("4" "$B#4(B") ("5" "$B#5(B") ("6" "$B#6(B") ("7" "$B#7(B") -("8" "$B#8(B") ("9" "$B#9(B") (":" "$B!'(B") (";" "$B!((B") -("<" "$B!c(B") ("=" "$B!a(B") (">" "$B!d(B") ("?" "$B!)(B") -("@" "$B!w(B") ("A" "$B#A(B") ("B" "$B#B(B") ("C" "$B#C(B") -("D" "$B#D(B") ("E" "$B#E(B") ("F" "$B#F(B") ("G" "$B#G(B") -("H" "$B#H(B") ("I" "$B#I(B") ("J" "$B#J(B") ("K" "$B#K(B") -("L" "$B#L(B") ("M" "$B#M(B") ("N" "$B#N(B") ("O" "$B#O(B") -("P" "$B#P(B") ("Q" "$B#Q(B") ("R" "$B#R(B") ("S" "$B#S(B") -("T" "$B#T(B") ("U" "$B#U(B") ("V" "$B#V(B") ("W" "$B#W(B") -("X" "$B#X(B") ("Y" "$B#Y(B") ("Z" "$B#Z(B") ("[" "$B!N(B") -("\\" "$B!o(B") ("]" "$B!O(B") ("^" "$B!0(B") ("_" "$B!2(B") -("`" "$B!F(B") ("a" "$B#a(B") ("b" "$B#b(B") ("c" "$B#c(B") -("d" "$B#d(B") ("e" "$B#e(B") ("f" "$B#f(B") ("g" "$B#g(B") -("h" "$B#h(B") ("i" "$B#i(B") ("j" "$B#j(B") ("k" "$B#k(B") -("l" "$B#l(B") ("m" "$B#m(B") ("n" "$B#n(B") ("o" "$B#o(B") -("p" "$B#p(B") ("q" "$B#q(B") ("r" "$B#r(B") ("s" "$B#s(B") -("t" "$B#t(B") ("u" "$B#u(B") ("v" "$B#v(B") ("w" "$B#w(B") -("x" "$B#x(B") ("y" "$B#y(B") ("z" "$B#z(B") ("{" "$B!P(B") -("|" "$B!C(B") ("}" "$B!Q(B") ("~" "$B!A(B") +(" " " ") ("!" "!") ("\"" "″") ("#" "#") +("$" "$") ("%" "%") ("&" "&") ("'" "′") +("(" "(") (")" ")") ("*" "*") ("+" "+") +("," ",") ("-" "−") ("." ".") ("/" "/") +("0" "0") ("1" "1") ("2" "2") ("3" "3") +("4" "4") ("5" "5") ("6" "6") ("7" "7") +("8" "8") ("9" "9") (":" ":") (";" ";") +("<" "<") ("=" "=") (">" ">") ("?" "?") +("@" "ï¼ ") ("A" "A") ("B" "ï¼¢") ("C" "ï¼£") +("D" "D") ("E" "ï¼¥") ("F" "F") ("G" "G") +("H" "H") ("I" "I") ("J" "J") ("K" "K") +("L" "L") ("M" "ï¼­") ("N" "ï¼®") ("O" "O") +("P" "ï¼°") ("Q" "ï¼±") ("R" "ï¼²") ("S" "ï¼³") +("T" "ï¼´") ("U" "ï¼µ") ("V" "V") ("W" "ï¼·") +("X" "X") ("Y" "ï¼¹") ("Z" "Z") ("[" "ï¼»") +("\\" "ï¿¥") ("]" "ï¼½") ("^" "ï¼¾") ("_" "_") +("`" "‘") ("a" "a") ("b" "b") ("c" "c") +("d" "d") ("e" "e") ("f" "f") ("g" "g") +("h" "h") ("i" "i") ("j" "j") ("k" "k") +("l" "l") ("m" "m") ("n" "n") ("o" "o") +("p" "p") ("q" "q") ("r" "r") ("s" "s") +("t" "t") ("u" "u") ("v" "v") ("w" "w") +("x" "x") ("y" "y") ("z" "z") ("{" "{") +("|" "|") ("}" "}") ("~" "〜") ("qq" quail-japanese-switch-package) ("qh" quail-japanese-switch-package) @@ -485,7 +485,7 @@ qh: shift to the input method `japanese', (quail-define-package "japanese-hankaku-kana" - "Japanese" "(I1(B" + "Japanese" "ï½±" nil "Japanese hankaku katakana input method by Roman transliteration. ---- Special key bindings ---- @@ -514,7 +514,7 @@ qq: toggle between this input method and the input method `japanese-ascii'. trans))) (quail-define-package - "japanese-hiragana" "Japanese" "$B$"(B" + "japanese-hiragana" "Japanese" "あ" nil "Japanese hiragana input method by Roman transliteration." nil t t nil nil nil nil nil @@ -535,7 +535,7 @@ qq: toggle between this input method and the input method `japanese-ascii'. control-flag) (quail-define-package - "japanese-katakana" "Japanese" "$B%"(B" + "japanese-katakana" "Japanese" "ア" nil "Japanese katakana input method by Roman transliteration." nil t t nil nil nil nil nil diff --git a/lisp/leim/quail/py-punct.el b/lisp/leim/quail/py-punct.el index 35bd79e99b4..eed70a82eec 100644 --- a/lisp/leim/quail/py-punct.el +++ b/lisp/leim/quail/py-punct.el @@ -1,4 +1,4 @@ -;;; py-punct.el --- Quail packages for Chinese (pinyin + extra symbols) -*-coding: iso-2022-7bit;-*- +;;; py-punct.el --- Quail packages for Chinese (pinyin + extra symbols) ;; Copyright (C) 2001-2019 Free Software Foundation, Inc. ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, @@ -35,16 +35,16 @@ (load "quail/Punct") (quail-define-package - "chinese-py-punct" "Chinese-GB" "$AF47{(B" + "chinese-py-punct" "Chinese-GB" "拼符" t - "$A::WVJdHk(B $AF4Rt7=08(B and `v' for $A1j5c7{:EJdHk(B + "汉字输入 拼音方案 and `v' for 标点符号输入 This is the combination of the input methods `chinese-py' and `chinese-punct'. You can enter normal Chinese characters by the same way as `chinese-py'. And, you can enter symbols by typing `v' followed by any key sequences defined in `chinese-punct'. -For instance, typing `v' and `%' insert `$A#%(B'. +For instance, typing `v' and `%' insert `%'. ") (setcar (nthcdr 2 quail-current-package) @@ -55,9 +55,9 @@ For instance, typing `v' and `%' insert `$A#%(B'. (load "quail/TONEPY") (quail-define-package - "chinese-tonepy-punct" "Chinese-GB" "$AF47{(B" + "chinese-tonepy-punct" "Chinese-GB" "拼符" t - "$A::WVJdHk(B $A4x5wF4Rt7=08(B and `v' for $A1j5c7{:EJdHk(B + "汉字输入 带调拼音方案 and `v' for 标点符号输入 This is the combination of the input methods `chinese-tonepy' and `chinese-punct'. @@ -66,7 +66,7 @@ You can enter normal Chinese characters by the same way as `chinese-tonepy'. And, you can enter symbols by typing `v' followed by any key sequences defined in `chinese-punct'. -For instance, typing `v' and `%' insert `$A#%(B'. +For instance, typing `v' and `%' insert `%'. ") (setcar (nthcdr 2 quail-current-package) diff --git a/lisp/leim/quail/pypunct-b5.el b/lisp/leim/quail/pypunct-b5.el index ef5863101d2..45597a4ef6f 100644 --- a/lisp/leim/quail/pypunct-b5.el +++ b/lisp/leim/quail/pypunct-b5.el @@ -1,4 +1,4 @@ -;;; pypunct-b5.el --- Quail packages for Chinese (pinyin + extra symbols) -*-coding: iso-2022-7bit;-*- +;;; pypunct-b5.el --- Quail packages for Chinese (pinyin + extra symbols) ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, ;; 2006, 2007, 2008, 2009, 2010, 2011 @@ -34,9 +34,9 @@ (load "quail/Punct-b5") (quail-define-package - "chinese-py-punct-b5" "Chinese-BIG5" "$(03<>K(B" + "chinese-py-punct-b5" "Chinese-BIG5" "拼符" t - "$(0&d'GTT&,!J3<5x!K(B and `v' for $(0O:X5>KHATT&,(B + "中文輸入【拼音】 and `v' for 標點符號輸入 This is the combination of the input method `chinese-py-b5' and `chinese-punct-b5'. @@ -45,7 +45,7 @@ You can enter normal Chinese characters by the same way as `chinese-py-b5'. And, you can enter symbols by typing `v' followed by any key sequences defined in `chinese-punct-b5'. -For instance, typing `v' and `%' insert `$(0"h(B'. +For instance, typing `v' and `%' insert `%'. ") (setcar (nthcdr 2 quail-current-package) -- 2.39.5