;ELC
;;; Compiled by LTX@Xue-LingTaos-MacBook-Pro.local on Wed Mar 16 23:15:30 2011
;;; from file /Users/LTX/Projects/Emacs/emacs/lisp/international/kinsoku.el
;;; in Emacs version 24.0.50.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 "`kinsoku.el' was compiled for Emacs 23 or later"))

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


#@114 How many more columns we can make lines longer by `kinsoku' processing.
The value 0 means there's no limitation.
(defvar kinsoku-limit 4 (#$ . 556))
(byte-code "\306\211\306G\307\310\311\n	W\203&\312\313\nH\"\314\f!P\nT\211\202
-\315\316\317\320\260\211G\307\311\n	W\203K
\nH\nT\321\f\322\"\210\2026,\323\211\323G\307\310\311\n	W\203r\312\313\nH\"\314\f!P\nT\211\202Y-\324\325\326\327\260\211G\307\311\n	W\203\231\nH\nT\321\f\330\"\210\202\203,\311\207" [str1 len idx str2 ch kinsoku-bol "!)-_~}]:;',.?" 0 "" nil make-char latin-jisx0201 char-to-string "ï½¡ï½£ï½§ï½¨ï½©ï½ªï½«ï½¬ï½­ï½®ï½¯ï½°ï¾žï¾Ÿ" "ã€�ã€‚ï¼Œï¼Žãƒ»ï¼šï¼›ï¼Ÿï¼�ã‚›ã‚œÂ´ï½€Â¨ï¼¾ï¿£ï¼¿ãƒ½ãƒ¾ã‚�ã‚žã€ƒä»�ã€…ã€†ã€‡ãƒ¼â€”â€�ï¼�ï¼¼ã€œâ€–ï½œâ€¦â€¥â€™â€�ï¼‰ã€•ï¼½ï½�ã€‰ã€‹ã€�ã€�ã€‘Â°â€²â€³â„ƒã��ã�ƒã�…ã�‡ã�‰ã�£ã‚ƒã‚…ã‚‡ã‚Žã‚¡ã‚£ã‚¥ã‚§ã‚©ãƒƒãƒ£ãƒ¥ãƒ§ãƒ®ãƒµãƒ¶" "ã€�ã€‚ï¼Žï¼Œãƒ»Ë‰Ë‡Â¨ã€ƒã€…â€•ï½žâ€–â€¦â€™â€�ï¼‰ã€•ã€‰ã€‹ã€�ã€�ã€—ã€‘ï¼›ï¼šï¼Ÿï¼�Â±Ã—Ã·âˆ¶Â°â€²â€³â„ƒï¼�ï¼¼ï¼‚ï¼¿ï¿£ï½œã„¥" "ï¼Œã€�ã€‚ï¼Žâ€§ï¼›ï¼šï¼Ÿï¼�ï¸°â€¦â€¥ï¹�ï¹‘ï¹’Â·ï¹”ï¹•ï¹–ï¹—ï½œâ€“ï¸±â€”ï¸³â•´ï¸´ï¹�ï¼‰ï¸¶ï½�ï¸¸ã€•ï¸ºã€‘ï¸¼ã€‹ï¸¾ã€‰ï¹€ã€�ï¹‚ã€�ï¹„ï¹šï¹œï¹žâ€™â€�ã€žâ€²ã€ƒÂ¯ï¿£ï¼¿Ë�ï¹‰ï¹Šï¹�ï¹Žï¹‹ï¹ŒÃ—Ã·Â±â„ƒâ„‰ï¹©Â°ã„¥" modify-category-entry 62 "({[`" "ï½¢" "â€˜â€œï¼ˆã€”ï¼»ï½›ã€ˆã€Šã€Œã€Žã€�Â°â€²â€³â„ƒï¼ Â§â€˜â€œï¼‚ï¼ˆã€”ã€ˆã€Šã€Œã€Žã€–ã€�Â°â€²â€³ï¼ â„ƒÂ§" "ã„…ã„†ã„‡ã„ˆã„‰ã„Šã„‹ã„Œã„�ã„Žã„�ã„�ã„‘ã„’ã„“ã„”ã„•ã„–ã„—ã„˜ã„™ã„¨ï¼ˆï¸µï½›ï¸·ã€”ï¸¹ã€�ï¸»ã€Šï¸½ã€ˆï¸¿ã€Œï¹�ã€Žï¹ƒï¹™ï¹›ï¹�" "â€˜â€œã€�â€µâ€²ã€ƒÂ§ï¼ â„ƒâ„‰ï¹«Â°ã„…ã„†ã„‡ã„ˆã„‰ã„Šã„‹ã„Œã„�ã„Žã„�ã„�ã„‘ã„’ã„“ã„”ã„•ã„–ã„—ã„˜ã„™ã„¨" 60 kinsoku-eol] 7)
(defalias 'kinsoku-longer #[nil "\212\302u\210l\204$\303g!\304H\204h\305=\204$\303h!\306H\204$\302u\210\202`i)B	\307X\2049A\310 	\\W\205<@b)\207" [pos-and-column kinsoku-limit 1 char-category-set 62 32 124 0 current-fill-column] 3])
(defalias 'kinsoku-shorter #[(linebeg) "\212\302u\210`W\203.\303h!\304H\204(\303g!\305H\204(h\306=\204.\303h!\307H\204.\302u\210\202`)	W\2059	b)\207" [linebeg pos -1 char-category-set 60 62 32 124] 2])
#@589 Go to a line breaking position near point by doing `kinsoku' processing.
LINEBEG is a buffer position we can't break a line before.

`Kinsoku' processing is to prohibit specific characters to be placed
at beginning of line or at end of line.  Characters not to be placed
at beginning and end of line have character category `>' and `<'
respectively.  This restriction is dissolved by making a line longer or
shorter.

`Kinsoku' is a Japanese word which originally means ordering to stay
in one place, and is used for the text processing described above in
the context of text formatting.
(defalias 'kinsoku #[(linebeg) "\205\302g!\303H\203\304 \203\302h!\305H\205\306	!\207" [enable-kinsoku linebeg char-category-set 62 kinsoku-longer 60 kinsoku-shorter] 2 (#$ . 2603)])
