
(defvar wnnfns-support-version "1.09")

(defvar egg:*kanji-buffer* nil)

(defun bunsetu-su nil (byte-code "G‡" [egg:*kanji-buffer*] 1))

(defun make-bunsetu (kanji yomi) (byte-code "	ÂÃF‡" [kanji yomi nil 0] 4))

(defun bunsetu-length (number) (byte-code "ÁÂ!!‡" [number kanji-moji-suu bunsetu-yomi] 3))

(defun bunsetu-position (number) (byte-code "	Å
W… ÆÇ
!GG#‰ˆ
T‰ˆ‚ ˆ*‡" [pos egg:*region-start* i number egg:*bunsetu-kugiri* 0 + bunsetu-kanji] 6))

(defun bunsetu-kanji (number) (byte-code "Â	H8‡" [egg:*kanji-buffer* number 0] 3))

(defun bunsetu-set-kanji (number kanji) (byte-code "ÃÄÅ	H\"
\"‡" [egg:*kanji-buffer* number kanji setcar nthcdr 0] 5))

(defun bunsetu-yomi (number) (byte-code "Â	H8‡" [egg:*kanji-buffer* number 1] 3))

(defun bunsetu-set-yomi (number yomi) (byte-code "ÃÄÅ	H\"
\"‡" [egg:*kanji-buffer* number yomi setcar nthcdr 1] 5))

(defun bunsetu-kouho-list (number) (byte-code "Ä	
H8†; Å
!ƒ ÆÇÄ	
H\"\"‚: È ˆÈ ˆÈ ˆÉÊ!ˆÆÇÄ	
H\"Ë
!Ì
!D\"))‡" [x egg:*kanji-buffer* number jikouho 2 KKCP:henkan-next setcar nthcdr beep notify "ÊÑ´¹¸õÊä¤¬Â¿¤¹¤®¤Þ¤¹¡£wnnfsn.c ¤ò½¤Àµ¤·¤Æ nemacs ¤òºî¤êÄ¾¤·¤Æ²¼¤µ¤¤¡£" bunsetu-kanji bunsetu-yomi] 14))

(defun bunsetu-kouho-suu (number) (byte-code "Á!G‡" [number bunsetu-kouho-list] 2))

(defun bunsetu-set-kouho-list (number kouho-list) (byte-code "ÃÄÅ	H\"
\"‡" [egg:*kanji-buffer* number kouho-list setcar nthcdr 2] 5))

(defun bunsetu-kouho-number (number) (byte-code "Â	H8‡" [egg:*kanji-buffer* number 3] 3))

(defun bunsetu-set-kouho-number (bunsetu-no number) (byte-code "ÃÄÅ	H\"
\"‡" [egg:*kanji-buffer* bunsetu-no number setcar nthcdr 3] 5))

(defun make-henkan-buffer (list) (byte-code "Ä	GÅ\"Å	G
W…* 
Æ	@@	@A\"Iˆ	A‰ˆ
T‰ˆ‚ ˆ*)‡" [buff list i max make-vector 0 make-bunsetu] 7))

(defun update-henkan-buffer (buffer from list) (byte-code "Æ	GÇ\"Ç
W… 

HIˆ
T‰ˆ‚ )ˆ	G
W…@ 
È
	8@
	8A\"Iˆ
T‰ˆ‚$ *ˆ)‡" [vec list i from buffer max make-vector 0 make-bunsetu] 8))

(defun henkan-region-internal (start end) "\
region¤ò¤«¤Ê´Á»úÊÑ´¹¤¹¤ë¡£" (byte-code "Ó	
\"‰ˆÄ‰ˆÔ!…² Õ!ˆÖ!‰ˆ	bˆ×!?ƒa Ø ‰	ˆÙÊ!…: Ë‰
ˆÚ	
\"ˆ	bˆcˆÛ`\"ˆcˆÛ\"ˆÜ ˆb‚¥ Ý ˆÚGZ\"ˆÚG\\\"ˆbˆcˆÛ`\"ˆbˆ`cˆÛ\")ˆ	bˆÚ	
\"ˆÜ ˆÞ!ˆßà!ˆá!)‡" [egg:*kanji-kanabuff* start end *bunsetu-number* nil result henkan-mode-indicator egg:*kanji-buffer* egg:*region-start* egg:*local-map-backup* disable-undo t egg:*henkan-open* egg:*henkan-close* egg:*region-end* egg:*fence-open* egg:*fence-close* point henkan-mode-map buffer-substring KKCP:henkan-begin mode-line-egg-mode-update make-henkan-buffer marker-position current-local-map boundp delete-region set-marker egg:henkan-attribute-on egg:fence-attribute-off henkan-insert-kouho henkan-goto-bunsetu 0 use-local-map] 22))

(defun henkan-insert-kouho (list) (byte-code "	… Ã@@
\"ˆA‰ˆ‚ ˆ	… Ä
G[!)‡" [l list egg:*bunsetu-kugiri* insert delete-char] 4))

(defun henkan-kakutei nil (interactive) (byte-code "ÈˆÉ!ˆÊ ˆË	
GZ	\"ˆË	\"ˆËG\\\"ˆ	bˆÌÍ W…K ÎÏ!\"ˆÐ!cˆ?…B Ñ ˆT‰ˆ‚' *ˆÒ ˆÓ ‡" [*bunsetu-number* egg:*region-start* egg:*henkan-open* egg:*region-end* egg:*henkan-close* i max overwrite-mode nil egg:bunsetu-attribute-off egg:henkan-attribute-off delete-region 0 bunsetu-su KKCP:henkan-kakutei bunsetu-kouho-number bunsetu-kanji undo-boundary KKCP:henkan-end egg:quit-egg-mode] 13))

(defun henkan-kakutei-before-point nil (interactive) (byte-code "ÎˆÏ!ˆÐ ˆÑ	
\"ˆ	bˆÒW…7 ÓÔ!\"ˆÕ!cˆ?…. Ö ˆT‰ˆ‚ *ˆ×!ˆÑ	GZ	\"ˆcˆØ	`\"ˆÑ

G\\\"ˆ
bˆ`	
cˆØ
	\")ˆ	bˆÙ ˆ`Ú 	W…Š Û!cˆT‰ˆ‚w ˆ	b+ˆÌ‰ˆÜ!ˆÝ ‡" [*bunsetu-number* egg:*region-start* egg:*region-end* i max overwrite-mode egg:*henkan-open* egg:*fence-open* egg:*henkan-close* point egg:*fence-close* egg:*mode-on* t fence-mode-map nil egg:bunsetu-attribute-off egg:henkan-attribute-off delete-region 0 KKCP:henkan-kakutei bunsetu-kouho-number bunsetu-kanji undo-boundary KKCP:henkan-end set-marker egg:fence-attribute-on bunsetu-su bunsetu-yomi use-local-map egg:mode-line-display] 18))

(defun henkan-goto-kouho (kouho-number) (byte-code "È!ˆÉ ˆ`Ê!Ë ÌÍÎ!GS#‰ˆW…[ Ï
Ê!\"…R ÐÑ!Ñ!Ò!G\\\"ˆÓÎ!8\"ˆÔ\"ˆÑ!bˆÒ!cˆT‰ˆ‚ ˆ	b,ˆÕÇ#ˆÖ!‡" [*bunsetu-number* point yomi i max kouho-number egg:*henkan-attribute* nil egg:bunsetu-attribute-off egg:henkan-attribute-on bunsetu-yomi bunsetu-su check-number-range 0 bunsetu-kouho-list equal delete-region bunsetu-position bunsetu-kanji bunsetu-set-kanji bunsetu-set-kouho-number egg:set-bunsetu-attribute egg:bunsetu-attribute-on] 21))

(defun bunsetu-length-henko (length) (byte-code "Å	
\"…. Æ ˆÇ	!ˆÈÉ	!\"ˆÉ	!bˆÊË	\"!ˆÌ	#‰ˆÍ	!)‡" [r *bunsetu-number* length egg:*region-end* egg:*kanji-buffer* KKCP:bunsetu-henkou egg:henkan-attribute-off egg:bunsetu-attribute-off delete-region bunsetu-position henkan-insert-kouho nthcdr update-henkan-buffer henkan-goto-bunsetu] 12))