;ELC ;;; compiled by handa@tsingyi.etl.go.jp on Wed Aug 19 12:39:45 1998 ;;; from file /net/mulelab/export/dist/mule-2.3-19.34/lisp/kinsoku.el ;;; emacs version 19.34. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`kinsoku.el' was compiled for Emacs 19.29 or later")) (byte-code "ÀÁ!„ÂÁ BÀ‡" [boundp japanese-kinsoku-version "3.21" current-load-list] 2) #@29 Do kinsoku-shori for ASCII. (defvar kinsoku-ascii t (#$ . 579)) #@32 Do kinsoku-shori for JISX0208. (defvar kinsoku-jis t (#$ . 649)) #@30 Do kinsoku-shori for GB2312. (defvar kinsoku-gb t (#$ . 720)) #@29 Do kinsoku-shori for Big5.. (defvar kinsoku-big5 t (#$ . 788)) #@24 BOL kinsoku for ASCII. (defvar kinsoku-ascii-bol "!)-_~}]:;',.?" (#$ . 857)) #@24 EOL kinsoku for ASCII. (defvar kinsoku-ascii-eol "({[" (#$ . 940)) #@27 BOL kinsoku for JISX0208. (defvar kinsoku-jis-bol (concat "’¡¢’¡£’¡¤’¡¥’¡¦’¡§’¡¨’¡©’¡ª’¡«’¡¬’¡­’¡®’¡¯’¡°’¡±’¡²’¡³’¡´’¡µ’¡¶’¡·’¡¸’¡¹’¡º’¡»’¡¼’¡½’¡¾" "’¡¿’¡À’¡Á’¡Â’¡Ã’¡Ä’¡Å’¡Ç’¡É’¡Ë’¡Í’¡Ï’¡Ñ’¡Ó’¡Õ’¡×’¡Ù’¡Û’¡ë’¡ì’¡í’¡î" "’¤¡’¤£’¤¥’¤§’¤©’¤Ã’¤ã’¤å’¤ç’¤î’¥¡’¥£’¥¥’¥§’¥©’¥Ã’¥ã’¥å’¥ç’¥î’¥õ’¥ö") (#$ . 1013)) #@27 EOL kinsoku for JISX0208. (defvar kinsoku-jis-eol "’¡Æ’¡È’¡Ê’¡Ì’¡Î’¡Ð’¡Ò’¡Ô’¡Ö’¡Ø’¡Ú’¡ë’¡ì’¡í’¡î’¡÷’¡ø" (#$ . 1319)) #@25 BOL kinsoku for GB2312. (defvar kinsoku-gb-bol (concat "‘¡¢‘¡£‘£®‘£¬‘¡¤‘¡¥‘¡¦‘¡§‘¡¨‘¡©‘¡ª‘¡«‘¡¬‘¡­‘¡¯‘¡±‘£©‘¡³‘¡µ‘¡·‘¡¹‘¡»‘¡½" "‘¡¿‘£»‘£º‘£¿‘£¡‘¡À‘¡Á‘¡Â‘¡Ã‘¡ã‘¡ä‘¡å‘¡æ‘£¯‘£Ü‘£¢‘£ß‘£þ‘£ü‘¨å") (#$ . 1442)) #@25 EOL kinsoku for GB2312. (defvar kinsoku-gb-eol (concat "‘¡®‘¡°‘£¢‘£¨‘¡²‘¡´‘¡¶‘¡¸‘¡º‘¡¼‘¡¾‘¡ã‘¡ä‘¡å‘£À‘¡æ‘¡ì" "‘¨Å‘¨Æ‘¨Ç‘¨È‘¨É‘¨Ê‘¨Ë‘¨Ì‘¨Í‘¨Î‘¨Ï‘¨Ð‘¨Ñ‘¨Ò‘¨Ó‘¨Ô‘¨Õ‘¨Ö‘¨×‘¨Ø‘¨Ù‘¨è") (#$ . 1652)) #@23 BOL kinsoku for BIG5. (defvar kinsoku-big5-bol (concat "˜¡¢˜¡£˜¡¤˜¡¥˜¡¦˜¡§˜¡¨˜¡©˜¡ª˜¡«˜¡¬˜¡­˜¡®˜¡¯˜¡°˜¡±˜¡²" "˜¡³˜¡´˜¡µ˜¡¶˜¡·˜¡¸˜¡¹˜¡º˜¡»˜¡¼˜¡½˜¡¿˜¡Á˜¡Ã˜¡Å˜¡Ç˜¡É˜¡Ë" "˜¡Í˜¡Ï˜¡Ñ ˜¡Ó˜¡Õ˜¡×˜¡Ù˜¡Û˜¡Ý˜¡ß˜¡á˜¡ã˜¡å˜¡ç˜¡é˜¡ë˜¡ñ" "˜¢£˜¢¤˜¢¥˜¢¦˜¢§˜¢¨˜¢©˜¢ª˜¢«˜¢¬˜¢²˜¢³˜¢´˜¢ê˜¢ë˜¢ì˜¢ø˜¥·") (#$ . 1850)) #@23 EOL kinsoku for BIG5. (defvar kinsoku-big5-eol (concat "˜¡¾˜¡À˜¡Â˜¡Ä˜¡Æ˜¡È˜¡Ê˜¡Ì˜¡Î˜¡Ð˜¡Ò˜¡Ô˜¡Ö˜¡Ø˜¡Ú˜¡Ü˜¡Þ˜¡à˜¡â" "˜¡ä˜¡æ˜¡è˜¡ê˜¡ë˜¡ñ˜¡ð˜¢é˜¢ê˜¢ë˜¢î˜¢ø˜¤õ˜¤ö˜¤÷˜¤ø˜¤ù˜¤ú˜¤û" "˜¤ü˜¤ý˜¤þ˜¥¡˜¥¢˜¥£˜¥¤˜¥¥˜¥¦˜¥§˜¥¨˜¥©˜¥ª˜¥«˜¥º") (#$ . 2148)) #@149 ’¹Ô’Ƭ’¶Ø’§’¤ò’¹Ô’¤Ê’¤¦’ʸ’»ú’¤ò’¤¹’¤Ù’¤Æ’´Þ’¤à’ʸ’»ú’Îó’¤ò’»Ø’Äê’¤¹’¤ë’¡£ A string consisting of such characters that can't be beginning of line. (defvar kinsoku-bol-chars (byte-code "ƒ ‚  ƒ\f‚ ƒ‚ƒ&‚'ÂR‡" [kinsoku-ascii kinsoku-ascii-bol "" kinsoku-jis kinsoku-jis-bol kinsoku-gb kinsoku-gb-bol kinsoku-big5 kinsoku-big5-bol] 4) (#$ . 2392)) #@143 ’¹Ô’Ëö’¶Ø’§’¤ò’¹Ô’¤Ê’¤¦’ʸ’»ú’¤ò’¤¹’¤Ù’¤Æ’´Þ’¤à’ʸ’»ú’Îó’¤ò’»Ø’Äê’¤¹’¤ë’¡£ A string consisting of such characters that can't be end of line. (defvar kinsoku-eol-chars (byte-code "ƒ ‚  ƒ\f‚ ƒ‚ƒ&‚'ÂR‡" [kinsoku-ascii kinsoku-ascii-eol "" kinsoku-jis kinsoku-jis-eol kinsoku-gb kinsoku-gb-eol kinsoku-big5 kinsoku-big5-eol] 4) (#$ . 2766)) #@54 ’¶Ø’§’½è’Íý’¤Î’¤¿’¤á’¤Î ASCII ’ʸ’»ú’ÍÑ’ºî’¶È’ÎÎ’°è (defconst $kinsoku-buff1$ " " (#$ . 3133)) #@54 ’¶Ø’§’½è’Íý’¤Î’¤¿’¤á’¤Î 1BYTE ’ʸ’»ú’ÍÑ’ºî’¶È’ÎÎ’°è (defconst $kinsoku-buff2$ " " (#$ . 3235)) #@54 ’¶Ø’§’½è’Íý’¤Î’¤¿’¤á’¤Î 2BYTE ’ʸ’»ú’ÍÑ’ºî’¶È’ÎÎ’°è (defconst $kinsoku-buff3$ " " (#$ . 3338)) #@63 Set CHAR to appropriate kinsoku-buffer and return the buffer. (defalias 'kinsoku-buff #[(ch) "À !‰ÃUƒ\fÅ IˆÆ\f!‚O\nÇUƒ2ÅÉ Å\"IˆÃÉ Ã\"Iˆ‚O\nÅÉ Å\"Iˆ\nÃÉ Ã\"Iˆ\nÇÉ Ç\"Iˆ\n)‡" [char-bytes ch bytes 1 $kinsoku-buff1$ 0 regexp-quote 2 $kinsoku-buff2$ char-component $kinsoku-buff3$] 6 (#$ . 3442)]) #@133 point’¤Ç’²þ’¹Ô’¤¹’¤ë’¤È’¹Ô’Ƭ’¶Ø’§’¤Ë’¿¨’¤ì’¤ë’¤«’¤É’¤¦’¤«’¤ò’¤«’¤¨’¤¹’¡£ ’¹Ô’Ƭ’¶Ø’§’ʸ’»ú’¤Ïkinsoku-bol-chars’¤Ç’»Ø’Äê’¤¹’¤ë’¡£ (defalias 'kinsoku-bol-p #[nil "ÀÁ‰\"ˆÀÂg! \"‡" [string-match "" kinsoku-buff kinsoku-bol-chars] 3 (#$ . 3758)]) #@133 point’¤Ç’²þ’¹Ô’¤¹’¤ë’¤È’¹Ô’Ëö’¶Ø’§’¤Ë’¿¨’¤ì’¤ë’¤«’¤É’¤¦’¤«’¤ò’¤«’¤¨’¤¹’¡£ ’¹Ô’Ëö’¶Ø’§’ʸ’»ú’¤Ïkinsoku-eol-chars’¤Ç’»Ø’Äê’¤¹’¤ë’¡£ (defalias 'kinsoku-eol-p #[nil "ÀÁ‰\"ˆhÀÃ\n!\f\")‡" [string-match "" ch kinsoku-buff kinsoku-eol-chars] 3 (#$ . 4010)]) #@132 ’¶Ø’§’½è’Íý’¤Ç’¹Ô’¤ò’¿­’¤Ð’¤·’¤Æ’ÎÉ’¤¤’Ⱦ’³Ñ’ʸ’»ú’¿ô’¤ò’»Ø’Äê’¤¹’¤ë’¡£ ’Èó’Éé’À°’¿ô’°Ê’³°’¤Î’¾ì’¹ç’¤Ï’̵’¸Â’Âç’¤ò’°Õ’Ì£’¤¹’¤ë’¡£ (defvar kinsoku-nobashi-limit nil (#$ . 4270)) #@373 ’¶Ø’§’¤Ë’¿¨’¤ì’¤Ê’¤¤’ÅÀ’¤Ø’°Ü’Æ°’¤¹’¤ë’¡£ point’¤¬’¹Ô’Ƭ’¶Ø’§’¤Ë’¿¨’¤ì’¤ë’¾ì’¹ç’¤Ï’¹Ô’¤ò’¿­’¤Ð’¤·’¤Æ’¡¢’¶Ø’§’¤Ë’¿¨’¤ì’¤Ê’¤¤’ÅÀ’¤ò’õ’¤¹’¡£ point’¤¬’¹Ô’Ëö’¶Ø’§’¤Ë’¿¨’¤ì’¤ë’¾ì’¹ç’¤Ï’¹Ô’¤ò’½Ì’¤á’¤Æ’¡¢’¶Ø’§’¤Ë’¿¨’¤ì’¤Ê’¤¤’ÅÀ’¤ò’õ’¤¹’¡£ ’¤¿’¤À’¤·’¡¢’¹Ô’¿­’¤Ð’¤·’Ⱦ’³Ñ’ʸ’»ú’¿ô’¤¬kinsoku-nobashi-limit’¤ò’±Û’¤¨’¤ë’¤È’¡¢ ’¹Ô’¤ò’½Ì’¤á’¤Æ’¶Ø’§’¤Ë’¿¨’¤ì’¤Ê’¤¤’ÅÀ’¤ò’õ’¤¹’¡£ (defalias 'kinsoku-shori #[nil "À‰n?…+l?…+à ‰„Ä ‰…+\nƒ%Å ‚+ …+Æ *‡" [nil eol-kin bol-kin kinsoku-bol-p kinsoku-eol-p kinsoku-shori-nobashi kinsoku-shori-chizime] 2 (#$ . 4455)]) #@62 ’¹Ô’¤ò’¿­’¤Ð’¤·’¤Æ’¶Ø’§’¤Ë’¿¨’¤ì’¤Ê’¤¤’ÅÀ’¤Ø’°Ü’Æ°’¤¹’¤ë’¡£ (defalias 'kinsoku-shori-nobashi #[nil " §ƒ ÂYƒ ‚Ã\\ĉiÈg‰!\\Xƒ]n„]l„]É „WÊ „WËWƒ]h‰ËWƒ] zÌUƒ]zÌUƒ]Äuˆ‚É „gÊ …iÍ +‡" [fill-column kinsoku-nobashi-limit 0 10000 nil ch2 ch1 max-column char-width kinsoku-eol-p kinsoku-bol-p 127 119 kinsoku-shori-chizime] 4 (#$ . 5023)]) #@59 ’¹Ô’¤ò’½Ì’¤á’¤Æ’¶Ø’§’¤Ë’¿¨’¤ì’¤Ê’¤¤’ÅÀ’¤Ø’°Ü’Æ°’¤¹’¤ë’¡£ (defalias 'kinsoku-shori-chizime #[nil "À‰n?…<l?…<à „6Ä „6g‰ÅW…<h‰ÅW…< zÆU…<\nzÆU…<Ç ˆ‚*‡" [nil ch2 ch1 kinsoku-bol-p kinsoku-eol-p 127 119 backward-char] 2 (#$ . 5393)])