;ELC ;;; Compiled by dan@wayne.mit.edu on Wed Apr 21 21:02:05 2004 ;;; from file /usr/pkgsrc-current/inputmethod/skk/work.bondage/ddskk-12.2.0/skk-kcode.el ;;; in Emacs version 21.3.1 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file contains multibyte non-ASCII characters ;;; and therefore cannot be loaded into Emacs 19. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "20"))) (error "`skk-kcode.el' was compiled for Emacs 20 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@99 7bit ’€β’€·’€―’€Ο 8bit ’€β’€·’€―’€Ο ’Άθ’Εΐ’₯³’‘Ό’₯Ι’€Λ’ΒΠ’±ώ’€Ή’€λ 2byte ’ΚΈ’»ϊ’€ς’Αή’Ζώ’€Ή’€λ’‘£ (defalias 'skk-input-by-code-or-menu #[(&optional arg) "\203=\306\307\310\311 \"\n\312\313$!\211\306\314!=\204< \211\2119\205&\315\f\303N!*\204:\316\317 \2034\320\2025\321\"\210\202< )\322\310\323 \"!\313\312\211()*+\324\325+\"\203o\326\327\330+\"!\331\\)\326\327\332+\"!\331\\(\202\251+\314\230\203z\333\202\212\334+\335H\336\"\337_\334+\330H!\\)+\314\230\203\227\333\202\247\334+\332H\336\"\337_\334+\340H!\\()\341V\204\267(\341V\203\304\316\317 \203\301\342\202\302\343\"\210)\331V\203\324\344)(\"\202\332\345)(\"c\210,\346=\205\345\347 ,\207" [arg skk-kcode-charset skk-kcode-charset-list charset object skk-japanese-message-and-error intern completing-read format "CHARSET(%s): " nil t "" vectorp error "%s" "’Μ΅’Έϊ’€Κ’₯­’₯γ’₯ι’₯―’₯Ώ’‘Ό’₯»’₯Γ’₯Θ’€Η’€Ή" "Invalid charset" read-string "7/8 bits or KUTEN code for %s (00nn or CR for Jump Menu): " string-match "\\(.+\\)-\\(.+\\)" string-to-number match-string-no-properties 1 160 2 128 skk-char-to-hex 0 jis 16 3 256 "’Μ΅’Έϊ’€Κ’₯³’‘Ό’₯Ι’€Η’€Ή" "Invalid code" skk-make-string skk-input-by-code-or-menu-0 active skk-kakutei n2 n1 enable-recursive-minibuffers str skk-henkan-mode] 7 (#$ . 644) "*P"]) (defalias 'skk-char-to-hex #[(char &optional jischar) "\303X\203\304V\203\305Z\207\306X\203 \307V\203 \310Z\207\311X\2038\312V\2038 \2034\313Z\207\314Z\207\315\n\203A\316\202B\317\"\207" [char jischar skk-japanese-message-and-error 102 96 87 70 64 55 57 47 40 48 error "%c ’€ς 16 ’ΏΚ’Ώτ’€Λ’ΚΡ’΄Ή’€Η’€­’€ή’€»’€σ" "Cannot convert %c to hexadecimal number"] 3]) (defalias 'skk-make-string #[(n1 n2) "\303\304 \n#!\207" [skk-kcode-charset n1 n2 char-to-string skk-make-char] 5]) (defalias 'skk-make-char #[(charset n1 n2) "\303\304!\305H \n#\207" [charset n1 n2 make-char-internal charset-info 0] 4]) (defalias 'skk-next-n2-code #[(n) "T\211 X\203 \207\n\207" [n skk-code-n2-max skk-code-n2-min] 2]) (defalias 'skk-previous-n2-code #[(n) " S\211X\203 \207\n\207" [skk-code-n2-min n skk-code-n2-max] 3]) (defalias 'skk-next-n1-code #[(n) "T\211 X\203 \207\n\207" [n skk-code-n1-max skk-code-n1-min] 2]) (defalias 'skk-previous-n1-code #[(n) " S\211X\203 \207\n\207" [skk-code-n1-min n skk-code-n1-max] 3]) (defalias 'skk-input-by-code-or-menu-0 #[(n1 n2) " U\203\n\303\n!\207\304\n\"\207" [n1 skk-code-null n2 skk-input-by-code-or-menu-jump skk-input-by-code-or-menu-1] 3]) (defalias 'skk-input-by-code-or-menu-jump #[(n) "\306\307\"\310 \fW\203  \204\233 \311 \f\" \fE\311 \312\" \312E\311 \313\" \313E\311 \314\" \314E\311 \315\" \315E\311 \316\" \316E\317 !\311 \f\" \fE\311 \312\" \312E\311 \313\" \313E\311 \314\" \314E\311 \315\" \315E\311 \316\" \316E\257\f-.\320 /\321\216\322\310\21101\2112\323W\203\24202\n8\3242-8@\325\26002T\2112\202\202\326\3270\"\210+\330\331 !\310\211345\3325!\204\333\3266\203\306\333\202\307\334\3355!\"\210\336\337!\210\326\340!\210.\202\2265>\20655\3415X\205\361\3425Y)\203\3755\226>\2025\227>\2114\205\3234GZ-8\2113\2033\202\2255\343=\2034.\344Z\211\fW\20307\310\202\2255\345=\203C\317 !\310\202\2255\346=\203z\3266\203T\347\202U\350-@@.\f.\f.\351Z\f\351Z.\351Z\f\351Z&\n\210\331 \210.\310\202\225\3266\203\204\352\202\205\3535\"\210\336\337!\210\326\340!\210.\310.\202 A@\354 A@ AA@\"*\207" [skk-input-by-code-menu-keys1 kanji-char menu-keys1 n skk-code-n1-min skk-input-by-code-or-menu-jump-default mapcar #[(char) "\301\226!\207" [char char-to-string] 2] nil skk-make-string 177 193 209 225 241 skk-next-n1-code point-marker ((byte-code "b\210\204\n\301 \302\211\223\207" [skk-save-point make-marker nil] 3)) 0 12 ":" " " message "%s" event-to-character next-command-event characterp "`%s' ’€Ο’Ν­’Έϊ’€Κ’₯­’‘Ό’€Η’€Ο’€’’€κ’€ή’€»’€σ’‘ͺ" "`%s' is not valid here!" prin1 sit-for 1 "" 97 122 120 2 32 63 "`%s' EUC: %2x%2x (%3d, %3d), JIS: %2x%2x (%3d, %3d) [’²Ώ’€«’₯­’‘Ό’€ς’²‘’€·’€Ζ’€―’€ΐ’€΅’€€]" "\n`%s' EUC: %2x%2x (%3d, %3d), JIS: %2x%2x (%3d, %3d) [Hit any key to continue]" 128 "`%c' ’€Ο’Ν­’Έϊ’€Κ’₯­’‘Ό’€Η’€Ο’€’’€κ’€ή’€»’€σ’‘ͺ" "`%c' is not valid here!" skk-input-by-code-or-menu-1 chars n-org skk-save-point str message-log-max i ch rest char skk-japanese-message-and-error skk-code-n1-max] 16]) (defalias 'skk-input-by-code-or-menu-1 #[(n1 n2) "\306\307\"\310 \204\305 \f\311\312 \f\"C,-.,\313W\203A \314\f!\211/U\2031\315 !\312 \f\"C\244\210,T\211,\202\316 0\317\216\311\310\21112\211,\313W\203o1,\n8\320, 8\321\2601,T\211,\202Q\3221!\210+\323\324 !\310\211345\3255!\204\252\3226\203\222\326\202\223\327\3305!\"\210\331\332!\210\322\333!\210.-\202\3005>\206\32155\3345X\205\300\3355Y)\203\3145\226>\202\3215\227>\2114\205\336\3134GZ 8\2113\203\3513\202\2775\336=\203\f\337Z\211/W\203\f\340\\\341 !\310\202\2775\342=\203!\314\f!\211/U\203\315 !\310\202\2775\343=\203]\3226\2032\344\2023\345 @.-.-.\346Z-\346Z.\346Z-\346Z&\n\210\324 \210.-\310\202\2775\347=\203\314-!\211/U\203x\315.!\202{.\310\202\2775\350=\203\241\351-!\2117U\203\232\341.!\202\235.\310\202\277\3226\203\253\352\202\254\3535\"\210\331\332!\210\322\333!\210.-\310. \202 *\207" [skk-input-by-code-menu-keys2 kanji-char menu-keys2 n1 n2 chars mapcar #[(char) "\301\226!\207" [char char-to-string] 2] nil 0 skk-make-string 16 skk-next-n2-code skk-next-n1-code point-marker ((byte-code "b\210\204\n\301 \302\211\223\207" [skk-save-point make-marker nil] 3)) ":" " " message event-to-character next-command-event characterp "`%s' ’€Ο’Ν­’Έϊ’€Κ’₯­’‘Ό’€Η’€Ο’€’’€κ’€ή’€»’€σ’‘ͺ" "`%s' is not valid here!" prin1 sit-for 1 "" 97 122 120 31 94 skk-previous-n1-code 32 63 "`%s' EUC: %2x%2x (%3d, %3d), JIS: %2x%2x (%3d, %3d) [’²Ώ’€«’₯­’‘Ό’€ς’²‘’€·’€Ζ’€―’€ΐ’€΅’€€]" "`%s' EUC: %2x%2x (%3d, %3d), JIS: %2x%2x (%3d, %3d) [Hit any key to continue]" 128 62 60 skk-previous-n2-code "`%c' ’€Ο’Ν­’Έϊ’€Κ’₯­’‘Ό’€Η’€Ο’€’’€κ’€ή’€»’€σ’‘ͺ" "`%c' is not valid here!" i n2-org n1-org skk-code-n2-min skk-save-point str message-log-max ch rest char skk-japanese-message-and-error skk-code-n2-max] 13]) #@81 ’₯έ’₯€’₯σ’₯Θ’€Λ’€’’€λ’ΚΈ’»ϊ’€Ξ EUC ’₯³’‘Ό’₯Ι’€Θ JIS ’₯³’‘Ό’₯Ι’€ς’Ι½’Ό¨’€Ή’€λ’‘£ (defalias 'skk-display-code-for-char-at-point #[(&optional arg) "m\203\302\303\203\304\202\305\"\210\306\307`\310 \311\216\312u\210`*\"!\210\313\207" [skk-japanese-message-and-error skk-save-point error "%s" "’₯«’‘Ό’₯½’₯λ’€¬’₯Π’₯Γ’₯Υ’₯‘’€Ξ’½ͺ’ΓΌ’€Λ’€’’€κ’€ή’€Ή" "Cursor is at the end of the buffer" skk-display-code buffer-substring-no-properties point-marker ((byte-code "b\210\204\n\301 \302\211\223\207" [skk-save-point make-marker nil] 3)) 1 t] 4 (#$ . 6917) "P"]) (defalias 'skk-display-code #[(str) "\306!\307 !\211\310>\203\221 \311\312\f \"*\211\313Z \314\\ \315\312\f \"*\211\313Z\314\\\n\316=\203F\317 \"\202K\320 \"\211@ \211!A@)\"\n\316=\203x\321\322  \"&\n\202\214\321\323  \"&\n. \202\275\n\324>\203\260\321\325 \311\312\f \"* \311\312\f \"*$\202\275\326\327#\203\273\330\202\274\331\"*\207" [str char charset n ch char1-j string-to-char char-charset (japanese-jisx0213-1 japanese-jisx0213-2 japanese-jisx0208 japanese-jisx0208-1978) 0 char-octet 32 128 1 japanese-jisx0213-2 skk-jis2sjis2 skk-jis2sjis message "`%s' (plane 2) KUTEN: %02d-%02d, JIS: %2x%2x, EUC: %2x%2x, SJIS: %2x%2x" "`%s' KUTEN: %02d-%02d, JIS: %2x%2x, EUC: %2x%2x, SJIS: %2x%2x" (ascii latin-jisx0201) "`%s' %2x (%3d)" error "%s" "’Θ½’ΚΜ’€Η’€­’€Κ’€€’ΚΈ’»ϊ’€Η’€Ή" "Cannot understand this character" char1-k char1-e char2-j char2-k char2-e sjis char1-s x char2-s skk-japanese-message-and-error] 12]) (defalias 'skk-jis2sjis #[(char1 char2) "\306\245\306_=\203 \307\\\202 \310\\\211\311Y\203\nT\202 \n\312Z\306\245\313\\\211\314V\2035\f\315\\\2026\f\211 ,D\207" [char1 char2 ch2 c2 ch1 c1 2 125 31 127 33 129 159 64] 3]) (defalias 'skk-sjis2jis #[(char1 char2) "\306X\203\307Z\310_T\202\311Z\310_T\n\312V\203!\nS\202\"\n\211\313Y\203/ \314Z\2022 \315Z \312V\203> T\202? \211\f,D\207" [char1 ch1 char2 ch2 c2 c1 159 113 2 177 127 158 125 31] 3]) (defalias 'skk-jis2sjis2 #[(char1 char2) "\306\245\306_=\203 \307\\\202 \310\\\211\311Y\203\nT\202 \n\312Z\211\313X\2039\f\314\\\306\245\f\315\245\316_Z\202>\f\317\\\306\245\211 ,D\207" [char1 char2 ch2 c2 ku c1 2 125 31 127 32 15 479 8 3 411] 4]) (byte-code "\301\302!\210\303\300!\210\303\304!\210\305\306\307!\300\310\311!\312\313\"\210\314\306\307!\"\210\315!\313\232\203-\2028\316\311\317\313\320\317\211\211\321&)#\210\306\307!\207" [product run-hooks skk-kcode-load-hook require skk-version put provide skk-kcode product-find-by-name "Daredevil SKK" product-run-checkers (12 2 0) product-add-feature product-version vector nil "Sone" "12.2.0"] 12)