
(defvar kanji-kinsoku-version "3.21")

(defvar kinsoku-bol-chars (concat "!)-_~}]:;',.?" "¡¢¡£¡¤¡¥¡¦¡§¡¨¡©¡ª¡«¡¬¡­¡®¡¯¡°¡±¡²¡³¡´¡µ¡¶¡·¡¸¡¹¡º¡»¡¼¡½¡¾" "¡¿¡À¡Á¡Â¡Ã¡Ä¡Å¡Ç¡É¡Ë¡Í¡Ï¡Ñ¡Ó¡Õ¡×¡Ù¡Û¡ë¡ì¡í¡î" "¤¡¤£¤¥¤§¤©¤Ã¤ã¤å¤ç¤î¥¡¥£¥¥¥§¥©¥Ã¥ã¥å¥ç¥î¥õ¥ö") "\
¹ÔÆ¬¶ØÂ§¤ò¹Ô¤Ê¤¦Ê¸»ú¤ò»ØÄê¤¹¤ë¡£
¡ÊEUC¤Î¥³¡¼¥É¤ÎÊ¸»úÎó¤ò»ÈÍÑ¤¹¤ë¡£¡Ë")

(defvar kinsoku-eol-chars "({[¡Æ¡È¡Ê¡Ì¡Î¡Ð¡Ò¡Ô¡Ö¡Ø¡Ú¡ë¡ì¡í¡î¡÷¡ø" "\
¹ÔËö¶ØÂ§¤ò¹Ô¤Ê¤¦Ê¸»ú¤ò»ØÄê¤¹¤ë¡£
¡ÊEUC¤Î¥³¡¼¥É¤ÎÊ¸»úÎó¤ò»ÈÍÑ¤¹¤ë¡£¡Ë")

(defvar $kinsoku-buff1$ " " "\
¶ØÂ§½èÍý¤Î¤¿¤á¤ÎÈ¾³ÑÊ¸»úÍÑºî¶ÈÎÎ°è")

(defvar $kinsoku-buff2$ "  " "\
¶ØÂ§½èÍý¤Î¤¿¤á¤ÎÁ´³ÑÊ¸»úÍÑºî¶ÈÎÎ°è")

(defun kinsoku-bol-p nil "\
point¤Ç²þ¹Ô¤¹¤ë¤È¹ÔÆ¬¶ØÂ§¤Ë¿¨¤ì¤ë¤«¤É¤¦¤«¤ò¤«¤¨¤¹¡£
¹ÔÆ¬¶ØÂ§Ê¸»ú¤Ïkinsoku-bol-chars¤Ç»ØÄê¤¹¤ë¡£" (byte-code "ÃÄÄ\"ˆÃÅgXƒ ÆgIˆÇ`TfIˆ‚$ 	ÆgIˆÈ	!
\"‡" [$kinsoku-buff2$ $kinsoku-buff1$ kinsoku-bol-chars string-match "" 128 0 1 regexp-quote] 5))

(defun kinsoku-eol-p nil "\
point¤Ç²þ¹Ô¤¹¤ë¤È¹ÔËö¶ØÂ§¤Ë¿¨¤ì¤ë¤«¤É¤¦¤«¤ò¤«¤¨¤¹¡£
¹ÔËö¶ØÂ§Ê¸»ú¤Ïkinsoku-eol-chars¤Ç»ØÄê¤¹¤ë¡£" (byte-code "ÃÄÄ\"ˆÃÅhXƒ Æ`ÇZfIˆÈhIˆ‚% 	ÆhIˆÉ	!
\"‡" [$kinsoku-buff2$ $kinsoku-buff1$ kinsoku-eol-chars string-match "" 128 0 2 1 regexp-quote] 6))

(defvar kinsoku-nobashi-limit nil "\
¶ØÂ§½èÍý¤Ç¹Ô¤ò¿­¤Ð¤·¤ÆÎÉ¤¤È¾³ÑÊ¸»ú¿ô¤ò»ØÄê¤¹¤ë¡£
ÈóÉéÀ°¿ô°Ê³°¤Î¾ì¹ç¤ÏÌµ¸ÂÂç¤ò°ÕÌ£¤¹¤ë¡£")

(defun kinsoku-shori nil "\
¶ØÂ§¤Ë¿¨¤ì¤Ê¤¤ÅÀ¤Ø°ÜÆ°¤¹¤ë¡£
point¤¬¹ÔÆ¬¶ØÂ§¤Ë¿¨¤ì¤ë¾ì¹ç¤Ï¹Ô¤ò¿­¤Ð¤·¤Æ¡¢¶ØÂ§¤Ë¿¨¤ì¤Ê¤¤ÅÀ¤òÃµ¤¹¡£
point¤¬¹ÔËö¶ØÂ§¤Ë¿¨¤ì¤ë¾ì¹ç¤Ï¹Ô¤ò½Ì¤á¤Æ¡¢¶ØÂ§¤Ë¿¨¤ì¤Ê¤¤ÅÀ¤òÃµ¤¹¡£
¤¿¤À¤·¡¢¹Ô¿­¤Ð¤·È¾³ÑÊ¸»ú¿ô¤¬kinsoku-nobashi-limit¤ò±Û¤¨¤ë¤È¡¢
¹Ô¤ò½Ì¤á¤Æ¶ØÂ§¤Ë¿¨¤ì¤Ê¤¤ÅÀ¤òÃµ¤¹¡£" (byte-code "ÁÁn?… l?… Ã ‰† Ä ‰…+ ƒ% Å ‚+ 
…+ Æ *‡" [bol-kin nil eol-kin kinsoku-bol-p kinsoku-eol-p kinsoku-shori-nobashi kinsoku-shori-chizime] 5))

(defun kinsoku-shori-nobashi nil "\
¹Ô¤ò¿­¤Ð¤·¤Æ¶ØÂ§¤Ë¿¨¤ì¤Ê¤¤ÅÀ¤Ø°ÜÆ°¤¹¤ë¡£" (byte-code "	Ã
!…
 
ÄYƒ 
‚ Å\\iÆgXƒ Ç‚  È\\X…G n?…G l?…G É †G Ê †G ËÌh!U…G ËÌg!U…P Í ˆ‚ ˆÉ †X Ê …] Î )‡" [max-column fill-column kinsoku-nobashi-limit numberp 0 10000 128 1 2 kinsoku-eol-p kinsoku-bol-p 119 char-syntax forward-char kinsoku-shori-chizime] 10))

(defun kinsoku-shori-chizime nil "\
¹Ô¤ò½Ì¤á¤Æ¶ØÂ§¤Ë¿¨¤ì¤Ê¤¤ÅÀ¤Ø°ÜÆ°¤¹¤ë¡£" (byte-code "n?…! l?…! À †! Á †! ÂÃh!U…! ÂÃg!U…* Ä ˆ‚  ‡" [kinsoku-bol-p kinsoku-eol-p 119 char-syntax backward-char] 7))