;ELC ;;; compiled by handa@tsingyi.etl.go.jp on Wed Aug 19 12:39:56 1998 ;;; from file /net/mulelab/export/dist/mule-2.3-19.34/lisp/mule-init.el ;;; emacs version 19.34. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`mule-init.el' was compiled for Emacs 19.29 or later")) (byte-code " # ## # # # # #\"#" [define-program-coding-system nil ".*mail.*" *junet* ".*inews.*" define-service-coding-system "nntp" *junet*unix ".*scan.*" ".*inc.*" ".*mhl.*" ".*anno.*" ".*rcvstore.*" (lambda nil (set-file-coding-system *junet*)) mh-before-send-letter-hook add-hook vm-mode-hooks (lambda nil (set-file-coding-system *junet*)) "wnn" *noconv* "/usr/lib/news/inews" news-inews-program #[nil "?\f\n!\f!" [window-system set-display-coding-system display-coding-system set-keyboard-coding-system keyboard-coding-system] 2] term-setup-hook] 4) (defalias 'set-arabic-environment #[nil "!" [load "arabic"] 2]) (byte-code "#\n \f͉͉ &%##!P!P!!!B!\"\"\"\"\"\"\"\"\"\"\"\"\"" [put arabic primary-function set-arabic-environment make-coding-system *euc-china* 2 67 "Coding-system of Chinese EUC (Extended Unix Code)." t lc-ascii lc-cn lc-sisheng nil ascii-eol ascii-cntl *hz* 0 118 "Codins-system of Hz/ZW used for Chinese." post-read-conversion hz2gb-region pre-write-conversion gb2hz-region boundp EGG WNN cserver wnn-server-type load "its/pinyin" its:get-mode-map "PinYin" its:*standard-modes* add-hook quail-package-alist ("py" "quail/py") ("qj" "quail/qj") ("punct" "quail/punct") ("sw" "quail/sw") ("tonepy" "quail/tonepy") ("ccdospy" "quail/ccdospy") ("ctlau" "quail/ctlau") ("py-b5" "quail/py-b5") ("qj-b5" "quail/qj-b5") ("punct-b5" "quail/punct-b5") ("ctlaub" "quail/ctlaub") ("zozy" "quail/zozy") ("etzy" "quail/etzy")] 17) #@77 CCL program convert internal Big5 code (level1) to code point of Big5 font. (defconst ccl-internal-to-big5-1 [0 28 250 161 1 24311 2 505 0 1850 161 1 506 157 3 1818 161 0 40247 4 6716 63 16 16439 0 7172 25143 0 22] (#$ . 2109)) #@80 CCL program to convert internal Big5 code (level2) to code point of Big5 font. (defconst ccl-internal-to-big5-2 [0 30 250 161 1 24311 2 505 0 41463 1 1850 6280 0 506 157 3 1818 161 0 40247 4 7228 63 16 16439 0 7684 25143 0 22] (#$ . 2343)) (byte-code "! \f\" \"" [fboundp x-synchronize x-set-ccl lc-big5-1 ccl-internal-to-big5-1 lc-big5-2 ccl-internal-to-big5-2] 3) #@52 CCL program to convert Big5 code to internal code. (defconst ccl-big5-to-internal [0 44 3868 201 16 250 161 1 40439 2 1883 1 0 38912 6148 250 201 1 40439 2 1883 1 0 39168 7740 127 16 16471 1 8196 25175 1 762 94 3 1850 161 0 762 94 4 1882 161 0 22] (#$ . 2728)) (defalias 'set-chinese-environment #[nil "!!!!!!\"\"\"" [load "chinese" *euc-china* *coding-category-iso-8-2* set-coding-priority (*coding-category-iso-8-2* *coding-category-big5* *coding-category-iso-8-1*) set-default-file-coding-system display-coding-system keyboard-coding-system boundp EGG set-default its:*current-map* its:get-mode-map "PinYin" quail-current-package assoc "py" quail-package-alist] 5]) (byte-code "#\n ɉɉ &\"\"\"\"\"\"" [put chinese primary-function set-chinese-environment make-coding-system *iso-8859-5* 2 53 "MIME ISO-8859-5" nil lc-ascii lc-crl ascii-eol ascii-cntl add-hook quail-package-alist ("jcuken" "quail/cyrillic") ("macedonian" "quail/cyrillic") ("serbian" "quail/cyrillic") ("beylorussian" "quail/cyrillic") ("ukrainian" "quail/cyrillic") ("yawerty" "quail/cyrillic")] 17) (defalias 'set-cyrillic-environment #[nil "!! \"\"" [*iso-8859-5* *coding-category-iso-8-1* set-coding-priority (*coding-category-iso-8-1* *coding-category-iso-8-2*) set-default-file-coding-system display-coding-system keyboard-coding-system set-default quail-current-package assoc "yawerty" quail-package-alist] 5]) (byte-code "#\" !\"" [put cyrillic primary-function set-cyrillic-environment define-category-mnemonic 69 "Ethiopic (Ge'ez) character." modify-category-entry make-character lc-ethio] 4) (defconst ccl-x-ethio [0 18 41239 1 41271 1 24087 2 57 0 3900 256 16 0 4612 65591 1 256 22] nil) (byte-code "! \f\"\"" [fboundp x-synchronize x-set-ccl lc-ethio ccl-x-ethio add-hook quail-package-alist ("ethio" "quail/ethio")] 3) (defalias 'set-ethio-environment #[nil "\f\"\"" [set-default quail-current-package assoc "ethio" quail-package-alist] 5]) (byte-code "#\n ɉɉ &\nɉɉ &\nɉɉ &\nɉɉ &\"\"\"\"\"" [put ethio primary-function set-ethio-environment make-coding-system *iso-8859-2* 2 50 "MIME ISO-8859-2" nil lc-ascii lc-ltn2 ascii-eol ascii-cntl *iso-8859-3* 51 "MIME ISO-8859-3" lc-ltn3 *iso-8859-4* 52 "MIME ISO-8859-4" lc-ltn4 *iso-8859-9* 57 "MIME ISO-8859-9" lc-ltn5 add-hook quail-package-alist ("latin-1" "quail/latin") ("latin-2" "quail/latin") ("latin-3" "quail/latin") ("latin-4" "quail/latin") ("latin-5" "quail/latin")] 17) (defalias 'set-european-environment #[nil "!! \"\"" [*iso-8859-1* *coding-category-iso-8-1* set-coding-priority (*coding-category-iso-8-1* *coding-category-iso-8-2*) set-default-file-coding-system display-coding-system keyboard-coding-system set-default quail-current-package assoc "latin-1" quail-package-alist] 5]) (byte-code "#\n ɉɉ &\"" [put european primary-function set-european-environment make-coding-system *iso-8859-7* 2 55 "MIME ISO-8859-7" nil lc-ascii lc-grk ascii-eol ascii-cntl add-hook quail-package-alist ("greek" "quail/greek")] 17) (defalias 'set-greek-environment #[nil "!! \"\"" [*iso-8859-7* *coding-category-iso-8-1* set-coding-priority (*coding-category-iso-8-1* *coding-category-iso-8-2*) set-default-file-coding-system display-coding-system keyboard-coding-system set-default quail-current-package assoc "greek" quail-package-alist] 5]) (byte-code "#\n ɉɉί\f&\n ɉɉ &\"" [put greek primary-function set-greek-environment make-coding-system *iso-8859-8* 2 56 "MIME ISO-8859-8" nil lc-ascii lc-hbw ascii-eol ascii-cntl t *ctext-hebrew* 72 "Coding-system of Hebrew." add-hook quail-package-alist ("hebrew" "quail/hebrew")] 18) (defalias 'set-hebrew-environment #[nil "!! \"\"" [*iso-8859-8* *coding-category-iso-8-1* set-coding-priority (*coding-category-iso-8-1* *coding-category-iso-8-2*) set-default-file-coding-system display-coding-system keyboard-coding-system set-default quail-current-package assoc "hebrew" quail-package-alist] 5]) (byte-code "#\" \"\" \"\" \"\"\" \"\"\" \"\"\" \"\"\" \"\"\" \"\"\" \"\" W  \"\" T ~)##@\"#@\"#A#)##@\"#A#)%!\"'(B('!+- 68:!L>@!A!B!C!DEF!EG!EH!EI!EJ!EK!L\"L" [put hebrew primary-function set-hebrew-environment define-category-mnemonic 83 "Japanese 2-byte symbol character." modify-category-entry make-character lc-jp 161 162 168 65 "Japanese 2-byte Alpha numeric character." 163 72 "Japanese 2-byte Hiragana character." 164 75 "Japanese 2-byte Katakana character." 165 71 "Japanese 2-byte Greek character." 166 89 "Japanese 2-byte Cyrillic character." 167 67 "Japanese 2-byte Kanji characters." 176 177 c 256 (53436 53419 53420) chars (53427 53428 53429 53430 53431 53432 53433 53434 53435) lc-jp2 (([".A.A ).H).H .K.K ).H .C.C ).H .H .k).k !)! " "" "" ""] . [".H.H .A).A .A .H.H .K).K .K .H.H .C).C .C .H).H .k).k !)! " "" "" ""]) ([".A*.H*" "" "" ""] . [".A*" "" "" ""]) ([".H*" "" "" ""] . [".H*" "" "" ""]) ([".K*.H*" "" "" ""] . [".K*" "" "" ""]) ([".C*.H*" "" "" ""] . [".C*" "" "" ""]) ([".k*" "" "" ""] . [".k*" "" "" ""]) (["!*" "" "" ""] . ["!*" "" "" ""])) japanese-word-regexp current-load-list set-word-regexp "\\w\\>" forward-word-regexp "\\<\\w" backward-word-regexp "\\(" "[.?!][]\"')}]*" "\\|" "[][ϒɒǒ˒ђ͒ӒՒג]*" "\\)" "\\($\\| \\| \\)" "" "[ \n]*" sentence-end "^[ \n\f]" paragraph-start "^[ \f]*$" paragraph-separate boundp EGG jserver wnn-server-type load "its/hira" "its/kata" "its/hankaku" "its/zenkaku" append its:get-mode-map "roma-kana" "roma-kata" "downcase" "upcase" "zenkaku-downcase" "zenkaku-upcase" its:*standard-modes*] 12) (defalias 'set-japanese-environment #[nil "!!!!\"=7!!!\"" [*euc-japan* *coding-category-iso-8-2* set-coding-priority (*coding-category-iso-8-2* *coding-category-sjis* *coding-category-iso-8-1* *coding-category-big5*) *junet* keyboard-coding-system display-coding-system set-default-file-coding-system boundp EGG set-default its:*current-map* its:get-mode-map "roma-kana" system-type ms-dos set-keyboard-coding-system *sjis*dos set-display-coding-system set-default-process-coding-system] 4]) (byte-code "#\"\"\"\"" [put japanese primary-function set-japanese-environment add-hook quail-package-alist ("hangul" "quail/hangul") ("hangul3" "quail/hangul3") ("hanja-jis" "quail/hanja-jis") ("hanja-ksc" "quail/hanja-ksc")] 4) (defalias 'set-korean-environment #[nil "!!\n\"\"" [*euc-korea* *coding-category-iso-8-2* set-coding-priority (*coding-category-iso-8-2* *coding-category-iso-8-1*) set-default-file-coding-system *iso-2022-kr* set-default quail-current-package assoc "hangul" quail-package-alist] 5]) (byte-code "#\n \fί&##\"" [put korean primary-function set-korean-environment make-coding-system *tis620* 2 84 "Coding-system used for ASCII(MSB=0) & TIS620(MSB=1)." t lc-ascii lc-thai lc-invalid nil ascii-eol post-read-conversion thai-compose-region pre-write-conversion decompose-region add-hook quail-package-alist ("thai" "quail/thai")] 12) (defalias 'set-thai-environment #[nil "!! \"\"" [*tis620* *coding-category-iso-8-1* set-coding-priority (*coding-category-iso-8-1* *coding-category-iso-8-2*) set-default-file-coding-system set-default quail-current-package assoc "thai" quail-package-alist] 5]) (byte-code "#\" !\"\n!\"" [put thai primary-function set-thai-environment define-category-mnemonic 118 "Vietnamese character." modify-category-entry make-character lc-vn-1 lc-vn-2] 4) #@32 CCL program to read VISCII 1.1 (defconst ccl-read-viscii [3 261 14 780 256 0 1 6598 3 4 6599 6631 7 8 9 10 11 12 13 14 15 16 17 18 19 6614 21 22 23 24 6619 26 27 28 29 6620 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 6613 6561 6562 6563 6564 6565 6566 6567 6568 6569 6570 6571 6572 6573 6574 6575 6576 6577 6578 6581 6654 6590 6582 6583 6584 6646 6647 6639 6652 6651 6648 6607 6645 6433 6434 6435 6436 6437 6438 6439 6440 6441 6442 6443 6444 6445 6446 6447 6448 6449 6450 6622 6589 6453 6454 6455 6456 6641 6609 6615 6616 6461 6462 6623 6624 6625 6626 6627 6628 6629 6470 6471 6632 6633 6634 6635 6636 6637 6638 6479 6640 6481 6642 6643 6644 6485 6486 6487 6488 6649 6650 6491 6492 6653 6494 6495 6496 6497 6498 6499 6500 6501 6502 6503 6504 6505 6506 6507 6508 6509 6510 6511 6512 6513 6514 6515 6516 6517 6518 6519 6520 6521 6522 6523 6524 6525 6526 6630 22] (#$ . 21593)) #@33 CCL program to write VISCII 1.1 (defconst ccl-write-viscii [1 224 14 2076 128 16 775 57348 3356 154 21 775 57348 30238 162 18 14 40983 1 780 96 0 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 0 0 181 182 183 184 0 0 0 0 189 190 0 0 0 0 0 0 0 198 199 0 0 0 0 0 0 0 207 0 209 0 0 0 213 214 215 216 0 0 219 220 0 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 0 57348 57116 163 18 14 40983 1 780 96 0 129 130 131 132 165 134 135 136 137 138 139 140 141 142 143 144 145 146 0 0 147 150 151 152 0 0 0 0 180 149 0 0 0 0 0 0 0 2 5 0 0 0 0 0 0 0 159 0 186 0 0 0 128 20 187 188 0 0 25 30 0 179 191 192 193 194 195 196 197 255 6 200 201 202 203 204 205 206 155 208 185 210 211 212 160 153 154 158 217 218 157 156 221 148 0 57348 775 22] (#$ . 22749)) (byte-code "B&%##" [make-coding-system *viscii* 4 86 "Coding-system used for VISCII 1.1." t ccl-read-viscii ccl-write-viscii *viqr* 0 118 "Codins-system used for VIQR." nil put post-read-conversion vn-compose-viqr pre-write-conversion vn-decompose-viqr] 8) #@30 CCL program to read VSCII-1. (defconst ccl-read-vscii [3 261 14 780 256 0 6650 6648 3 6615 6616 6630 7 8 9 10 11 12 13 14 15 16 6609 6623 6607 6614 6619 6653 6620 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 6624 6628 6627 6625 6613 6563 6567 6632 6635 6568 6633 6569 6574 6636 6639 6638 6637 6584 6642 6646 6645 6643 6647 6581 6582 6583 6622 6590 6654 6649 6652 6651 160 6629 6626 6634 6644 6589 6623 6640 6501 6498 6506 6516 6462 6521 6512 6562 192 193 194 195 196 6496 6500 6499 6497 6485 6598 6434 6470 6471 6433 6599 6561 6565 6566 6631 6565 6571 6435 6437 6438 6503 6436 6439 6504 6572 6507 6440 6505 6441 6443 6444 6445 6442 6446 6508 6511 6573 6570 6576 6510 6509 6456 6514 6577 6518 6517 6515 6519 6448 6449 6450 6447 6453 6454 6455 6494 6462 6526 6521 6578 6524 6523 6522 6520 6487 6488 6502 6481 6513 6479 6486 6491 6525 6492 6575 22] (#$ . 23893)) #@31 CCL program to write VSCII-1. (defconst ccl-write-vscii [1 224 14 2076 128 16 775 57348 3356 154 21 775 57348 30238 162 18 14 40983 1 780 96 0 190 187 198 202 199 200 203 207 209 213 210 211 212 214 232 229 230 231 0 0 233 234 235 222 0 0 0 0 0 237 0 0 0 0 0 0 0 188 189 0 0 0 0 0 0 0 250 0 248 0 0 0 185 251 245 246 0 0 252 254 0 236 0 181 184 169 183 182 168 247 201 204 208 170 206 215 221 220 216 174 249 223 227 171 226 225 228 244 239 243 242 241 253 238 0 57348 57116 163 18 14 40983 1 780 96 0 192 175 133 0 196 194 134 137 139 218 197 205 217 140 255 219 224 240 0 0 151 152 153 145 0 0 0 0 165 155 0 0 0 0 0 0 0 186 191 0 0 0 0 0 0 0 19 0 17 0 0 0 132 20 4 5 0 0 21 23 0 154 166 128 131 162 130 129 161 6 195 135 138 163 136 141 144 143 142 167 0 146 149 164 148 147 150 2 157 1 159 158 22 156 0 57348 775 22] (#$ . 25054)) (byte-code "B&" [make-coding-system *vscii* 4 86 "Coding-system used for VSCII-1." t ccl-read-vscii ccl-write-vscii] 8) #@60 CCL program to convert chars of lc-vn-1 to VISCII 1.1 font (defconst ccl-x-vn-1-viscii [0 260 291 256 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 0 0 181 182 183 184 0 0 0 0 189 190 0 0 0 0 0 0 0 198 199 0 0 0 0 0 0 0 207 0 209 0 0 0 213 214 215 216 0 0 219 220 0 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 0 22] (#$ . 26026)) #@60 CCL program to convert chars of lc-vn-2 to VISCII 1.1 font (defconst ccl-x-vn-2-viscii [0 260 291 256 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 0 0 147 150 151 152 0 0 0 0 180 149 0 0 0 0 0 0 0 2 5 0 0 0 0 0 0 0 159 0 186 0 0 0 128 20 187 188 0 0 25 30 0 179 191 192 193 194 195 196 197 255 6 200 201 202 203 204 205 206 155 208 185 210 211 212 160 153 154 158 217 218 157 156 221 148 0 22] (#$ . 26798)) #@58 CCL program to convert chars of lc-vn-1 to VSCII-1 font. (defconst ccl-x-vn-1-vscii [0 260 291 256 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 190 187 198 202 199 200 203 207 209 213 210 211 212 214 232 229 230 231 0 0 233 234 235 222 0 0 0 0 0 237 0 0 0 0 0 0 0 188 189 0 0 0 0 0 0 0 250 0 248 0 0 0 185 251 245 246 0 0 252 254 0 236 0 181 184 169 183 182 168 247 201 204 208 170 206 215 221 220 216 174 249 223 227 171 226 225 228 244 239 243 242 241 253 238 0 22] (#$ . 27561)) #@58 CCL program to convert chars of lc-vn-2 to VSCII-1 font. (defconst ccl-x-vn-2-vscii [0 260 291 256 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 192 175 133 0 196 194 134 137 139 218 197 205 217 140 255 219 224 240 0 0 151 152 153 145 0 0 0 0 165 155 0 0 0 0 0 0 0 186 191 0 0 0 0 0 0 0 19 0 17 0 0 0 132 20 4 5 0 0 21 23 0 154 166 128 131 162 130 129 161 6 195 135 138 163 136 141 144 143 142 167 0 146 149 164 148 147 150 2 157 1 159 158 22 156 0 22] (#$ . 28326)) (byte-code "! \f\" \"\"" [fboundp x-synchronize x-set-ccl lc-vn-1 ccl-x-vn-1-viscii lc-vn-2 ccl-x-vn-2-viscii add-hook quail-package-alist ("viqr" "quail/viet")] 3) (defalias 'set-viet-environment #[nil "!! \"\"" [*viscii* *coding-category-bin* set-coding-priority (*coding-category-bin*) set-default-file-coding-system set-default quail-current-package assoc "viqr" quail-package-alist] 5]) (byte-code "#\"!" [put viet primary-function set-viet-environment add-hook quail-package-alist ("ipa" "quail/ipa") set-primary-environment japanese] 4)