;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:12:50 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/language/japanese.el
;;; in Emacs version 24.3
;;; with all optimizations.

;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
     (< (aref emacs-version (1- (length emacs-version))) ?A)
     (string-lessp emacs-version "23")
     (error "`%s' was compiled for Emacs 23 or later" #$))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\304\305!\210\304\306!\210\307\310\311\312\313\314\315\316\317\320\321\322\323\324\310\325\326&\210\327\330\310\"\210\307\331\332\312\313\314\315\316\333\320\334\322\335\324\331\325\326&\210\336\337\340\"\210\341\342\"\210\337\343\"\210)\337\344\345\"\210\337\346\347\"\210\307\350\351\312\352\314\353\322\354\324\355&\n\210\327\355\350\"\210\327\356\350\"\210\307\357\360\312\361\314\353\322\362&\210\327\363\357\"\210\307\364\365\312\313\314\366\316\367\320\370\322\371&\f\210\327\372\364\"\210\327\373\364\"\210\307\374\375\312\313\314\376\316\377\320\201@\322\201A\324\201B&\210\327\201C\374\"\210\327\201D\374\"\210\327\201B\374\"\210\307\201E\201F\312\313\314\376\316\201G\320\201H\322\201I\201J\201K\201L\201M&\210\307\201N\201O\312\313\314\315\316\201P\320\201Q\322\201R\324\201N\325\326&\210\327\201S\201N\"\210\307\201T\201U\312\313\314\376\316\201V\320\201W\322\201X\324\201T&\210\327\201Y\201T\"\210\307\201Z\201[\312\352\314\353\322\201\\&\210\327\201]\201Z\"\210\201^\201_\201`\"\210\201a\201b\211\201b\211\203\205
@\211\201c\201d\n@\"\240\210A\211\204o
*\201e!\337\201f	\"\210\337\201g\201h	\201i\"\"\210*\201b\207" [map table elt --dolist-tail-- load "international/cp51932" "international/eucjp-ms" define-coding-system iso-2022-jp "ISO 2022 based 7bit encoding for Japanese (MIME:ISO-2022-JP)." :coding-type iso-2022 :mnemonic 74 :designation [(ascii japanese-jisx0208-1978 japanese-jisx0208 latin-jisx0201) nil nil nil] :flags (short ascii-at-eol ascii-at-cntl 7-bit designation) :charset-list (ascii japanese-jisx0208 japanese-jisx0208-1978 latin-jisx0201) :mime-charset :suitable-for-keyboard t define-coding-system-alias junet iso-2022-jp-2 "ISO 2022 based 7bit encoding for CJK, Latin-1, Greek (MIME:ISO-2022-JP-2)." [(ascii japanese-jisx0208-1978 japanese-jisx0208 latin-jisx0201 japanese-jisx0212 chinese-gb2312 korean-ksc5601) nil (nil latin-iso8859-1 greek-iso8859-7) nil] (short ascii-at-eol ascii-at-cntl 7-bit designation single-shift init-at-bol) (ascii japanese-jisx0208 japanese-jisx0212 latin-jisx0201 japanese-jisx0208-1978 chinese-gb2312 korean-ksc5601 latin-iso8859-1 greek-iso8859-7) ((12316 . 65374) (8212 . 8213) (8214 . 8741) (8722 . 65293) (162 . 65504) (163 . 65505) (172 . 65506) (166 . 65508)) define-translation-table japanese-ucs-jis-to-cp932-map mapc #[(x) "@\211A\240\210	\241)\207" [x tmp] 2] japanese-ucs-cp932-to-jis-map japanese-ucs-glibc-to-jis-map ((8213 . 8212)) japanese-ucs-jis-to-glibc-map ((8212 . 8213)) japanese-shift-jis "Shift-JIS 8-bit encoding for Japanese (MIME:SHIFT_JIS)" shift-jis 83 (ascii katakana-jisx0201 japanese-jisx0208) shift_jis sjis japanese-cp932 "CP932 (Microsoft shift-jis)" charset (ascii katakana-sjis cp932-2-byte) cp932 japanese-iso-7bit-1978-irv "ISO 2022 based 7-bit encoding for Japanese JISX0208-1978 and JISX0201-Roman." 106 [(latin-jisx0201 japanese-jisx0208-1978 japanese-jisx0208 japanese-jisx0212 katakana-jisx0201) nil nil nil] (short ascii-at-eol ascii-at-cntl 7-bit designation use-roman use-oldjis) (ascii latin-jisx0201 japanese-jisx0208-1978 japanese-jisx0208 japanese-jisx0212) iso-2022-jp-1978-irv old-jis japanese-iso-8bit "ISO 2022 based EUC encoding for Japanese (MIME:EUC-JP)." 69 [ascii japanese-jisx0208 katakana-jisx0201 japanese-jisx0212] (short ascii-at-eol ascii-at-cntl single-shift) (ascii latin-jisx0201 japanese-jisx0208 katakana-jisx0201 japanese-jisx0212 japanese-jisx0208-1978) euc-jp euc-japan-1990 euc-japan eucjp-ms "eucJP-ms (like EUC-JP but with CP932 extension).\neucJP-ms is defined in <http://www.opengroup.or.jp/jvc/cde/appendix.html>." [ascii japanese-jisx0208 katakana-jisx0201 japanese-jisx0212] (short ascii-at-eol ascii-at-cntl single-shift) (ascii latin-jisx0201 japanese-jisx0208 katakana-jisx0201 japanese-jisx0212) :decode-translation-table eucjp-ms-decode :encode-translation-table eucjp-ms-encode iso-2022-jp-2004 "ISO 2022 based 7bit encoding for JIS X 0213:2004 (MIME:ISO-2022-JP-2004)." [(ascii japanese-jisx0208 japanese-jisx0213\.2004-1 japanese-jisx0213-1 japanese-jisx0213-2) nil nil nil] (short ascii-at-eol ascii-at-cntl 7-bit designation) (ascii japanese-jisx0208 japanese-jisx0213\.2004-1 japanese-jisx0213-1 japanese-jisx0213-2) iso-2022-jp-3 euc-jis-2004 "ISO 2022 based EUC encoding for JIS X 0213 (MIME:EUC-JIS-2004)." [ascii japanese-jisx0213\.2004-1 katakana-jisx0201 japanese-jisx0213-2] (short ascii-at-eol ascii-at-cntl single-shift) (ascii latin-jisx0201 japanese-jisx0213\.2004-1 japanese-jisx0213-1 katakana-jisx0201 japanese-jisx0213-2) euc-jisx0213 japanese-shift-jis-2004 "Shift_JIS 8-bit encoding for Japanese (MIME:SHIFT_JIS-2004)" (ascii katakana-jisx0201 japanese-jisx0213\.2004-1 japanese-jisx0213-2) shift_jis-2004 set-language-info-alist "Japanese" ((setup-function . setup-japanese-environment-internal) (exit-function . use-default-char-width-table) (iso639-language . ja) (tutorial . "TUTORIAL.ja") (charset japanese-jisx0208 japanese-jisx0212 latin-jisx0201 katakana-jisx0201 japanese-jisx0213\.2004-1 japanese-jisx0213-1 japanese-jisx0213-2 japanese-jisx0208-1978) (coding-system iso-2022-jp japanese-iso-8bit japanese-shift-jis japanese-iso-7bit-1978-irv iso-2022-jp-2004 japanese-shift-jis-2004 euc-jis-2004) (coding-priority iso-2022-jp japanese-iso-8bit japanese-shift-jis iso-2022-jp-2004 euc-jis-2004 japanese-shift-jis-2004 iso-2022-jp-2) (input-method . "japanese") (features japan-util) (sample-text . "Japanese (日本語)	こんにちは, ｺﾝﾆﾁﾊ") (documentation . t)) ((9335 . [12363 12442]) (9336 . [12365 12442]) (9337 . [12367 12442]) (9338 . [12369 12442]) (9339 . [12371 12442]) (9591 . [12459 12442]) (9592 . [12461 12442]) (9593 . [12463 12442]) (9594 . [12465 12442]) (9595 . [12467 12442]) (9596 . [12475 12442]) (9597 . [12484 12442]) (9598 . [12488 12442]) (9848 . [12791 12442]) (11076 . [230 768]) (11080 . [596 768]) (11081 . [596 769]) (11082 . [652 768]) (11083 . [652 769]) (11084 . [601 768]) (11085 . [601 769]) (11086 . [602 768]) (11087 . [602 769]) (11109 . [745 741]) (11110 . [741 745])) nil decode-char japanese-jisx0213-1 make-translation-table-from-alist jisx0213-to-unicode unicode-to-jisx0213 char-table-extra-slot 0] 18)
#@175 Compose glyph-string GSTRING for graphic display.
GSTRING must have two glyphs; the first is a glyph for a han character,
and the second is a glyph for a variation selector.
(defalias 'compose-gstring-for-variation-glyph #[(gstring) "\211\211\306H)\306H)\306\211\211\306H)\nTH*\307\211\211\306H)\nTH*\310	\"\306\211\n\311\\H*\f\307\211\n\311\\H*
\312\313\215.\207" [gstring font i han vs glyphs 0 1 font-variation-glyphs 2 tag (byte-code "\306\211\205d\n@\211@U\203\\\f	A\211
\307
I*\210\f\211
\211\310H)\211
\311H)\211
\310I\210
\311I+\210\311\306
\211\312\\
I+\210\313\314\"\210\nA\211\204\306*\207" [glyphs elt --dolist-tail-- vs g0 code nil 3 0 1 2 throw tag glyph g1 to from gstring i] 5) g0 g1] 4 (#$ . 6798)])
(byte-code "\302\303	\304#\210\303	\305#\210)\306\307!\207" [elt composition-function-table ([".." 1 compose-gstring-for-variation-glyph]) set-char-table-range (65024 . 65039) (917760 . 917999) provide japanese] 4)