;ELC ;;; Compiled by dan@wayne.mit.edu on Wed Apr 21 21:02:05 2004 ;;; from file /usr/pkgsrc-current/inputmethod/skk/work.bondage/ddskk-12.2.0/skk-kakasi.el ;;; in Emacs version 21.3.1 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file contains multibyte non-ASCII characters ;;; and therefore cannot be loaded into Emacs 19. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "20"))) (error "`skk-kakasi.el' was compiled for Emacs 20 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\302\303!\210\304\305\"A\306\307\310 \211B#\210)\302\207" [skk-coding-system-alist euc require path-util assoc "euc" modify-coding-system-alist process "kakasi"] 5) #@255 ’ÎÎ’°è’¤Î’´Á’»ú’¡¢’Á÷’¤ê’²¾’̾’¤ò’Á´’¤Æ’¤Ò’¤é’¤¬’¤Ê’¤Ë’ÊÑ’´¹’¤¹’¤ë’¡£ ’¥ª’¥×’¥·’¥ç’¥Ê’¥ë’°ú’¿ô’¤Î ALL ’¤¬ non-nil ’¤Ê’¤é’¤Ð’¡¢’Ê£’¿ô’¤Î’¸õ’Êä’¤¬’¤¢’¤ë’¾ì’¹ç’¤Ï’¡¢"{}" ’¤Ç’¤¯ ’¤¯’¤Ã’¤Æ’ɽ’¼¨’¤¹’¤ë’¡£ ’Îã’¤¨’¤Ð’¡¢ ’Ãæ’Åç -> {’¤Ê’¤«’¤·’¤Þ|’¤Ê’¤«’¤¸’¤Þ} (defalias 'skk-gyakubiki-region #[(start end &optional all) "\304 \n# |\210b\210\305 !)\207" [start end all str skk-gyakubiki-1 insert-and-inherit] 4 (#$ . 826) "*r\nP"]) #@270 ’ÎÎ’°è’¤Î’´Á’»ú’¡¢’Á÷’¤ê’²¾’̾’¤ò’Á´’¤Æ’¤Ò’¤é’¤¬’¤Ê’¤Ë’ÊÑ’´¹’¸å’¡¢’¥¨’¥³’¡¼’¤¹’¤ë’¡£ ’¥ª’¥×’¥·’¥ç’¥Ê’¥ë’°ú’¿ô’¤Î ALL ’¤¬ non-nil ’¤Ê’¤é’¤Ð’¡¢’Ê£’¿ô’¤Î’¸õ’Êä’¤¬’¤¢’¤ë’¾ì’¹ç’¤Ï’¡¢"{}" ’¤Ç’¤¯ ’¤¯’¤Ã’¤Æ’ɽ’¼¨’¤¹’¤ë’¡£ ’Îã’¤¨’¤Ð’¡¢ ’Ãæ’Åç -> {’¤Ê’¤«’¤·’¤Þ|’¤Ê’¤«’¤¸’¤Þ} (defalias 'skk-gyakubiki-message #[(start end &optional all) "\305 \n#\306 \307\216\310\311 \"\203 \312\225\313O*\314\315 \")\207" [start end all str save-match-data-internal skk-gyakubiki-1 match-data ((set-match-data save-match-data-internal)) string-match "^[ ’¡¡ ]+" 0 nil message "%s"] 4 (#$ . 1262) "r\nP"]) #@255 ’ÎÎ’°è’¤Î’´Á’»ú’¡¢’Á÷’¤ê’²¾’̾’¤ò’Á´’¤Æ’¥«’¥¿’¥«’¥Ê’¤Ë’ÊÑ’´¹’¤¹’¤ë’¡£ ’¥ª’¥×’¥·’¥ç’¥Ê’¥ë’°ú’¿ô’¤Î ALL ’¤¬ non-nil ’¤Ê’¤é’¤Ð’¡¢’Ê£’¿ô’¤Î’¸õ’Êä’¤¬’¤¢’¤ë’¾ì’¹ç’¤Ï’¡¢"{}" ’¤Ç’¤¯ ’¤¯’¤Ã’¤Æ’ɽ’¼¨’¤¹’¤ë’¡£ ’Îã’¤¨’¤Ð’¡¢ ’Ãæ’Åç -> {’¥Ê’¥«’¥·’¥Þ|’¥Ê’¥«’¥¸’¥Þ} (defalias 'skk-gyakubiki-katakana-region #[(start end &optional all) "\304 \n\305$ |\210b\210\306 !)\207" [start end all str skk-gyakubiki-1 katakana insert-and-inherit] 5 (#$ . 1858) "*r\nP"]) #@270 ’ÎÎ’°è’¤Î’´Á’»ú’¡¢’Á÷’¤ê’²¾’̾’¤ò’Á´’¤Æ’¥«’¥¿’¥«’¥Ê’¤Ë’ÊÑ’´¹’¸å’¡¢’¥¨’¥³’¡¼’¤¹’¤ë’¡£ ’¥ª’¥×’¥·’¥ç’¥Ê’¥ë’°ú’¿ô’¤Î ALL ’¤¬ non-nil ’¤Ê’¤é’¤Ð’¡¢’Ê£’¿ô’¤Î’¸õ’Êä’¤¬’¤¢’¤ë’¾ì’¹ç’¤Ï’¡¢"{}" ’¤Ç’¤¯ ’¤¯’¤Ã’¤Æ’ɽ’¼¨’¤¹’¤ë’¡£ ’Îã’¤¨’¤Ð’¡¢ ’Ãæ’Åç -> {’¥Ê’¥«’¥·’¥Þ|’¥Ê’¥«’¥¸’¥Þ} (defalias 'skk-gyakubiki-katakana-message #[(start end &optional all) "\305 \n\306$\307 \310\216\311\312 \"\203 \313\225\314O*\315\316 \")\207" [start end all str save-match-data-internal skk-gyakubiki-1 katakana match-data ((set-match-data save-match-data-internal)) string-match "^[ ’¡¡ ]+" 0 nil message "%s"] 5 (#$ . 2317) "r\nP"]) (defalias 'skk-gyakubiki-1 #[(start end all &optional katakana) "\203\306\202 \307\n\203\310 B \203\311 B\312\f #)\207" [katakana arg skk-allow-spaces-newlines-and-tabs all start end ("-JK") ("-JH") "-c" "-p" skk-kakasi-region] 4]) #@356 ’ÎÎ’°è’¤Î’´Á’»ú’¤Ë’Á´’¤Æ’¤Õ’¤ê’¤¬’¤Ê’¤ò’ÉÕ’¤±’¤ë’¡£ ’Îã’¤¨’¤Ð’¡¢ "’ÊÑ’´¹’Á°’¤Î’´Á’»ú’¤Î’ÏÆ’¤Ë" -> "’ÊÑ’´¹’Á°[’¤Ø’¤ó’¤«’¤ó’¤Þ’¤¨]’¤Î’´Á’»ú[’¤«’¤ó’¤¸]’¤Î’ÏÆ[’¤ï’¤­]’¤Ë" ’¥ª’¥×’¥·’¥ç’¥Ê’¥ë’°ú’¿ô’¤Î ALL ’¤¬ non-nil ’¤Ê’¤é’¤Ð’¡¢’Ê£’¿ô’¤Î’¸õ’Êä’¤¬’¤¢’¤ë’¾ì’¹ç’¤Ï’¡¢"{}" ’¤Ç’¤¯ ’¤¯’¤Ã’¤Æ’ɽ’¼¨’¤¹’¤ë’¡£ ’Îã’¤¨’¤Ð’¡¢ ’Ãæ’Åç -> {’¤Ê’¤«’¤·’¤Þ|’¤Ê’¤«’¤¸’¤Þ} (defalias 'skk-hurigana-region #[(start end &optional all) "\304 \n# |\210b\210\305 !)\207" [start end all str skk-hurigana-1 insert-and-inherit] 4 (#$ . 3179) "*r\nP"]) #@371 ’ÎÎ’°è’¤Î’´Á’»ú’¤Ë’Á´’¤Æ’¤Õ’¤ê’¤¬’¤Ê’¤ò’ÉÕ’¤±’¡¢’¥¨’¥³’¡¼’¤¹’¤ë’¡£ ’Îã’¤¨’¤Ð’¡¢ "’ÊÑ’´¹’Á°’¤Î’´Á’»ú’¤Î’ÏÆ’¤Ë" -> "’ÊÑ’´¹’Á°[’¤Ø’¤ó’¤«’¤ó’¤Þ’¤¨]’¤Î’´Á’»ú[’¤«’¤ó’¤¸]’¤Î’ÏÆ[’¤ï’¤­]’¤Ë" ’¥ª’¥×’¥·’¥ç’¥Ê’¥ë’°ú’¿ô’¤Î ALL ’¤¬ non-nil ’¤Ê’¤é’¤Ð’¡¢’Ê£’¿ô’¤Î’¸õ’Êä’¤¬’¤¢’¤ë’¾ì’¹ç’¤Ï’¡¢"{}" ’¤Ç’¤¯ ’¤¯’¤Ã’¤Æ’ɽ’¼¨’¤¹’¤ë’¡£ ’Îã’¤¨’¤Ð’¡¢ ’Ãæ’Åç -> {’¤Ê’¤«’¤·’¤Þ|’¤Ê’¤«’¤¸’¤Þ} (defalias 'skk-hurigana-message #[(start end &optional all) "\303\304\305 \n#\"\207" [start end all message "%s" skk-hurigana-1] 6 (#$ . 3715) "r\nP"]) #@356 ’ÎÎ’°è’¤Î’´Á’»ú’¤Ë’Á´’¤Æ’¥Õ’¥ê’¥¬’¥Ê’¤ò’ÉÕ’¤±’¤ë’¡£ ’Îã’¤¨’¤Ð’¡¢ "’ÊÑ’´¹’Á°’¤Î’´Á’»ú’¤Î’ÏÆ’¤Ë" -> "’ÊÑ’´¹’Á°[’¥Ø’¥ó’¥«’¥ó’¥Þ’¥¨]’¤Î’´Á’»ú[’¥«’¥ó’¥¸]’¤Î’ÏÆ[’¥ï’¥­]’¤Ë" ’¥ª’¥×’¥·’¥ç’¥Ê’¥ë’°ú’¿ô’¤Î ALL ’¤¬ non-nil ’¤Ê’¤é’¤Ð’¡¢’Ê£’¿ô’¤Î’¸õ’Êä’¤¬’¤¢’¤ë’¾ì’¹ç’¤Ï’¡¢"{}" ’¤Ç’¤¯ ’¤¯’¤Ã’¤Æ’ɽ’¼¨’¤¹’¤ë’¡£ ’Îã’¤¨’¤Ð’¡¢ ’Ãæ’Åç -> {’¥Ê’¥«’¥·’¥Þ|’¥Ê’¥«’¥¸’¥Þ} (defalias 'skk-hurigana-katakana-region #[(start end &optional all) "\304 \n\305$ |\210b\210\306 !)\207" [start end all str skk-hurigana-1 katakana insert-and-inherit] 5 (#$ . 4245) "*r\nP"]) #@371 ’ÎÎ’°è’¤Î’´Á’»ú’¤Ë’Á´’¤Æ’¥Õ’¥ê’¥¬’¥Ê’¤ò’ÉÕ’¤±’¡¢’¥¨’¥³’¡¼’¤¹’¤ë’¡£ ’Îã’¤¨’¤Ð’¡¢ "’ÊÑ’´¹’Á°’¤Î’´Á’»ú’¤Î’ÏÆ’¤Ë" -> "’ÊÑ’´¹’Á°[’¥Ø’¥ó’¥«’¥ó’¥Þ’¥¨]’¤Î’´Á’»ú[’¥«’¥ó’¥¸]’¤Î’ÏÆ[’¥ï’¥­]’¤Ë" ’¥ª’¥×’¥·’¥ç’¥Ê’¥ë’°ú’¿ô’¤Î ALL ’¤¬ non-nil ’¤Ê’¤é’¤Ð’¡¢’Ê£’¿ô’¤Î’¸õ’Êä’¤¬’¤¢’¤ë’¾ì’¹ç’¤Ï’¡¢"{}" ’¤Ç’¤¯ ’¤¯’¤Ã’¤Æ’ɽ’¼¨’¤¹’¤ë’¡£ ’Îã’¤¨’¤Ð’¡¢ ’Ãæ’Åç -> {’¥Ê’¥«’¥·’¥Þ|’¥Ê’¥«’¥¸’¥Þ} (defalias 'skk-hurigana-katakana-message #[(start end &optional all) "\303\304\305 \n\306$\"\207" [start end all message "%s" skk-hurigana-1 katakana] 7 (#$ . 4803) "r\nP"]) (defalias 'skk-hurigana-1 #[(start end all &optional katakana) "\203\306\202 \307\n\203\310 B \203\311 B\312\f #)\207" [katakana arg skk-allow-spaces-newlines-and-tabs all start end ("-JK" "-f") ("-JH" "-f") "-c" "-p" skk-kakasi-region] 4]) #@475 ’ÎÎ’°è’¤Î’´Á’»ú’¡¢’¤Ò’¤é’¤¬’¤Ê’¡¢’¥«’¥¿’¥«’¥Ê’¡¢’Á´’±Ñ’ʸ’»ú’¤ò’Á´’¤Æ’¥í’¡¼’¥Þ’»ú’¤Ë’ÊÑ’´¹’¤¹’¤ë’¡£ ’ÊÑ’´¹’¤Ë’¤Ï’¡¢’¥Ø’¥Ü’¥ó’¼°’¤ò’ÍÑ’¤¤’¤ë’¡£ ’Îã’¤¨’¤Ð’¡¢ "’´Á’»ú’¤«’¤Ê’º®’¤¸’¤ê’ʸ’¤ò’¥í’¡¼’¥Þ’»ú’¤Ë’ÊÑ’´¹" -> " kan'zi kana ma ziri bun' woro-ma zi ni hen'kan' " skk-romaji-*-by-hepburn ’¤¬ nil ’¤Ç’¤¢’¤ì’¤Ð’¡¢’¥í’¡¼’¥Þ’»ú’¤Ø’¤Î’ÊÑ’´¹’ÍÍ’¼°’¤ò’·±’Îá’¼°’¤Ë’ÊÑ’¹¹’¤¹ ’¤ë’¡£’Îã’¤¨’¤Ð’¡¢"’¤·" ’¤Ï’¥Ø’¥Ü’¥ó’¼°’¤Ç’¤Ï "shi" ’¤À’¤¬’¡¢’·±’Îá’¼°’¤Ç’¤Ï "si" ’¤È’¤Ê’¤ë’¡£ (defalias 'skk-romaji-region #[(start end) "\306\307\n\203\f\310 B \204\311 B\312\f #\f |\210\fb\210\313!*\207" [str arg skk-allow-spaces-newlines-and-tabs skk-romaji-*-by-hepburn start end ("-Ha" "-Ka" "-Ja" "-Ea" "-ka" "-s") nil "-c" "-rk" skk-kakasi-region insert-and-inherit] 4 (#$ . 5608) "*r"]) #@490 ’ÎÎ’°è’¤Î’´Á’»ú’¡¢’¤Ò’¤é’¤¬’¤Ê’¡¢’¥«’¥¿’¥«’¥Ê’¡¢’Á´’±Ñ’ʸ’»ú’¤ò’Á´’¤Æ’¥í’¡¼’¥Þ’»ú’¤Ë’ÊÑ’´¹’¤·’¡¢’¥¨’¥³’¡¼’¤¹’¤ë’¡£ ’ÊÑ’´¹’¤Ë’¤Ï’¡¢’¥Ø’¥Ü’¥ó’¼°’¤ò’ÍÑ’¤¤’¤ë’¡£ ’Îã’¤¨’¤Ð’¡¢ "’´Á’»ú’¤«’¤Ê’º®’¤¸’¤ê’ʸ’¤ò’¥í’¡¼’¥Þ’»ú’¤Ë’ÊÑ’´¹" -> " kan'zi kana ma ziri bun' woro-ma zi ni hen'kan' " skk-romaji-*-by-hepburn ’¤¬ nil ’¤Ç’¤¢’¤ì’¤Ð’¡¢’¥í’¡¼’¥Þ’»ú’¤Ø’¤Î’ÊÑ’´¹’ÍÍ’¼°’¤ò’·±’Îá’¼°’¤Ë’ÊÑ’¹¹’¤¹ ’¤ë’¡£’Îã’¤¨’¤Ð’¡¢"’¤·" ’¤Ï’¥Ø’¥Ü’¥ó’¼°’¤Ç’¤Ï "shi" ’¤À’¤¬’¡¢’·±’Îá’¼°’¤Ç’¤Ï "si" ’¤È’¤Ê’¤ë’¡£ (defalias 'skk-romaji-message #[(start end) "\305 \203\n\306B\n\204\307B\310\311\312 \f#\")\207" [arg skk-allow-spaces-newlines-and-tabs skk-romaji-*-by-hepburn start end ("-Ha" "-Ka" "-Ja" "-Ea" "-ka" "-s") "-c" "-rk" message "%s" skk-kakasi-region] 6 (#$ . 6400) "r"]) (defalias 'skk-kakasi-region #[(start end arglist) "\204 \204\306\307\n\203\310\202\311\"\210 \203\312\f \"\313 \"\314\315\316!!\317\216rq\210c\210\320\321e` \322\323\324\f&\325=\203N\326 \325V\204[\306\307\n\203X\327\202Y\330\"\210\331 ,\207" [skk-use-kakasi skk-kakasi-command skk-japanese-message-and-error skk-gyakubiki-jisyo-list arglist start error "%s" "KAKASI ’¤¬’¥¤’¥ó’¥¹’¥È’¡¼’¥ë’¤µ’¤ì’¤Æ’¤¤’¤Ê’¤¤’¤«’¡¢’»È’ÍÑ’¤·’¤Ê’¤¤’Àß’Ä꒤˒¤Ê’¤Ã’¤Æ’¤¤’¤Þ’¤¹" "KAKASI was not installed, or skk-use-kakasi is nil" append buffer-substring-no-properties get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) apply call-process-region delete-original-text (t nil) nil 0 buffer-size "’ÊÑ’´¹’¤Ç’¤­’¤Þ’¤»’¤ó" "Cannot convert!" buffer-string end str #1#] 9]) (byte-code "\301\302!\210\303\300!\210\303\304!\210\305\306\307!\300\310\311!\312\313\"\210\314\306\307!\"\210\315!\313\232\203-\2028\316\311\317\313\320\317\211\211\321&)#\210\306\307!\207" [product run-hooks skk-kakasi-load-hook require skk-version put provide skk-kakasi product-find-by-name "Daredevil SKK" product-run-checkers (12 2 0) product-add-feature product-version vector nil "Sone" "12.2.0"] 12)