HOME

Mini Shell 1.0
DIR:/proc/self/root/proc/thread-self/root/usr/share/emacs/26.1/lisp/language/
Current File : //proc/self/root/proc/thread-self/root/usr/share/emacs/26.1/lisp/language/japanese.elc
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; 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\306\201E\312\313\314\376\316\201F\320\201G\322\201H\201I\201J\201K\201L&\210\307\201M\201N\312\313\314\315\316\201O\320\201P\322\201Q\324\201M\325\326&\210\327\201R\201M\"\210\307\201S\201T\312\313\314\376\316\201U\320\201V\322\201W\324\201S&\210\327\201X\201S\"\210\307\201Y\201Z\312\352\314\353\322\201[&\210\327\201\\\201Y\"\210\201]\201^\201_\"\210\201`\201a\211\201a\211\203\203@\211\201b\201c\n@\"\240\210A\211\204m*\201d!\337\201e	\"\210\337\201f\201g	\201h\"\"\210*\201a\207" [map table elt --dolist-tail-- require cp51932 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 (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*\307\211\n\311\\H*\3122\267
\313\211\205\265@\211@\fU\203\253A\211\314I\210*\211\211\306H)\211\307H)\211\306I\210\307I\210+\307\313\211\n\311\\I\210+\315\312\"\210A\211\204U\313*0.\207" [gstring font i han vs glyphs 0 1 font-variation-glyphs 2 tag nil 3 throw g0 g1 elt --dolist-tail-- code glyph to from] 5 (#$ . 6608)])
(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)