;ELC ;;; Compiled by dan@wayne.mit.edu on Wed Apr 21 21:02:11 2004 ;;; from file /usr/pkgsrc-current/inputmethod/skk/work.bondage/ddskk-12.2.0/skk.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.el' was compiled for Emacs 20 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\210\300\311!\210\300\312!\210\300\313!\210\314\315\316\"\210\314\317\320\"\210\321\322\323\"\207" [require poe poem pces alist queue-m advice easymenu skk-autoloads skk-vars skk-macs skk-e21 autoload skk-kanagaki-initialize "skk-kanagaki" skk-rdbms-count-jisyo-candidates "skk-rdbms" defalias skk-toggle-kana skk-toggle-characters] 3) #@2981 ’Æü’ËÜ’¸ì’Æþ’ÎÏ’¥â’¡¼’¥É’¡£ ’¥Þ’¥¤’¥Ê’¡¼’¥â’¡¼’¥É’¤Î’°ì’¼ï’¤Ç’¡¢’¥ª’¥ê’¥¸’¥Ê’¥ë’¤Î’¥â’¡¼’¥É’¤Ë’¤Ï’±Æ’¶Á’¤ò’Í¿’¤¨’¤Ê’¤¤’¡£ ’É钤Β°ú’¿ô’¤ò’Í¿’¤¨’¤ë’¤È SKK ’¥â’¡¼’¥É’¤«’¤é’È´’¤±’¤ë’¡£ An input mode for Japanese, converting romanized phonetic strings to kanji. A minor mode, it should not affect the use of any major mode or orthogonal minor modes. In the initial SKK mode, hiragana submode, the mode line indicator is "’¤«’¤Ê". Lowercase romaji inputs are automatically converted to hiragana where possible. The lowercase characters `q' and `l' change submodes of SKK, and `x' is used as a prefix indicating a small kana. `q' is used to toggle between hiragana and katakana (mode line indicator "’¥«’¥Ê") input submodes. `l' is used to enter ASCII submode (mode line indicator "SKK"). Uppercase `L' enters JISX0208 latin (wide ASCII) submode (mode line indicator "’Á´’±Ñ"). ` ' returns to hiragana submode from either ASCII submode. Kanji conversion is complex, but the basic principle is that the user signals the appropriate stem to be matched against dictionary keys by the use of uppercase letters. Because SKK does not use grammatical information, both the beginning and the end of the stem must be marked. For non-inflected words (eg, nouns) consisting entirely of kanji, the simplest way to invoke conversion is to enter the reading of the kanji, the first character only in uppercase. A leading "’¢¦" indicates that kanji conversion is in progress. After entering the reading, press space. This invokes dictionary lookup, and the hiragana reading will be redisplayed in kanji as the first candidate. Pressing space again gives the next candidate. Further presses of space produce further candidates, as well as a list of the next few candidates in the minibuffer. Eg, "Benri" => "’¢¦’¤Ù’¤ó’¤ê", and pressing space produces "’¢§’ÊØ’Íø" (the solid triangle indicates that conversion is in progress). Backspace steps through the candidate list in reverse. A candidate can be accepted by pressing ` ', or by entering a self-inserting character. (Unlike other common Japanese input methods, RET not only accepts the current candidate, but also inserts a line break.) Inflected words (verbs and adjectives), like non-inflected words, begin input with a capital letter. However, for these words the end of the kanji string is signaled by capitalizing the next mora. Eg, "TuyoI" => "’¢§’¶¯’¤¤". If no candidate is available at that point, the inflection point will be indicated with an asterisk "*", and trailing characters will be displayed until a candidate is recognized. It will be immediately displayed (pressing space is not necessary). Space and backspace are used to step forward and backward through the list of candidates. For more information, see the `skk' topic in Info. (Japanese only.) A tutorial is available in Japanese or English via "M-x skk-tutorial". Use a prefix argument to choose the language. The default is system- dependent. (defalias 'skk-mode #[(&optional arg) "\204 ?\202\306!\307V\203\310\202\311\211\204\312 \207\n\204%\313 \210\314 \315\316#\210\317 \210\320\321\322\311\323$\210\320\324\325\311\323$\210\311\310\311\311\310\311\311\f \326 \210\327 \203^\304\202_\330!\210\331 \210)\332\333!\207" [arg skk-mode skk-mode-invoked skk-jisyo katakana skk-abbrev-mode prefix-numeric-value 0 t nil skk-mode-exit skk-mode-invoke skk-create-file "SKK ’¤Î’¶õ’¼­’½ñ’¤ò’ºî’¤ê’¤Þ’¤·’¤¿" "I have created an empty SKK Jisyo file for you" skk-require-module add-hook pre-command-hook skk-pre-command local post-command-hook skk-after-point-move skk-setup-keymap skk-update-modeline hiragana skk-cursor-set run-hooks skk-mode-hook skk-latin-mode skk-j-mode skk-jisx0208-latin-mode skk-jisx0201-mode skk-katakana] 6 (#$ . 1082) "P"]) #@329 ’Æü’ËÜ’¸ì’Æþ’ÎÏ’¥â’¡¼’¥É’¡£’¼«’Æ°’ÀÞ’¤ê’ÊÖ’¤·’µ¡’ǽ’ÉÕ’¤­’¡£ ’¥Þ’¥¤’¥Ê’¡¼’¥â’¡¼’¥É’¤Î’°ì’¼ï’¤Ç’¡¢’¥ª’¥ê’¥¸’¥Ê’¥ë’¤Î’¥â’¡¼’¥É’¤Ë’¤Ï’±Æ’¶Á’¤ò’Í¿’¤¨’¤Ê’¤¤’¡£ ’Àµ’¤Î’°ú’¿ô’¤ò’Í¿’¤¨’¤ë’¤È’¡¢’¶¯’À©’Ū’¤Ë auto-fill-mode ’µÚ’¤Ó SKK ’¥â’¡¼’¥É’¤Ë’Æþ’¤ë’¡£ ’É钤Β°ú’¿ô’¤ò’Í¿’¤¨’¤ë’¤È auto-fill-mode ’µÚ’¤Ó SKK ’¥â’¡¼’¥É’¤«’¤é’È´’¤±’¤ë’¡£ (defalias 'skk-auto-fill-mode #[(&optional arg) "\204 ?\202\303!\304V\205\305\306\n\203\307\202\310!\210\311!\210\312\313!)\207" [arg auto-fill-function auto-fill prefix-numeric-value 0 t auto-fill-mode 1 -1 skk-mode run-hooks skk-auto-fill-mode-hook] 2 (#$ . 4896) "P"]) #@63 SKK ’¼­’½ñ’¤ò’¥»’¡¼’¥Ö’¤·’¤Ê’¤¤’¤Ç’¡¢Emacs ’¤ò’½ª’λ’¤¹’¤ë’¡£ (defalias 'skk-kill-emacs-without-saving-jisyo #[(&optional query) "\304\305\203\n\306\202 \307\310\"!\2058\311 \312\"\313\314\315\316#\210\317\314!\210\320\321\322\"\210\n\2034\nq\210\323\324!\210\325\n!\210\314 !)\207" [skk-japanese-message-and-error skk-jisyo buff query yes-or-no-p format "’¼­’½ñ’¤Î’Êݒ¸’¤ò’¤»’¤º’¤Ë %s ’¤ò’½ª’λ’¤·’¤Þ’¤¹’¡£’ÎÉ’¤¤’¤Ç’¤¹’¤«’¡©" "Do you really wish to kill %s without saving Jisyo? " "Emacs" skk-get-jisyo-buffer nomsg ad-disable-advice save-buffers-kill-emacs before skk-ad ad-activate remove-hook skk-before-kill-emacs-hook skk-save-jisyo set-buffer-modified-p nil kill-buffer] 4 (#$ . 5516) "P"]) #@92 `skk-init-file' ’¤Î’ºÆ’¥í’¡¼’¥É’µÚ’¤Ó’³Æ’¼ï’ºÆ’Àß’Ä꒤Β¸å SKK ’¥â’¡¼’¥É’¤ò’µ¯’Æ°’¤¹’¤ë’¡£ (defalias 'skk-restart #[nil "\303\300!\210\304\305\301\306N@!\304\307\310!)\207" [skk-rule-tree skk-rom-kana-rule-list skk-mode-invoked kill-local-variable nil eval standard-value skk-mode 1] 3 (#$ . 6227) nil]) (defalias 'skk-require-module #[nil "\203\306\307!\210 \204\n\204\310\311!\203\306\312!\210\313\312!\203#\314 \210 \203.\306\315!\210\316 \210\f\2036\306\317!\210\313\320!\203>\321\205F\306\322!\207" [skk-use-viper skk-servers-list skk-server-host skk-auto-okuri-process skk-use-look skk-use-jisx0201-input-method require skk-viper getenv "SKKSERVER" skk-server featurep skk-adjust-search-prog-list-for-server-search skk-auto skk-adjust-search-prog-list-for-auto-okuri skk-look skk-jisx0201 t skk-dcomp skk-dcomp-activate] 2]) (defalias 'skk-mode-exit #[nil "\306\307 \210)\310\310\310\310\310\310\310\311 \210\312 \210\313\314\315\316#\210\313\314\315\316#\210\313\317\320\316#\210\310\211\211\204:\321\203F\322\"\210\236A\323=\203[A\202^@\324 \210+\310\207" [skk-mode skk-abbrev-mode skk-latin-mode skk-j-mode skk-jisx0208-latin-mode skk-jisx0201-mode t skk-kakutei nil skk-update-modeline skk-cursor-off remove-hook pre-command-hook skk-pre-command local post-command-hook skk-after-point-move default skk-modify-indicator-alist left force-mode-line-update skk-katakana string mode skk-indicator-alist indicator skk-status-indicator skk-modeline-input-mode] 5]) (defalias 'skk-mode-invoke #[nil "\306 \210\307\310\"\210\311 \210\312 \210\313 \210 \203\314 \210\n\203\"\315 \316\317#\210\320 \210\f\203,\321 \210\322 \210\310\211\207" [skk-init-file skk-share-private-jisyo skk-keep-record skk-record-file skk-use-kana-keyboard skk-mode-invoked skk-compile-init-file-maybe load t skk-cus-setup skk-adjust-user-option skk-setup-modeline skk-setup-shared-private-jisyo skk-create-file "SKK ’¤Î’µ­’Ï¿’ÍÑ’¥Õ’¥¡’¥¤’¥ë’¤ò’ºî’¤ê’¤Þ’¤·’¤¿" "I have created an SKK record file for you" skk-setup-auto-paren skk-kanagaki-initialize skk-setup-delete-selection-mode] 4]) (defalias 'skk-setup-shared-private-jisyo #[nil "\305\306\"\307 \310\311\312 !\310\313\314\315 \316#\310\260\317 \306\211\320$\210\321\322\323!!\324\216r\fq\210\325 !\210\n\326\261\210\327\330d \306\331%+\207" [skk-jisyo-save-count skk-jisyo-update-vector skk-emacs-id skk-emacs-id-file #1=#:temp-buffer make-vector nil system-name ":" number-to-string emacs-pid mapconcat int-to-string current-time "" skk-create-file 384 get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents "\n" write-region 1 nomsg] 8]) #@33 SKK ’¤Î’¥­’¡¼’Àß’Äê’¤ò’¹Ô’¤¦’¡£ (defalias 'skk-setup-keymap #[nil "\203^\306 \210\307 \310\n!\"\311=\204\340\312 !\203\313 \314#\210\313 \310\n!\311#\210\315\316!\2044\313 \310\f!\317#\210 \203>\313 \320\321#\210 \204U\313 \310!!\322#\210\313 \310\"!\323#\210\324 \210\325 \210\202\340#\203z\326 \210\307$ \"\314=\204\340\313$ \314#\210\202\340%\203\245\327 \210\307& \"\314=\204\340\313& \314#\210 \204\340\313&\310\"!\323#\210\202\340'\203\340\330 \210\307' \"\314=\204\340\313' \314#\210\313'\310(!\331#\210\313'\310\n!\332#\210 \204\340\313'\310!!\333#\210\307) \"\314=\204\f\313) \314#\210\313* \314#\210\334\335!\203\f\336\335J!\203\f\313 \314#\210+?\205\337,-\"\211+\207" [skk-j-mode skk-j-mode-map skk-try-completion-char skk-kakutei-key skk-previous-candidate-char skk-use-jisx0201-input-method skk-define-j-mode-map lookup-key char-to-string skk-insert vectorp define-key skk-kakutei featurep skk-kanagaki skk-previous-candidate "" skk-toggle-katakana skk-comp-start-henkan skk-backward-and-set-henkan-point skk-setup-delete-backward-char skk-setup-undo skk-define-latin-mode-map skk-define-jisx0208-latin-mode-map skk-define-abbrev-mode-map skk-start-henkan skk-try-completion skk-start-henkan-with-completion boundp minibuffer-local-ns-map keymapp skk-compile-rule-list skk-use-viper skk-start-henkan-with-completion-char skk-backward-and-set-henkan-point-char skk-latin-mode skk-latin-mode-map skk-jisx0208-latin-mode skk-jisx0208-latin-mode-map skk-abbrev-mode-map skk-start-henkan-char minibuffer-local-map minibuffer-local-completion-map skk-rule-tree skk-rom-kana-base-rule-list skk-rom-kana-rule-list] 4 (#$ . 8976)]) #@54 SKK ’¤Î’¥×’¥ë’¥À’¥¦’¥ó’¥á’¥Ë’¥å’¡¼’¤ò’Äê’µÁ’¤¹’¤ë’¡£ (defalias 'skk-define-menu #[(map) "\303\300\304\305#\210\306\300!\204\307\310\300 \305\n$\207" [skk-menu map skk-menu-items put variable-documentation "Menu used in SKK mode." boundp nil easy-menu-do-define] 5 (#$ . 10674)]) #@53 ’¥­’¡¼’¥Þ’¥Ã’¥× `skk-j-mode-map' ’¤ò’Äê’µÁ’¤¹’¤ë’¡£ (defalias 'skk-define-j-mode-map #[nil "\302!\204\303 \304\305\306B\307BD\"\210\310\311\"\312=?\2059\313\313\314W\2035\315\316 !\312#\210 T\211\202!)\317!\207" [skk-j-mode-map i keymapp make-sparse-keymap set-modified-alist minor-mode-map-alist skk-j-mode skk-jisx0201-mode lookup-key "a" skk-insert 32 127 define-key char-to-string skk-define-menu] 6 (#$ . 10962)]) #@57 ’¥­’¡¼’¥Þ’¥Ã’¥× `skk-latin-mode-map' ’¤ò’Äê’µÁ’¤¹’¤ë’¡£ (defalias 'skk-define-latin-mode-map #[nil "\301!?\205\302 \303\304\305BC\"\210\306!\207" [skk-latin-mode-map keymapp make-sparse-keymap set-modified-alist minor-mode-map-alist skk-latin-mode skk-define-menu] 4 (#$ . 11401)]) #@66 ’¥­’¡¼’¥Þ’¥Ã’¥× `skk-jisx0208-latin-mode-map' ’¤ò’Äê’µÁ’¤¹’¤ë’¡£ (defalias 'skk-define-jisx0208-latin-mode-map #[nil "\303!\204\304 \305\306\307BC\"\210\310\311\"\312=?\205B\313\313\314W\2038\n H\2031\315\316 !\312#\210 T\211\202)\315\317\320#\210\321!\207" [skk-jisx0208-latin-mode-map i skk-jisx0208-latin-vector keymapp make-sparse-keymap set-modified-alist minor-mode-map-alist skk-jisx0208-latin-mode lookup-key "a" skk-jisx0208-latin-insert 0 128 define-key char-to-string "" skk-latin-henkan skk-define-menu] 5 (#$ . 11695)]) #@58 ’¥­’¡¼’¥Þ’¥Ã’¥× `skk-abbrev-mode-map' ’¤ò’Äê’µÁ’¤¹’¤ë’¡£ (defalias 'skk-define-abbrev-mode-map #[nil "\301!?\205'\302 \303\304\305BC\"\210\306\307\310#\210\306\311\312#\210\306\313\314#\210\315!\207" [skk-abbrev-mode-map keymapp make-sparse-keymap set-modified-alist minor-mode-map-alist skk-abbrev-mode define-key "," skk-abbrev-comma "." skk-abbrev-period "" skk-toggle-characters skk-define-menu] 4 (#$ . 12251)]) (byte-code "\300 \210\301 \210\302 \210\303 \207" [skk-define-abbrev-mode-map skk-define-latin-mode-map skk-define-jisx0208-latin-mode-map skk-define-j-mode-map] 1) #@93 SKK ’¥¤’¥ó’¥¸’¥±’¡¼’¥¿’·¿’¥ª’¥Ö’¥¸’¥§’¥¯’¥È’¤ò’ÍÑ’°Õ’¤·’¡¢’Ï¢’ÁÛ’¥ê’¥¹’¥È’¤Ë’¤Þ’¤È’¤á’¤ë’¡£ (defalias 'skk-make-indicator-alist #[nil "\306 \210\307\310\211\211\311 \312\216\313\314\313\314 \203,\n\313=\204,\315\316 \n\236A#\202- *BB\317\320 \".B\207" [base string mode mode-string-list save-match-data-internal window-system skk-e21-prepare-modeline-properties (skk-latin-mode-string skk-hiragana-mode-string skk-katakana-mode-string skk-jisx0208-latin-mode-string skk-abbrev-mode-string skk-jisx0201-mode-string) nil match-data ((set-match-data save-match-data-internal)) default "" apply propertize mapcar #[(symbol) "\304!\305\306 \"\210\307\310\311 \"!J\305\312\n\"\203#\n\313\225\314O\202B\305\315\n\"\203@\n\313\225\314O\305\316 \"\203B \313\211\224O\202B\n \317 P\320 \"BB\207" [symbol mode string base prin1-to-string string-match "skk-\\([-a-z0-9]+\\)-mode-string" intern match-string-no-properties 1 "^ +" 0 nil "^--" "::*$" " " skk-make-indicator-alist-1] 5] skk-e21-property-alist] 7 (#$ . 12848)]) (defalias 'skk-make-indicator-alist-1 #[(mode base) "\305 \306>\203\f\307\202 \310Q \n \203( \311=\204(\312\313\n \f\236A#\202)\n+\207" [base mode string window-system skk-e21-property-alist "--" (latin abbrev) "::" ":" default apply propertize] 5]) #@59 ’¥â’¡¼’¥É’¹Ô’¤Ø’¤Î’¥¹’¥Æ’¡¼’¥¿’¥¹’ɽ’¼¨’¤ò’½à’È÷’¤¹’¤ë’¡£ (defalias 'skk-setup-modeline #[nil "\306  \307=\204d\n<\203$\n@\310\232\203$\nA@\311=\203$\312\302\nAA\"\210r\313 \314\211\203Y\f@\315 !\203R q\210\n<\203R\n@\310\232\203R\nA@\311=\203R\nAA\fA\211\204.+\312\311\310\"\210\316\317\311\"\207\311\320\302!>\204v\312\302\321\322\320\302!\"\"\210r\313 \314\211\203\272 @\315 !\203\263 q\210\n<\203\263\302\314\211\323\206\243p\"+\203\263\311\n>\204\263\321\324\n\" A\211\204\200+\203\325\320\302!>\204\322\312\302\321\326\320\302!\"\"\210r\313 \314\211\203@\315 !\203 q\210\n<\203\302\314\211\323\206p\"+\203\325\n>\204\321\327\n\"A\211\204\335+\330\331!\207" [skk-indicator-alist skk-status-indicator mode-line-format buf #1=#:--dolist-temp--36136 #2=#:--dolist-temp--36137 skk-make-indicator-alist left "" skk-modeline-input-mode set-default buffer-list nil buffer-live-p add-minor-mode skk-mode default-value append ("" skk-modeline-input-mode) local-variable-p ("" skk-modeline-input-mode) skk-icon ("" skk-icon) ("" skk-icon) force-mode-line-update t afterset buffer variable #3=#:--dolist-temp--36138] 6 (#$ . 14153)]) (defalias 'skk-setup-emulation-commands #[(commands emulation) "\306\300!\203\307\300!\203\202\310 \n\311\211\203O\f@\312 \"\311\211\f\203G\f@\313 #\210\313 #\210\fA\211\f\204**\fA\211\204+\311\207" [overriding-local-map map commands command #1=#:--dolist-temp--36139 key boundp keymapp current-global-map nil where-is-internal define-key #2=#:--dolist-temp--36140 skk-abbrev-mode-map emulation skk-j-mode-map] 6]) #@87 ’¡Ö’¸å’Âà’¡×’·Ï’¤Î’¥­’¡¼’¤Ë’¥³’¥Þ’¥ó’¥É `skk-delete-backward-char' ’¤ò’³ä’Åö’¤Æ’¤ë’¡£ (defalias 'skk-setup-delete-backward-char #[nil "\300\301\302\"\207" [skk-setup-emulation-commands (backward-delete-char-untabify backward-delete-char backward-or-forward-delete-char delete-backward-char picture-backward-clear-column) skk-delete-backward-char] 3 (#$ . 15812)]) #@80 ’¡Ö’¤ä’¤ê’¤Ê’¤ª’¤·’¡×’·Ï’¤Î’¥­’¡¼’¤Ë’¥³’¥Þ’¥ó’¥É `skk-undo' ’¤ò’³ä’Åö’¤Æ’¤ë’¡£ (defalias 'skk-setup-undo #[nil "\300\301\302\"\207" [skk-setup-emulation-commands (undo advertised-undo) skk-undo] 3 (#$ . 16182)]) #@587 ’ɬ’Í×’¤Ê’¤é `skk-init-file' ’¤ò’¥Ð’¥¤’¥È’¥³’¥ó’¥Ñ’¥¤’¥ë’¤¹’¤ë’¡£ `skk-byte-compile-init-file' ’¤¬ non-nil ’¤Î’¾ì’¹ç’¤Ç’¡¢`skk-init-file' ’¤ò’¥Ð’¥¤’¥È’¥³ ’¥ó’¥Ñ’¥¤’¥ë’¤·’¤¿’¥Õ’¥¡’¥¤’¥ë’¤¬’¸’ºß’¤·’¤Ê’¤¤’¤«’¡¢’¤½’¤Î’¥Ð’¥¤’¥È’¥³’¥ó’¥Ñ’¥¤’¥ë’ºÑ’¥Õ’¥¡’¥¤’¥ë’¤è’¤ê `skk-init-file' ’¤Î’Êý’¤¬’¿·’¤·’¤¤’¤È’¤­’¤Ï’¡¢`skk-init-file' ’¤ò’¥Ð’¥¤’¥È’¥³’¥ó’¥Ñ’¥¤’¥ë’¤¹’¤ë’¡£ `skk-byte-compile-init-file' ’¤¬ nil ’¤Î’¾ì’¹ç’¤Ç’¡¢`skk-init-file' ’¤ò’¥Ð’¥¤’¥È’¥³’¥ó’¥Ñ ’¥¤’¥ë’¤·’¤¿’¥Õ’¥¡’¥¤’¥ë’¤è’¤ê `skk-init-file' ’¤Î’Êý’¤¬’¿·’¤·’¤¤’¤È’¤­’¤Ï’¡¢’¤½’¤Î’¥Ð’¥¤’¥È’¥³’¥ó’¥Ñ’¥¤ ’¥ë’ºÑ’¥Õ’¥¡’¥¤’¥ë’¤ò’¾Ã’¤¹’¡£ (defalias 'skk-compile-init-file-maybe #[nil "\305 \306\216\307 !\211\310\311\n\"\203\312\202\313P\f\2034\314\n!\205J\314 !\203/\315\n \"\205J\316\213\202J\314\n!\205J\314 !\205J\315\n \"\205J\317 !,\207" [save-match-data-internal skk-init-file init-file elc skk-byte-compile-init-file match-data ((set-match-data save-match-data-internal)) expand-file-name string-match "\\.el$" "c" ".elc" file-exists-p file-newer-than-file-p ((byte-code "\303\203 \304\202\n\305 \"\210\306\307!\210\310\n!\207" [skk-japanese-message-and-error skk-init-file init-file message "%s ’¤ò’¥Ð’¥¤’¥È’¥³’¥ó’¥Ñ’¥¤’¥ë’¤·’¤Þ’¤¹" "Byte-compile %s" sit-for 2 byte-compile-file] 3)) delete-file] 5 (#$ . 16401)]) #@184 Delete Selection ’¥â’¡¼’¥É’¤Î’¤¿’¤á’¤Î’Àß’Äê’¤ò’¤¹’¤ë’¡£ Delete Selection ’¥â’¡¼’¥É’¤¬ SKK ’¤ò’»È’¤Ã’¤¿’Æü’ËÜ’¸ì’Æþ’ÎÏ’¤Ë’ÂÐ’¤·’¤Æ’¤â’µ¡’ǽ’¤¹’¤ë’¤è’¤¦’¤Ë ’¥»’¥Ã’¥È’¥¢’¥Ã’¥×’¤¹’¤ë’¡£ (defalias 'skk-setup-delete-selection-mode #[nil "\305\306\307\310\n!\205-\311 N?\205-\312\211\203+\f@\313 \314#\210\fA\211\204*\312+\207" [funcs property feature func #1=#:--dolist-temp--36141 delsel delete-selection (skk-current-kuten skk-current-touten skk-input-by-code-or-menu skk-insert skk-today) featurep skk-insert nil put t] 5 (#$ . 17696)]) (defalias 'skk-setup-auto-paren #[nil "\205\223 \205\223\306\307\n\"\310\211\211\211\203(\311\301@\"\210A\211\204\312\306\313 \">\205\222 \306\314\"\306\315\"\244 \310\211\203\220@\211@\316\f!\317!)\320=\203\207\321\f \"\204\207\322\f \"\204\207\321\f\"\204\207\321\f\"\204\207\f\310\fEBA\211\204I*\310,\207" [skk-auto-insert-paren skk-auto-paren-string-alist skk-special-midashi-char-list alist str rulealst mapcar char-to-string nil remove-alist t #[(e) "\302@!\303 !)\304=\207" [e char string-to-char char-charset ascii] 2] #[(e) "\3018\207" [e 2] 2] #[(e) "\3018\207" [e 2] 2] string-to-char char-charset ascii assoc rassoc strlst skk-rom-kana-rule-list skk-rom-kana-base-rule-list cell #1=#:--dolist-temp--36142 char] 5]) #@107 ’¥«’¥ì’¥ó’¥È’¥Ð’¥Ã’¥Õ’¥¡’¤Î’Æþ’ÎÏ’¥â’¡¼’¥É’¤Ë’½¾’¤¤’¥ß’¥Ë’¥Ð’¥Ã’¥Õ’¥¡’¤Î’Æþ’ÎÏ’¥â’¡¼’¥É’¤ò’Àß’Äê’¤¹’¤ë’¡£ (defalias 'skk-setup-minibuffer #[nil "\306=\203-\307\310\307\307\310\307\307 \311 \210\312\203&\301\202'\306!\210\313 )\207\301=\203Z\310\310\307\307\310\307\307 \311 \210\312\203S\301\202T\306!\210\313 )\207\314=\203x\310\310\307\307\307\307\311 \210\312\314!\210\313 \207\315=\203\231\310\307\310\307\307\307\307\311 \210\312\315!\210\313 \207\316=\205\271\310\307\307\307\310\307\307\311 \210\312\316!\210\313 \207" [skk-minibuffer-origin-mode katakana skk-mode skk-abbrev-mode skk-latin-mode skk-j-mode hiragana nil t skk-setup-keymap skk-update-modeline skk-cursor-set abbrev latin jisx0208-latin skk-jisx0208-latin-mode skk-jisx0201-mode skk-katakana] 2 (#$ . 19039)]) #@289 SKK ’¤Î’¼­’½ñ’¥Ð’¥Ã’¥Õ’¥¡’¤ò’ÍÑ’°Õ’¤¹’¤ë’¡£ `skk-jisyo' ’¤Î’¼­’½ñ’¥Ð’¥Ã’¥Õ’¥¡’¤Ç’¡¢ (1)’¶õ’¥Ð’¥Ã’¥Õ’¥¡’¤Ç’¤¢’¤ì’¤Ð’¡¢’¿·’¤·’¤¯’¥Ø’¥Ã’¥À’¡¼’¤ò’ºî’¤ê’¡¢ (2)’¼­’½ñ’¥¨’¥ó’¥È’¥ê’¤¬’¤¢’¤ë’´û’¸’¤Î’¼­’½ñ’¥Ð’¥Ã’¥Õ’¥¡’¤Ê’¤é’¤Ð’¡¢’¥Ø’¥Ã’¥À’¡¼’¤¬’Àµ’¤·’¤¤’¤«’¤É’¤¦’¤«’¤ò ’¥Á’¥§’¥Ã’¥¯’¤¹’¤ë’¡£ (defalias 'skk-setup-jisyo-buffer #[nil "\305 \306\216\307 \310U\203\311\312\261\210eb\210\313\314\315\316#\204)\317\320 \203&\321\202'\322\"\210`\313\323\315\316#\204@\317\320 \203=\324\202>\325\"\210\326 \210\327 \330y\210\331u\210\327 \211*\207" [save-match-data-internal skk-japanese-message-and-error skk-okuri-ari-min skk-okuri-ari-max skk-okuri-nasi-min match-data ((set-match-data save-match-data-internal)) buffer-size 0 ";; okuri-ari entries.\n" ";; okuri-nasi entries.\n" re-search-forward "^;; okuri-ari entries.$" nil noerror error "%s" "’Á÷’¤ê’¤¢’¤ê’¥¨’¥ó’¥È’¥ê’¤Î’¥Ø’¥Ã’¥À’¡¼’¤¬’¤¢’¤ê’¤Þ’¤»’¤ó’¡ª" "Header line for okuri-ari entries is missing!" "^;; okuri-nasi entries.$" "’Á÷’¤ê’¤Ê’¤·’¥¨’¥ó’¥È’¥ê’¤Î’¥Ø’¥Ã’¥À’¡¼’¤¬’¤¢’¤ê’¤Þ’¤»’¤ó’¡ª" "Header line for okuri-nasi entries is missing!" beginning-of-line point-marker 1 -1] 4 (#$ . 19896)]) #@105 ’¥­’¡¼’Æþ’ÎÏ’¤Ë’ÂÐ’¤·’¤Æ Emacs ’¤Î’¥ª’¥ê’¥¸’¥Ê’¥ë’¤Î’¥­’¡¼’³ä’¤ê’ÉÕ’¤±’¤Ç’¥³’¥Þ’¥ó’¥É’¤ò’¼Â’¹Ô’¤¹’¤ë’¡£ (defalias 'skk-emulate-original-map #[(arg) "\306\307 \"\n\2053\310\211\211\211\211\211\211\f \311\n!\211 =?\2051\312\f\2060\313!.*\207" [arg this-command keys prefix-arg command skk-jisx0201-mode skk-command-key-sequence this-command-keys nil key-binding command-execute undefined skk-jisx0208-latin-mode skk-abbrev-mode skk-j-mode skk-latin-mode skk-mode] 8 (#$ . 21058)]) #@190 KEY ’¤«’¤é universal arguments ’¤ò’¼è’¤ê’½ü’¤­’¡¢COMMAND ’¤ò’¼Â’¹Ô’¤¹’¤ë’¥­’¡¼’¤ò’ÊÖ’¤¹’¡£ `execute-extended-command' ’¤Ë’¤è’¤Ã’¤Æ’¥³’¥Þ’¥ó’¥É’¤¬’¼Â’¹Ô’¤µ’¤ì’¤¿’¾ì’¹ç’¤Ï’¡¢nil ’¤ò’ÊÖ’¤¹’¡£ (defalias 'skk-command-key-sequence #[(key command) "\302G!\204 \303!=\204\304\305\306\"A!\202\302G!?\205#\207" [key command zerop key-binding vconcat append nil] 4 (#$ . 21563)]) #@56 ’¥æ’¡¼’¥¶’¥ª’¥×’¥·’¥ç’¥ó’¤Î’ÉÔ’À°’¹ç’¤ò’Ä´’À°’¤¹’¤ë’¡£ (defalias 'skk-adjust-user-option #[nil "\203 \306 \204 \307\n\203\307\307\307\307 ?\205\"\307\211\n\207" [window-system skk-use-color-cursor skk-process-okuri-early skk-kakutei-early skk-auto-okuri-process skk-henkan-okuri-strictly x-display-color-p nil skk-henkan-strict-okuri-precedence skk-jisyo-save-count skk-share-private-jisyo] 2 (#$ . 21951)]) #@165 ’¢¦’¥â’¡¼’¥É’¤Ç’¸«’½Ð’¤·’¸ì’¤Î’Êä’´°’¤ò’¹Ô’¤¦’¡£ ’¤½’¤ì’°Ê’³°’¤Î’¥â’¡¼’¥É’¤Ç’¤Ï’¡¢’¥ª’¥ê’¥¸’¥Ê’¥ë’¤Î’¥­’¡¼’³ä’¤ê’ÉÕ’¤±’¤Î’¥³’¥Þ’¥ó’¥É’¤ò’¥¨’¥ß’¥å’¥ì’¡¼’¥È’¤¹’¤ë’¡£ (defalias 'skk-try-completion #[(arg) "\303\216\304=\203\305 \206\n\306=?!\202\307 !)\207" [skk-henkan-mode arg last-command ((byte-code "`\301\207" [skk-previous-point nil] 1)) on skk-comp skk-comp-do skk-emulate-original-map] 3 (#$ . 22380) "P"]) #@63 SKK ’¤Î’¥â’¡¼’¥É’¤ò latin (ascii) ’¥â’¡¼’¥É’¤Ë’ÊÑ’¹¹’¤¹’¤ë’¡£ (defalias 'skk-latin-mode #[(arg) "\306 \210\307\310\307\310\310\310\310 \311 \210\312\313!\210\314 \210\310\207" [skk-mode skk-abbrev-mode skk-latin-mode skk-j-mode skk-jisx0208-latin-mode skk-jisx0201-mode skk-kakutei t nil skk-setup-keymap skk-update-modeline latin skk-cursor-set skk-katakana] 2 (#$ . 22807) "P"]) #@66 SKK ’¤Î’¥â’¡¼’¥É’¤ò’Á´’³Ñ’±Ñ’»ú’Æþ’ÎÏ’¥â’¡¼’¥É’¤Ë’ÊÑ’¹¹’¤¹’¤ë’¡£ (defalias 'skk-jisx0208-latin-mode #[(arg) "\306 \210\307\310\310\310\307\310\310 \311 \210\312\313!\210\314 \210\310\207" [skk-mode skk-abbrev-mode skk-latin-mode skk-j-mode skk-jisx0208-latin-mode skk-jisx0201-mode skk-kakutei t nil skk-setup-keymap skk-update-modeline jisx0208-latin skk-cursor-set skk-katakana] 2 (#$ . 23201) "P"]) #@74 ascii ’ʸ’»ú’¤ò’¥­’¡¼’¤Ë’¤·’¤¿’ÊÑ’´¹’¤ò’¹Ô’¤¦’¤¿’¤á’¤Î’Æþ’ÎÏ’¥â’¡¼’¥É’¡£ (defalias 'skk-abbrev-mode #[(arg) "\306=\203\f\307 \210\202\310=\203\311\312 \203\313\202\314\"\210\315\316 \210)\317\317\315\315\315\315\320 \210\321\322!\210\323 \210\315\207" [skk-henkan-mode skk-japanese-message-and-error skk-dcomp-activate skk-mode skk-abbrev-mode skk-latin-mode active skk-kakutei on error "%s" "’´û’¤Ë’¢¦’¥â’¡¼’¥É’¤Ë’Æþ’¤Ã’¤Æ’¤¤’¤Þ’¤¹" "Already in ’¢¦ mode" nil skk-set-henkan-point-subr t skk-setup-keymap skk-update-modeline abbrev skk-cursor-set skk-j-mode skk-jisx0208-latin-mode skk-jisx0201-mode] 3 (#$ . 23616) "*P"]) #@268 ’¢£’¥â’¡¼’¥É’¡¢’¢§’¥â’¡¼’¥É’¤Ç’¡¢’¤Ò’¤é’¤¬’¤Ê’¥â’¡¼’¥É’¤È’¥«’¥¿’¥«’¥Ê’¥â’¡¼’¥É’¤ò’¥È’¥°’¥ë’¤Ç’ÀÚ’¤ê’ÂØ’¤¨’¤ë’¡£ ’¢¦’¥â’¡¼’¥É’¤Ç’¤Ï skk-henkan-start-point (’¢¦’¤Î’ľ’¸å) ’¤È’¥«’¡¼’¥½’¥ë’¤Î’´Ö’¤Î’ʸ’»ú’Îó’¤Ë’¤Ä’¤¤ ’¤Æ’¡¢’¤Ò’¤é’¤¬’¤Ê’¤È’¥«’¥¿’¥«’¥Ê’¤ò’Æþ’¤ì’ÂØ’¤¨’¤ë’¡£ (defalias 'skk-toggle-characters #[(arg) "\306=\203[\307\310 \311\216 b\210\n`Y\203+\312\313!\204%\314 \211\315=\203+\316u\210\202*\317 \320=\2037\321\202R \305=\203A\322\202R \323=\203K\324\202R \325=\205R\326 \320=\"\210)\202\232p\327\330 !=\203\225\f\204\225\307\331\307\307 \331\307!\307\" #\332 \210\333#\203\213\305\202\214\320!\210\334 \210)\202\232#?#\335 \210\f\203\314#\331\307\307 \331\307!\307\" #\332 \210\333#\203\305\305\202\306\320!\210\334 \210)\307\207" [skk-henkan-mode char skk-save-point skk-henkan-start-point skk-j-mode katakana on nil point-marker ((byte-code "b\210\204\n\301 \302\211\223\207" [skk-save-point make-marker nil] 3)) looking-at "’¡¼" skk-what-char-type unknown 1 skk-henkan-skk-region-by-func hiragana skk-katakana-region skk-hiragana-region jisx0208-latin skk-latin-region ascii skk-jisx0208-latin-region window-buffer minibuffer-window t skk-setup-keymap skk-update-modeline skk-cursor-set skk-kakutei skk-mode skk-abbrev-mode skk-latin-mode skk-jisx0208-latin-mode skk-jisx0201-mode skk-katakana] 4 (#$ . 24267) "P"]) #@130 `picture-mode' ’¤Ø’Æþ’¤Ã’¤¿’¤È’¤­’¤Ë SKK ’µ¯’Æ°’Á°’¤Î’¾õ’ÂÖ’¤Ë’Ìá’¤¹’¡£ `edit-picture-hook' ’¤Ë `add-hook' ’¤·’¤Æ’»È’ÍÑ’¤¹’¤ë’¡£ (defalias 'skk-misc-for-picture #[nil "\205\301 \207" [skk-mode skk-kill-local-variables] 1 (#$ . 25657)]) #@66 SKK ’´Ø’Ï¢’¤Î’¥Ð’¥Ã’¥Õ’¥¡’¥í’¡¼’¥«’¥ë’ÊÑ’¿ô’¤ò’̵’¸ú’¤Ë’¤¹’¤ë’¡£ (defalias 'skk-kill-local-variables #[nil "\303\304!\210\305 \306\211\n\2051\n@@\nA\307 !\211G\310V\203 \311\312O\313\230\203 \314 !\210\202 +\207" [vstr v lv skk-mode -1 buffer-local-variables nil prin1-to-string 3 0 4 "skk-" kill-local-variable] 4 (#$ . 25902)]) #@36 SKK ’¤Î’ʸ’»ú’Æþ’ÎÏ’¤ò’¹Ô’¤Ê’¤¦’¡£ (defalias 'skk-insert #[(&optional arg) "\306\216\n\203 >\203\307\f!\202\235 >\203C\204=\3108)\203= \311!\236*\204C\312\f!\202\235\n\203T =\203T\313\f!\202\235\n\314=\204`\315\f!\202\235\n\314=\203} =\203}\316\f\310U\205x\317=?!\202\235\n\314=\203\232 D>\203\232\317=\203\232\320 !\202\235\315\f!*\207" [last-command-char ch skk-henkan-mode skk-special-midashi-char-list arg skk-set-henkan-point-key ((byte-code "`\301\207" [skk-previous-point nil] 1)) skk-process-prefix-or-suffix 1 skk-get-branch-list skk-set-henkan-point skk-start-henkan on skk-kana-input skk-comp skk-comp-do skk-comp-previous/next skk-okurigana skk-current-rule-tree tree char skk-start-henkan-char skk-try-completion-char last-command skk-next-completion-char skk-previous-completion-char] 3 (#$ . 26249) "*p"]) #@250 ’ÀܒƬ’¼­’¤Þ’¤¿’¤Ï’ÀÜ’Èø’¼­’¤Î’Æþ’ÎÏ’¤ò’³«’»Ï’¤¹’¤ë’¡£ ’¤³’¤ì’¤Ï’¡¢’Éá’ÄÌ `skk-special-midashi-char-list' ’¤Ë’»Ø’Äê’¤µ’¤ì’¤¿’ʸ’»ú’¤Î’Æþ’ÎÏ’¤¬’¤¢’¤Ã’¤¿’¾ì ’¹ç’¤Ë’Èó’ÂÐ’ÏÒŪ’¤Ë’¸Æ’¤Ó’½Ð’¤µ’¤ì’¤ë’¤¬’¡¢’ÂÐ’ÏÒŪ’¤Ë’¸Æ’½Ð’¤¹’¤³’¤È’¤â’²Ä’ǽ’¤Ç’¤¢’¤ë’¡£ (defalias 'skk-process-prefix-or-suffix #[(&optional arg) "\306=\203\307 \210\310\311 \210)\312\313!\207\314=\203\245\302 \203+\315 !\204+\316 !\2022\f\2052\f @\310\n\204?\203~\317\320!\210\321!\203Q\310!\202S\211:\203f\203c @\202e A ;\203o\322 !\210\204x\323 \310\211\223\210+\312\313!\210 \204\214\323   `\310\223\210\324!\325\"`\"#\326$\327%\330 \207&\203\321\331'!&(\332\333\334\217))\211*\324V\205\317\322)!\210*S\211*\202\274*\207\327\207" [skk-henkan-mode skk-kakutei-history force skk-current-rule-tree skk-kana-input-search-function kana active skk-kakutei nil skk-set-henkan-point-subr insert-and-inherit 62 on skk-get-nextstate skk-get-kana skk-erase-prefix clean functionp skk-insert-str make-marker 0 buffer-substring-no-properties "" t skk-henkan prefix-numeric-value #1=#:G36143 (char-to-string char) ((error)) data skk-katakana skk-kana-start-point skk-henkan-end-point skk-henkan-count skk-henkan-start-point skk-henkan-key skk-prefix skk-after-prefix last-command-char arg char str i] 5 (#$ . 27135) "*p"]) #@47 ’¤«’¤Ê’ʸ’»ú’¤Î’Æþ’ÎÏ’¤ò’¹Ô’¤¦’¥ë’¡¼’¥Á’¥ó’¡£ (defalias 'skk-kana-input #[(&optional arg) "\306C \205\205 \307\f8)\204$ \204\310  `\311\223\210%\202Q\311&'\203F \203F(\312\230\204F\313 !\211)\203E\311\314\315\217\210)&\203P\312(\311) \307\f8)\316!P( @**\317\f!\236*\311+\211,\203\301,\320\f8)\203\246-\321=\203\235.\203\235/\204\235\322 \210 \204\230\310  `\311\223\210 A,\202,\323\f8)+\324,\325\f8)! A\244\311\202 \323\f8)\2110\203\3410+\324 \325\f8)! \244\311\2021\205\3511 \2112\2032@+\3242A! A\244\311\202 %=\203\311\311\202\311))+\204\224 \203N$\204&34 \307\f8)\211(*'\203J\326\327 56\330\216\331*\206G(!\210+)\202y-\321=\203X\322 \210\312( \204y7\332=\204k-\204y\3333\2113\307U\203z\311\202\2163\334U\203\205\335\202\2163\247\205\2163C)!\210\202y\312(\336+!\203\306+3\2113\307U\203\256\311\202\3023\334U\203\271\335\202\3023\247\205\3023C)!++:\203\322+@\202\324+;\203y+:\203\3578\203\351+@\202\361+A\202\361+9:\205\377\3379;\"A<3=3>\306?-\321=\203 .\203 /\204 \322 \210\340 \210=\306V\2038\3419!\210=S\211=\202%<\203l>\306V\203`<\316g!\230\204W?T?\341S\211>\202??\306U\204l\342?!\210@\203x \204x\343 \210-*$\203\344 \210\202*\207" [last-command-char queue echo-keystrokes skk-current-rule-tree tree skk-kana-start-point 0 1 make-marker nil "" marker-position (byte-code "\304\305 \306\216\n\211 G\\|\210+\304\207" [modified buffer-undo-list start skk-prefix t buffer-modified-p ((set-buffer-modified-p modified))] 3) ((error (byte-code "\204\303 \304\211\223\210\305\304\304\207" [skk-kana-start-point skk-prefix skk-current-rule-tree make-marker nil ""] 3))) char-to-string skk-get-branch-list 4 active skk-kakutei 3 string-to-char-list 2 t buffer-modified-p ((set-buffer-modified-p modified)) insert-and-inherit skk-insert skk-emulate-original-map -1 - functionp assoc skk-cancel-undo-boundary skk-insert-str backward-char skk-set-okurigana skk-isearch-message skk-rule-tree clean skk-echo skk-prefix start char data next skk-henkan-mode skk-kakutei-early skk-process-okuri-early d skk-kana-input-search-function dd arg prefix-arg modified buffer-undo-list this-command skk-katakana str skk-auto-insert-paren skk-auto-paren-string-alist pair count0 count1 inserted skk-okurigana] 4 (#$ . 28477)]) #@242 TREE ’¤Î’º¬’¤«’¤é’Àè’ü’¤Ø CHAR-LIST ’¤Ë’½¾’¤Ã’¤Æ’¤¿’¤É’¤ë’¡£ ’À®’¸ù’¤·’¤¿’¾ì’¹ç’¤Ï nil ’¤È ’·ë’²Ì’¤Î’ÌÚ’¤Î’ÁÈ’¤ò’ÊÖ’¤·, ’¼º’ÇÔ’¤·’¤¿’¾ì’¹ç’¤Ï’¤¿’¤É’¤ì’¤Ê’¤«’¤Ã’¤¿ CHAR-LIST ’¤Î’»Ä’¤ê’¤È’¤¿’¤É’¤ì’¤Ê’¤¯’¤Ê’¤Ã’¤¿’Àá’ÅÀ’¤Î’ÌÚ’¤Î’ÁÈ’¤ò’ÊÖ’¤¹’¡£ (defalias 'skk-search-tree #[(tree char-list) "\300\301\215\207" [return (byte-code "\305\211\211 \2031 @ A\f  \306\f!\236*\211\203'\n\211\202\307\310 \fB\"\210\202\305\f+B\207" [rest char next char-list tree nil skk-get-branch-list throw return] 5)] 2 (#$ . 30908)]) (defalias 'skk-add-rule #[(tree rule) "@\211G\306 \307 !\"\211@\fA \203m @\310 !\203$ \202, \311\n GZTO\312\211\211\211 \313\230\203E\312\202G\257-\314 \315 !B\"\210* A)\202A@\313\230\203\312\316 \233\240\210*\3168\317 \233\240.\207" [rule prefix l tree result rest skk-search-tree string-to-char-list vectorp 0 nil "" skk-set-branch-list skk-get-branch-list 2 3 addpoint branch-list kana nextstate char addtree branch] 6]) #@79 ’Æþ’ÎÏ STRING ’¤Ë’ÂÐ’¤¹’¤ë’¥ë’¡¼’¥ë’¤ò’¥ë’¡¼’¥ë’ÌÚ TREE ’¤«’¤é’ºï’½ü’¤¹’¤ë’¡£ (defalias 'skk-delete-rule #[(tree string) "\300\301\215\207" [return (byte-code "\306! \211\307 8)@\310 \203K @\311 !\236* A\n\203C \307 8)G\312V\203> \n\n\202\n\202\313\314\310\"\210\202\f\315 \f\307 8)\"\307 \233\240.\207" [string tree next cuttree cutpoint char-list string-to-char-list 4 nil skk-get-branch-list 1 throw return delq char branch-list] 5)] 2 (#$ . 31935)]) #@51 rule list ’¤ò’ÌÚ’¤Î’·Á’¤Ë’¥³’¥ó’¥Ñ’¥¤’¥ë’¤¹’¤ë’¡£ (defalias 'skk-compile-rule-list #[(&rest l) "\306\307\306\211\211\211 \n\307\230\203\306\202\n \257-\306\211\211\f \203X@A \203& @\211 @\f A\310\311\312\217\210\f;\2034\313 \"\210\2024,\207" [branch-list kana nextstate prefix char ll nil "" #1=#:G36144 (byte-code "9\203\303!\211;\203 \240\210;\203,\304\305\"\204,\306!\307=\204,\310\n\311#\210\303\207" [key rule skk-j-mode-map eval string-match "\\w" key-binding self-insert-command define-key skk-insert] 5) ((error)) skk-add-rule key rule tree l] 6 (#$ . 32430)]) #@152 STR ’¤ò’ÁÞ’Æþ’¤¹’¤ë’¡£’ɬ’Í×’¤Ç’¤¢’¤ì’¤Ð `self-insert-after-hook' ’¤ò’¥³’¡¼’¥ë’¤¹’¤ë’¡£ `overwrite-mode' ’¤Ç’¤¢’¤ì’¤Ð’¡¢’Ŭ’ÀÚ’¤Ë’¾å’½ñ’¤­’¤ò’¹Ô’¤¦’¡£ (defalias 'skk-insert-str #[(str) "\306!\210 \307=\203\n\2037 \2047\302!\210\2027\310\304!\203+\f\203+\f`GZ`\"\210 \2037\311\312\313!!!\210\f\205I ?\205I \205I \207" [str skk-henkan-mode skk-auto-start-henkan skk-okurigana self-insert-after-hook overwrite-mode insert-and-inherit on boundp skk-del-char-with-pad skk-ovwrt-len string-width skk-j-mode auto-fill-function] 4 (#$ . 33059)]) #@41 ’¾å’½ñ’¤­’¤·’¤Æ’ÎÉ’¤¤’Ĺ’¤µ’¤ò’ÊÖ’¤¹’¡£ (defalias 'skk-ovwrt-len #[(len) "\302\303`\304 \305\216\306\210`*\"! ^\207" [skk-save-point len string-width buffer-substring-no-properties point-marker ((byte-code "b\210\204\n\301 \302\211\223\207" [skk-save-point make-marker nil] 3)) nil] 4 (#$ . 33622)]) #@122 ’Ĺ’¤µ LENGTH ’¤Î’ʸ’»ú’¤ò’¾Ã’µî’¤¹’¤ë’¡£ ’Ä´’À°’¤Î’¤¿’¤á’¡¢’ɬ’Í×’¤Ç’¤¢’¤ì’¤Ð’¡¢’Ëö’Èø’¤Ë’¥¹’¥Ú’¡¼’¥¹’¤ò’ÁÞ’Æþ’¤¹’¤ë’¡£ (defalias 'skk-del-char-with-pad #[(length) "`\303\nW\203\304u\210\305\306` \"!\211\202 `|\210\nU?\205)\307\310!\210\311u*\207" [len p length 0 1 string-width buffer-substring-no-properties insert-and-inherit " " -1] 5 (#$ . 33936)]) (defalias 'skk-cancel-undo-boundary #[nil "\303W\203 \304>\203\305 \210\n?\205T\211\207\306\211\207" [skk-self-insert-non-undo-count last-command skk-current-rule-tree 20 (skk-insert skk-jisx0208-latin-insert) cancel-undo-boundary 1] 2]) #@92 ’¸«’½Ð’¤·’¸ì’¤«’¤é `skk-henkan-okurigana', `skk-henkan-key' ’¤Î’³Æ’ÃÍ’¤ò’¥»’¥Ã’¥È’¤¹’¤ë’¡£ (defalias 'skk-set-okurigana #[nil "\306 \210\204\n\307  \310\223\210\311 \312\216 b\210g\313=\204!\314\315!\210*\316 T`\"\316\f\"\317 !\2063 P\320\203H\321!\321 ! \211T|\210\322\323 \210\310\211\207" [skk-henkan-end-point skk-okurigana-start-point skk-save-point skk-henkan-okurigana skk-henkan-start-point skk-okuri-char cancel-undo-boundary make-marker nil point-marker ((byte-code "b\210\204\n\301 \302\211\223\207" [skk-save-point make-marker nil] 3)) 42 insert-and-inherit "*" buffer-substring-no-properties skk-okurigana-prefix "" skk-katakana-to-hiragana 0 skk-henkan skk-henkan-key skk-prefix skk-katakana skk-henkan-count skk-okurigana] 3 (#$ . 34555)]) #@50 ’¶ç’ÆÉ’ÅÀ’¤Î’¼ï’Îà’¤ò’¥È’¥°’¥ë’¤Ç’ÊÑ’¹¹’¤¹’¤ë’¡£ (defalias 'skk-toggle-kutouten #[nil "\302=\203\n\303\202 \302t\205!\304 \203\305\202\306\307\310!\311\310!#\207" [skk-kutouten-type skk-japanese-message-and-error jp en message "’¶ç’ÅÀ: `%s' ’ÆÉ’ÅÀ: `%s'" "Kuten: `%s' Touten: `%s'" skk-current-kuten nil skk-current-touten] 5 (#$ . 35346) nil]) (defalias 'skk-current-kuten #[(arg) " \236A@\207" [skk-kutouten-type skk-kuten-touten-alist] 2]) (defalias 'skk-current-touten #[(arg) " \236AA\207" [skk-kutouten-type skk-kuten-touten-alist] 2]) #@290 SKK abbrev ’¥â’¡¼’¥É’¤Ç’¸«’½Ð’¤·’¤Î’Êä’´°’Ã撤ǒ¤¢’¤ì’¤Ð’¡¢’¼¡’¤Î’¸õ’Êä’¤ò’ɽ’¼¨’¤¹’¤ë’¡£ ’Êä’´°’¤Î’ľ’¸å’¤Ç’¤Ê’¤±’¤ì’¤Ð’¡¢’¥ª’¥ê’¥¸’¥Ê’¥ë’¤Î’¥­’¡¼’³ä’¤ê’ÉÕ’¤±’¤Î’¥³’¥Þ’¥ó’¥É’¤ò’¥¨’¥ß’¥å’¥ì’¡¼’¥È’¤¹’¤ë’¡£ SKK abbrev ’¥â’¡¼’¥É’°Ê’³°’¤Ç’¤Ï’¡¢skk-insert-period ’´Ø’¿ô’¤ò’»È’ÍÑ’¤¹’¤ë’¤³’¤È’¡£ (defalias 'skk-abbrev-period #[(arg) "\303\216\304=\203\304\304\305!\202\306\n!)\207" [last-command this-command arg ((byte-code "`\301\207" [skk-previous-point nil] 1)) skk-comp-do nil skk-emulate-original-map] 2 (#$ . 35908) "*P"]) #@292 SKK abbrev ’¥â’¡¼’¥É’¤Ç’¸«’½Ð’¤·’¤Î’Êä’´°’Ã撤ǒ¤¢’¤ì’¤Ð’¡¢’ľ’Á°’¤Î’¸õ’Êä’¤ò’ɽ’¼¨’¤¹’¤ë’¡£ ’Êä’´°’¤Î’ľ’¸å’¤Ç’¤Ê’¤±’¤ì’¤Ð’¡¢’¥ª’¥ê’¥¸’¥Ê’¥ë’¤Î’¥­’¡¼’³ä’¤ê’ÉÕ’¤±’¤Î’¥³’¥Þ’¥ó’¥É’¤ò’¥¨’¥ß’¥å’¥ì’¡¼’¥È’¤¹’¤ë’¡£ SKK abbrev ’¥â’¡¼’¥É’°Ê’³°’¤Ç’¤Ï’¡¢skk-insert-comma ’´Ø’¿ô’¤ò’»È’ÍÑ’¤¹’¤ë’¤³’¤È’¡£ (defalias 'skk-abbrev-comma #[(arg) "\303\216\304=\203\304\305 \202\306\n!)\207" [last-command this-command arg ((byte-code "`\301\207" [skk-previous-point nil] 1)) skk-comp-do skk-comp-previous skk-emulate-original-map] 2 (#$ . 36445) "*P"]) #@386 ’Á´’±Ñ’ʸ’»ú’¤ò’¥«’¥ì’¥ó’¥È’¥Ð’¥Ã’¥Õ’¥¡’¤Ë’ÁÞ’Æþ’¤¹’¤ë’¡£ skk-jisx0208-latin-vector ’¤ò’¥Æ’¡¼’¥Ö’¥ë’¤È’¤·’¤Æ’¡¢’ºÇ’¸å’¤Ë’Æþ’ÎÏ’¤µ’¤ì’¤¿’¥­’¡¼’¤Ë’ÂÐ’±þ’¤¹’¤ë’ʸ ’»ú’¤ò’ÁÞ’Æþ’¤¹’¤ë’¡£ skk-auto-insert-paren ’¤Î’ÃÍ’¤¬ non-nil ’¤Î’¾ì’¹ç’¤Ç’¡¢skk-auto-paren-string-alist ’¤Ë ’ÂÐ’±þ’¤¹’¤ë’ʸ’»ú’Î󒤬’¤¢’¤ë’¤È’¤­’¤Ï’¡¢’¤½’¤Î’ÂÐ’±þ’¤¹’¤ë’ʸ’»ú’Îó (’¤«’¤Ã’¤³’Îà) ’¤ò’¼«’Æ°’Ū’¤Ë’ÁÞ’Æþ’¤¹’¤ë’¡£ (defalias 'skk-jisx0208-latin-insert #[(arg) "\306\216 H  \205\307\n\"A\310\n\204!\311 !\202f\312 \210 \310V\2035\313\n!\210 S\211\202%\205f\f\310V\203Z\314g!\230\204ST\313!\210\fS\211\202;\310U?\205f\315!-\207" [skk-jisx0208-latin-vector last-command-char str arg arg2 skk-auto-insert-paren ((byte-code "`\301\207" [skk-previous-point nil] 1)) assoc 0 skk-emulate-original-map skk-cancel-undo-boundary skk-insert-str char-to-string backward-char skk-auto-paren-string-alist pair-str pair-str-inserted] 4 (#$ . 36993) "*p"]) #@387 ’¢§’¥â’¡¼’¥É’¤Ç `skk-delete-implies-kakutei' ’¤Ê’¤é’ľ’Á°’¤Î’ʸ’»ú’¤ò’¾Ã’¤·’¤Æ’³Î’Äê’¤¹’¤ë’¡£ ’¢§’¥â’¡¼’¥É’¤Ç `skk-delete-implies-kakutei' ’¤¬ nil ’¤À’¤Ã’¤¿’¤é’Á°’¸õ’Êä’¤ò’ɽ’¼¨’¤¹’¤ë’¡£ ’¢¦’¥â’¡¼’¥É’¤Ç`’¢¦'’¤è’¤ê’¤â’Á°’¤Î’¥Ý’¥¤’¥ó’¥È’¤Ç’¼Â’¹Ô’¤¹’¤ë’¤È’³Î’Äê’¤¹’¤ë’¡£ ’³Î’Äê’Æþ’ÎÏ’¥â’¡¼’¥É’¤Ç’¡¢’¤«’¤Ê’¥×’¥ì’¥Õ’¥£’¥Ã’¥¯’¥¹’¤Î’Æþ’ÎÏ’Ã撤ʒ¤é’¤Ð’¡¢’¤«’¤Ê’¥×’¥ì’¥Õ’¥£’¥Ã’¥¯’¥¹’¤ò’¾Ã’¤¹’¡£ (defalias 'skk-delete-backward-char #[(arg) "\306\216\307!\n\310=\203S \204\f`U\203\311 \202\316 \203+\312 !\210\313 \"\210\202/\314!\210G V\203E\315G ZO\202H\316\f`Y\205\316\317 \202\316\n\203f`Y\203f\315\317 \202\316\n\203y \203y\312 !\210\313 \"\202\316\320 \210\3218)\203\274\322\203\254\203\254\316\230\204\254\323!\211\203\253\324\325\326\217\210)\205\270\316\324\211)\202\316\204\305\327 \324\211\223\210\314!*\207" [arg count skk-henkan-mode skk-delete-implies-kakutei skk-henkan-end-point overwrite-mode ((byte-code "`\301\207" [skk-previous-point nil] 1)) prefix-numeric-value active skk-previous-candidate backward-char delete-char skk-emulate-original-map 0 "" skk-kakutei skk-delete-okuri-mark 1 clean marker-position nil (byte-code "\304\305 \306\216\n\211 G\\|\210+\304\207" [modified buffer-undo-list start skk-prefix t buffer-modified-p ((set-buffer-modified-p modified))] 3) ((error (byte-code "\204\303 \304\211\223\210\305\304\304\207" [skk-kana-start-point skk-prefix skk-current-rule-tree make-marker nil ""] 3))) make-marker skk-prefix skk-henkan-start-point skk-henkan-count skk-current-rule-tree tree skk-echo skk-kana-start-point start] 5 (#$ . 37947) "*P"]) #@53 ’¥«’¥Ê’¤ò’´Á’»ú’ÊÑ’´¹’¤¹’¤ë’¥á’¥¤’¥ó’¥ë’¡¼’¥Á’¥ó’¡£ (defalias 'skk-henkan #[nil "\306\211\211\211\f\307\230\203\310 \202vm\204#\311 \312\216\313u\210\311 *\314=\2041\315 \210\316\317\215\210 \203S \n\230\203S\203S\320\321!\203S\203S\322\323! \203l b\210 \204a\324  \306\211\223\210\325u\210\202odb\210\205v\310 !,\207" [kakutei-henkan new-word prototype mark skk-henkan-key skk-save-point nil "" skk-kakutei point-marker ((byte-code "b\210\204\n\301 \302\211\223\207" [skk-save-point make-marker nil] 3)) 1 active skk-change-marker unread (byte-code "\304 \211\203\f\202\305 \211\203\306!\n \203!\307 !\210\304\207" [prototype new-word skk-kakutei-flag kakutei-henkan skk-henkan-1 skk-henkan-in-minibuff skk-quote-semicolon skk-insert-new-word] 2) require skk-num skk-get-current-candidate noconv make-marker -1 skk-henkan-mode skk-search-prog-list skk-current-search-prog-list skk-use-numeric-conversion skk-num-list] 4 (#$ . 39610)]) #@39 `skk-henkan' ’¤Î’¥µ’¥Ö’¥ë’¡¼’¥Á’¥ó’¡£ (defalias 'skk-henkan-1 #[nil "\306 \307U\203>\n\310=\203 @@\311=\203 A \2030\2040\312\f\313 \"\314 \210\315 \202\203i \203i\316\202i\315 \211\204\\ \203\\\204\\\312\f\313 \"\314 \210\315 \202E\203i \317V\203i\320 )\207" [new-word skk-henkan-count last-command skk-current-search-prog-list skk-henkan-list skk-kakutei-flag nil 0 skk-undo-kakutei-henkan skk-search-kakutei-jisyo-file skk-nunion skk-search skk-henkan-list-filter skk-get-current-candidate skk-kakutei-henkan 3 skk-henkan-show-candidates this-command] 4 (#$ . 40603)]) (defalias 'skk-get-current-candidate #[(&optional noconv) "\203\306\307!\203 \204*\310 \311\nV\203%\312\313\f\203\"\314\202#\315\"\210\n 8)\207\203L\310 \311\nV\203F\312\313\f\203C\314\202D\315\"\210\n 8)@\207\310 \311\nV\203c\312\313\f\203`\314\202a\315\"\210\n 8)A\207" [skk-use-numeric-conversion skk-num-list count skk-henkan-count skk-japanese-message-and-error skk-henkan-list require skk-num nil 0 error "%s" "’¸õ’Êä’¤ò’¼è’¤ê’½Ð’¤¹’¤³’¤È’¤¬’¤Ç’¤­’¤Þ’¤»’¤ó" "Cannot get current candidate" noconv] 3]) (defalias 'skk-henkan-list-filter #[nil "\203\303\304!\203 \203\305 \210\306 \210\307\310!\205 \n\205 \311 \207" [skk-use-numeric-conversion skk-num-list skk-jisx0213-prohibit require skk-num skk-num-uniq skk-num-multiple-convert featurep jisx0213 skk-jisx0213-henkan-list-filter] 2]) (defalias 'skk-multiple-line-message-clear #[nil "\300\301!\210\302\303\304\"\207" [skk-multiple-line-message nil remove-hook pre-command-hook skk-multiple-line-message-clear] 3]) (defalias 'skk-multiple-line-message #[(fmt &rest args) "\306=\204\307\301!\203 \310Y\203\311\312\n #\207\313 \314\216\315\316 !\210\n\203.\311\317\n #\202/\320\321\322  \323\324\"\203RT\325\225\326O\202:\326\327\330\217\210 .\207" [skk-emacs-type emacs-major-version fmt args save-selected-window-window str xemacs boundp 21 apply message selected-window ((byte-code "\301!\203\n\302!\210\301\207" [save-selected-window-window window-live-p select-window] 2)) select-window minibuffer-window format "" 1 window-height string-match "\n" 0 nil (byte-code "\306 Z!\210\n\307 \210\310\311!\210\fc\210 )\f\312\232\203/ \313=\2034\311\314\nG\n\"\210\311)\2024\315\316\317\"\210\311\207" [lines last-minibuffer-height skk-buffer-undo-list buffer-undo-list str skk-emacs-type enlarge-window erase-buffer message nil "" mule4 primitive-undo add-hook pre-command-hook skk-multiple-line-message-clear] 3) ((quit (byte-code "\301\302 Z!\207" [last-minibuffer-height shrink-window window-height] 3))) lines last-minibuffer-height tmp] 4]) (defalias 'skk-multiple-line-string-width #[(str) "\302 \303\232\204#\304\305 \"\203#\306 \302\211\224O!] \302\225\307O\211\202)\207" [max str 0 "" string-match "\n\\|$" string-width nil] 6]) #@62 ’¥¨’¥³’¡¼’¥¨’¥ê’¥¢’¤Ç’ÊÑ’´¹’¤·’¤¿’¸õ’Êä’·²’¤ò’ɽ’¼¨’¤¹’¤ë’¡£ (defalias 'skk-henkan-show-candidates #[nil "\306 \307\216 \310_\311\312 \"\313 GS\311\314\315 !\")\316\313\316\313\313\313 \313\203;\317 \210|\210\203\254 \203`S\211\n_\320\\ \233\313 \202\246!\203w\" \233!@\313!\202\246\321 \210#\203\233\n\n_\\\320\\ \233\204\233\322 \323 \" \321 \210\202z\n_\320\\ \233\324\213\210\202A\243\206\264. \207" [skk-save-point skk-henkan-show-candidates-rows max-candidates skk-henkan-show-candidates-keys candidate-keys key-num-alist point-marker ((byte-code "b\210\204\n\301 \302\211\223\207" [skk-save-point make-marker nil] 3)) 7 mapcar #[(c) "\302>\203\303 \203\304\202\305\306\"\210\307\226!\207" [c skk-japanese-message-and-error (7 32 120) error "`%s' ’¤Ë’̵’¸ú’¤Ê’¥­’¡¼’¤¬’»Ø’Äê’¤µ’¤ì’¤Æ’¤¤’¤Þ’¤¹" "Illegal key in `%s'" "skk-henkan-show-candidates-keys" char-to-string] 3] nil #[(key) " B S\207" [key count] 2] reverse 0 skk-henkan-face-off 4 skk-henkan-list-filter skk-nunion skk-search ((byte-code "\303 \"\211\304V\203\305\306\307\217\210\305\207" [candidate-keys henkan-list n skk-henkan-show-candidate-subr 0 nil (byte-code "\306 \307!\307!\310\211\203\311 !\202#\312 \311\n\211GSH!+\310\313\314!\210 \204> \204> C\244)\202'(Z)\233\211*\203r \203r *\236\206p \315 X\205b\316 Y)\203k \226\202m \227*\236A\f\203\220\f+8,-'_\f\\\317\\.\320/\310-\202 \321=\204\331 \322012\3101\204\252012\3103\2114\203\3144@3\n\32331\"\2444A\2114\204\265*\324 !\325\326\n\"\235,\203\f5\204\346'+\233\203\356-T-\202-'_\317\\6-6B76(\\.\310-)\202 8=\203.-'_\317\\6-6B76.\310-)\202 9=\204x \327012\3101\204I012\3103\211:\203k:@3\n\32331\"\244:A\211:\204T*\324 !\325\330\n\"\235,\203\241-\331U\203\233\317.\332\323\3330\"@\331H! C\244)\334\335\310\"\210\202\320;\202 \336012\3101\204\265012\3103\211<\203\327<@3\n\32331\"\244\313V\205W=\307H\314=\205W\315=\316H!\205W=>SH\317=*\204_ \202q =\310?\320\321\322\217\210=*\206q \nB\fT\202\n \202\n\n\237+@\307A\323B\310C\310D@EFG@@\203\363E\203\316ABG@\324E@:\203\272E@A\202\275E@RBA\306W\203\372AE8\211C\203\372C:\203\336CA\202\340CCB\325AG8\324C\260BAT\211A\202\302\306E\233\211E\203\236B\326PB\306G\233G\202\236B\327\330 G@GZ\331HG\332\"#PB@GA\333 \334B!V\203?\335\336B\"\210\202\363\337\340!\341IJrJq\210\342 \210Bc\210eb\210\313u\210\343\325\344\345F\346#\347\350R\310\341#\203x\307\224b\210\351\313!\210\326c\210\202Yeb\210\352\333 \313Z!\203\237m\204\237\333 iY\203\237l\204\231\353u\210\354c\210\316y\210\202{eb\210)p\355\356 !=\357\316\360 8!K\211L\203\310K\203\304\361K!\210\202\310\362\316!\210\363 \364 =\204\323\365 \210\364 M\366\216\367J!\210\370 \204\347\371\372!\210*L\203\362\361\356 !\210,A.\207" [skk-henkan-show-candidates-rows max-candidates v e count candidates 7 0 nil require skk-num 2 40 skk-ascii-char-p 1 41 #1=#:G36148 (byte-code "\302!@\211<\203\303 @!\203\304 !\302\207" [string func read-from-string functionp eval] 3) ((error)) "" ":" " " "\n" format " [’»Ä’¤ê %d%s]" make-string 43 frame-width skk-multiple-line-string-width skk-multiple-line-message "%s" get-buffer-create "*’¸õ’Êä*" t erase-buffer re-search-forward mapconcat identity ":\\| " ":\\|" " \\[’»Ä’¤ê [0-9]+\\(\\++\\)?\\]" delete-char move-to-column -1 "\n " window-buffer minibuffer-window get-buffer-window buffer-list select-window other-window next-window selected-window delete-other-windows ((byte-code "\301!\203\n\302!\210\301\207" [save-selected-window-window window-live-p select-window] 2)) pop-to-buffer pos-visible-in-window-p recenter (1) skk-use-numeric-conversion skk-num-list string l func workinglst n str cand message-log-max workinglst-ptr keys keys-ptr skk-current-search-prog-list case-fold-search buff window minibuf-p save-selected-window-window] 8 (#$ . 47174)]) #@77 ’¼­’½ñ’ÅÐ’Ï¿’¥â’¡¼’¥É’¤Ë’Æþ’¤ê’¡¢’ÅÐ’Ï¿’¤·’¤¿’ñ’¸ì’¤Î’ʸ’»ú’Îó’¤ò’ÊÖ’¤¹’¡£ (defalias 'skk-henkan-in-minibuff #[nil "\306 \307\216\310\311\211\211\211\312\313\314\"\210\312\313\315\"\210\311\316\317\217\210\2030 \2030 \2030\320 ! \321\230\203`!\203F!A\"\322 \210\202\310\"S\211\"\323U\203\310\311 \311#\311$\324 \210\202\310\325\326 \"\203m \327\211\224O% C\244%&\203\261\330\331!\203\261'\203\261%G\332\"!\210\311(\"(\327(V\203\251\333\334)\203\246\335\202\247\336\"\210(%8)A\n\203\275\n%GU\203\300\310*\310+,T, \321\230?\205\320 .\207" [save-match-data-internal new-one orglen skk-isearch-message minibuffer-max-depth enable-recursive-minibuffers match-data ((set-match-data save-match-data-internal)) t nil add-hook minibuffer-setup-hook skk-j-mode-on #[nil "\300\301\302\303\304$\207" [add-hook pre-command-hook skk-pre-command nil local] 5] (byte-code "\306\203\307\310!\203 \203\311 \206\n\203\312 \202 \313P\n?\205+\f\205+\f \"\306\207" [skk-use-numeric-conversion skk-num-list skk-okuri-char skk-henkan-key skk-read-from-minibuffer-function new-one read-from-minibuffer require skk-num skk-num-henkan-key skk-compute-henkan-key2 " "] 3) ((quit (byte-code "\301\302\207" [new-one "" nil] 1))) skk-remove-redundant-okurigana "" skk-henkan -1 skk-change-marker-to-white string-match "[ ’¡¡]+$" 0 require skk-num skk-num-convert error "%s" "’¸õ’Êä’¤ò’¼è’¤ê’½Ð’¤¹’¤³’¤È’¤¬’¤Ç’¤­’¤Þ’¤»’¤ó" "Cannot get current candidate" skk-check-okurigana-on-touroku skk-henkan-okurigana skk-exit-show-candidates skk-henkan-count skk-okurigana skk-okuri-char skk-henkan-list skk-use-numeric-conversion skk-num-list count skk-japanese-message-and-error skk-kakutei-flag skk-henkan-in-minibuff-flag skk-touroku-count] 6 (#$ . 49595)]) (defalias 'skk-compute-henkan-key2 #[nil "\205\303 \304\216\305\306\n\"\210\n\307\211\224O\310Q*\207" [skk-henkan-okurigana save-match-data-internal skk-henkan-key match-data ((set-match-data save-match-data-internal)) string-match "[a-z]+$" 0 "*"] 3]) #@639 ’¼­’½ñ’¤Ë’ÅÐ’Ï¿’¤µ’¤ì’¤ë’¸õ’Ê䒤Β»ý’¤Ä’;’·×’¤Ê’Á÷’¤ê’²¾’̾’¤ò’¼è’¤ê’½ü’¤¯’¡£ ’Á÷’¤ê’¤¢’¤ê’¤Î’ÅÐ’Ï¿’¤ò’¤¹’¤ë’¤È’¤­’¡¢’Á÷’¤ê’²¾’̾’¤ò’¾Ã’¤·’¤Æ’¤«’¤é [RET] ’¤ò’²¡’¤µ’¤Ê’¤±’¤ì’¤Ð’Àµ’¤·’¤¯’ÅÐ’Ï¿ ’¤Ç’¤­’¤Ê’¤¤’¡£ ’¤½’¤³’¤Ç’¡¢’¥æ’¡¼’¥¶’¤¬’´Ö’°ã’¤¨’¤Æ’Á÷’¤ê’²¾’̾’¤ò’¾Ã’¤·’˺’¤ì’¤Æ’¤¤’¤Ê’¤¤’¤«’¤É’¤¦’¤«’¡¢ SKK ’¤Î’¦’¤Ç’¥Á’¥§’¥Ã’¥¯’¤Ç’¤­’¤ë’ÈÏ’°Ï’¤Ë’¤Ä’¤¤’¤Æ’¤Ï’¥æ’¡¼’¥¶’¤Î’³Î’ǧ’¤ò’¼è’¤ë’¡£ `skk-check-okurigana-on-touroku' ’¤ò non-nil ’¤Ë’Àß’Äê’¤·’¤Æ’¤¤’¤ë’¾ì’¹ç’¤Î’¤ß’Í­’¸ú’¡£ auto ’¤Ë’Àß’Äê’¤¹’¤ë’¤È’¥æ’¡¼’¥¶’¤Ë’³Î’ǧ’¤·’¤Ê’¤¤’¡£ ’ÊÑ’´¹’¤¬’¹Ô’¤ï’¤ì’¤¿’¥Ð’¥Ã’¥Õ’¥¡’¤Ç’¼Â’¹Ô’¤µ’¤ì’¤ë’¡£’¥ß’¥Ë’¥Ð’¥Ã’¥Õ’¥¡’¡¢’¼­’½ñ’¥Ð’¥Ã’¥Õ’¥¡’¤Ç’¤Ï’¤Ê’¤¤’¡£ (defalias 'skk-remove-redundant-okurigana #[(word) "\306 \307\216 G\310\nW\205 \nS\nO\311\nW\205! \n\312Z\nSO\211\2033\313\314\f\"\2033\f P\2024 \211\203u\313\314 \"\203u\315=\204^\316\203U\317\320 #\202Z\317\321 #!\203u\322\323!\210 \310\313\314\f\"\203q\n\312Z\202s\nSO. \207" [save-match-data-internal word len str1 str2 str match-data ((set-match-data save-match-data-internal)) 0 1 2 string-match "^[’¤¡-’¤ó]$" auto y-or-n-p format "%s: `%s' ’¤ò’½ü’¤¤’¤Æ’ÅÐ’Ï¿’¤·’¤Þ’¤¹’¤«’¡©" "%s: Remove `%s' when register?" message "" skk-check-okurigana-on-touroku skk-japanese-message-and-error] 6 (#$ . 51655)]) #@313 ’¢§’¥â’¡¼’¥É’¤Ç’¤¢’¤ì’¤Ð’¡¢’°ì’¤Ä’Á°’¤Î’¸õ’Êä’¤ò’ɽ’¼¨’¤¹’¤ë’¡£ ’¢§’¥â’¡¼’¥É’°Ê’³°’¤Ç’¤Ï’¥«’¥ì’¥ó’¥È’¥Ð’¥Ã’¥Õ’¥¡’¤Ë "x" ’¤ò’ÁÞ’Æþ’¤¹’¤ë’¡£ ’³Î’Äê’¼­’½ñ’¤Ë’¤è’¤ë’³Î’Ä꒤Βľ’¸å’¤Ë’¸Æ’¤Ö’¤È’³Î’Äê’¤¬’¥¢’¥ó’¥É’¥¥’¤µ’¤ì’¤Æ’¡¢’³Î’Äê’Á°’¤Î’¾õ’ÂÖ’¤Ç ’ľ’Á°’¤Î’¸«’½Ð’¤·’¸ì’¤¬’¥«’¥ì’¥ó’¥È’¥Ð’¥Ã’¥Õ’¥¡’¤Ë’ÁÞ’Æþ’¤µ’¤ì’¤ë’¡£ (defalias 'skk-previous-candidate #[(&optional arg) "\306\216\307=\204J \310=\204\n\205)\311\n!\205)\312 !\202)\f`|\210\313 \210\314 \2046\315%\315&\236A)\202A\316\315%\315&\236A)!!\210\317\211'\202)(\320\230\203U\321\202)m?\205f\322 )\323\216\324u\210\322 **\322 )\325\216+\326U\203\325,\203\201(\326\327O( \203\213\316(!(\327+\321-\321.\321/\321,\3270\3271\3212\32034\203\271\330\331!\203\2715\203\271\332 \2106\203\301\333 \210\f7|\2107b\210\314(!\210\334 \210\202\337+S+\335\336 !\210**\203\376*b\210*\204\362\337 **\321\211\223\210\327u\210\202db\2108\205(+\327U\205(\3409\3408\321:\321;\321<\321=\341 \210\342\343!\210\344 ))\207" [skk-henkan-mode last-command last-command-char arg skk-henkan-start-point skk-katakana ((byte-code "`\301\207" [skk-previous-point nil] 1)) active skk-kakutei-henkan characterp skk-kana-input skk-set-henkan-point-subr insert-and-inherit henkan-key skk-hiragana-to-katakana skk-undo-kakutei-henkan "" nil point-marker ((byte-code "b\210\204\n\301 \302\211\223\207" [skk-save-point make-marker nil] 3)) 1 ((byte-code "b\210\204\n\301 \302\211\223\207" [skk-save-point make-marker nil] 3)) 0 -1 require skk-num skk-num-initialize skk-henkan-face-off skk-change-marker-to-white skk-insert-new-word skk-get-current-candidate make-marker t skk-setup-keymap skk-update-modeline abbrev skk-cursor-set key skk-last-henkan-data this-command skk-henkan-key skk-save-point mark skk-henkan-count skk-okuri-char skk-henkan-in-minibuff-flag skk-henkan-list skk-henkan-okurigana skk-okuri-index-min skk-okuri-index-max skk-okurigana skk-prefix skk-use-numeric-conversion skk-num-list skk-use-face skk-henkan-end-point skk-abbrev-mode skk-mode skk-latin-mode skk-j-mode skk-jisx0208-latin-mode skk-jisx0201-mode] 4 (#$ . 52933) "*p"]) #@70 `undo' ’¤Î’µ¡’ǽ’¤ò’¡¢SKK ’¤È’¤Î’À°’¹ç’À­’¤ò’¹Í’¤¨’¤Æ’Ä´’Àá’¤¹’¤ë’¡£ (defalias 'skk-undo #[(&optional arg) "\306 8)\203l\302\203\307!\204\310!\202\" \205\" @\311\n\204- \205j\312\313!\210\314 !\203= \311!\202> \211:\203Q\203N\f@\202P\fA\f;\203Z\315\f!\210\204c\316 \311\211\223\210\317+\207\320=\203v\321 \207\322=\203\222`\323!U\203\213\324!\207\325u\210\326\306!\207\327!\207" [skk-current-rule-tree tree force skk-kana-input-search-function kana data 1 skk-get-nextstate skk-get-kana nil skk-erase-prefix clean functionp skk-insert-str make-marker t active skk-previous-candidate on marker-position skk-kakutei -1 delete-char skk-emulate-original-map skk-katakana skk-kana-start-point skk-henkan-mode skk-henkan-start-point arg] 4 (#$ . 55090) "*P"]) #@83 ’¸«’½Ð’¤·’¸ì’¤ò’¾Ã’¤·’¡¢’¤½’¤Î’¾ì’½ê’¤Ø’ÊÑ’´¹’·ë’²Ì’¤Î’ʸ’»ú’Îó’¤ò’ÁÞ’Æþ’¤¹’¤ë’¡£ (defalias 'skk-insert-new-word #[(word) "\306 \307\216\310\311\312\n\"\203\n\313\225\310O\n\313\211\224O\n\211G\211\314V\205; \313H\315=\205;\316 \317H!\205; \fSH\320=*\203`\n\310\321\322\323\217\210 *\211:\203\\@A\202_)\203h\324 \210|\210b\210\325\n!\210\204\326 `\310\223\210\203\215\327 \210\203\232 \203\232\330 !\210\205\242 +\207" [save-match-data-internal note word string l func match-data ((set-match-data save-match-data-internal)) nil string-match ";" 0 2 40 skk-ascii-char-p 1 41 #1=#:G36149 (byte-code "\302!@\211<\203\303 @!\203\304 !\302\207" [string func read-from-string functionp eval] 3) ((error)) skk-henkan-face-off insert-and-inherit make-marker skk-henkan-face-on skk-annotation-show res skk-use-face skk-henkan-start-point skk-henkan-end-point skk-show-annotation skk-insert-new-word-function] 4 (#$ . 55898)]) #@296 ’¸½’ºß’ɽ’¼¨’¤µ’¤ì’¤Æ’¤¤’¤ë’¸ì’¤Ç’³Î’Äê’¤·’¡¢’¼­’½ñ’¤Î’¹¹’¿·’¤ò’¹Ô’¤¦’¡£ ’¥«’¥ì’¥ó’¥È’¥Ð’¥Ã’¥Õ’¥¡’¤Ç SKK ’¥â’¡¼’¥É’¤Ë’¤Ê’¤Ã’¤Æ’¤¤’¤Ê’¤«’¤Ã’¤¿’¤é SKK ’¥â’¡¼’¥É’¤Ë’Æþ’¤ë’¡£ ’¥ª’¥×’¥·’¥ç’¥Ê’¥ë’°ú’¿ô’¤Î WORD ’¤ò’ÅÏ’¤¹’¤È’¡¢’¸½’ºß’ɽ’¼¨’¤µ’¤ì’¤Æ’¤¤’¤ë’¸õ’Ê䒤Ȓ¤Ï’̵’´Ø’·¸’¤Ë WORD ’¤Ç’³Î’Äê’¤¹’¤ë’¡£ (defalias 'skk-kakutei #[(&optional word) "\306\307\211 \203\\ \310=\203 \f\206\311\312! \204 \204.\2031 \2031 !\2041\313!\210+\203\232\314\315,\"\204\232-A.-@/\316\317\2150\307,\30710A@;\203\223\314\3150@\"\203\223\320 2\321\216\322\323\324\217*\203\2230@\3250@GSO/@P,0A@/A@P1\3131!\210\307+-\202\356-\2113@@);\203\356\314\326-\2113@@)\"\203\356-A.-@/\316\327\2150\307,\30710A@;\203\3550@/@\330\307OP,0A@/A@P1\3131!\210-4\2031\331\332!\20315\2031\311 \333 \"\210\20216\325V\20317`W\2031\320 2\334\2167b\210\335 *\336=\2031\337\3407`\"!\210*\203\\\341 \2108\203B8 \210\3424\203Y\331\332!\203Y5\203Y B\202Z!\2109\203e9 \210*\203\352:\204\356;\204\356<$\306*\307=\307>\306:\307?\307;$<\343 \210<\203\232\344\202\233\336\307@\211A\204\247\345A@\203\263\346A@\"\210AB\236ACD\347=\203\310CA\202\313C@E\350 \210+\307\211FGH\204\341F\203\346\351G!\210+\202\356\352\330!\210+\307\207" [kakutei-word converted inhibit-quit skk-henkan-mode word skk-search-excluding-word-pattern-function t nil active skk-get-current-candidate noconv skk-update-jisyo string-match "^[^-].+>$" list (byte-code "\205 \302 8\302@8=\203\303\304@\"\210\202A\211\204\305\207" [history list1 2 throw list nil] 4) point-marker ((byte-code "b\210\204\n\301 \302\211\223\207" [skk-save-point make-marker nil] 3)) #1=#:G36150 (byte-code " A@GZb\210\303\nA@!\207" [skk-henkan-start-point list1 list2 looking-at] 2) ((error)) 0 "^>[^-]+$" (byte-code "\205 \302 8\302@8=\203\303\304@\"\210\202A\211\204\305\207" [history list1 2 throw list nil] 4) 1 require skk-num skk-num-update-jisyo ((byte-code "b\210\204\n\301 \302\211\223\207" [skk-save-point make-marker nil] 3)) skk-what-char-type hiragana skk-update-kakutei-history buffer-substring-no-properties skk-kakutei-cleanup-buffer skk-kakutei-initialize skk-setup-keymap katakana default skk-modify-indicator-alist left force-mode-line-update skk-cursor-set-1 skk-mode skk-after-prefix skk-henkan-key skk-kakutei-history history list1 list2 comb-word skk-save-point x skk-use-numeric-conversion skk-num-list skk-kakutei-history-limit skk-henkan-start-point skk-kakutei-end-function auto-fill-function skk-j-mode skk-jisx0201-mode skk-katakana skk-abbrev-mode skk-latin-mode skk-jisx0208-latin-mode string mode skk-indicator-alist indicator skk-status-indicator skk-modeline-input-mode force color skk-use-color-cursor] 5 (#$ . 56885) nil]) #@50 ’³Î’Äê’ľ’¸å’¤Î’¥Ð’¥Ã’¥Õ’¥¡’¤Î’À°’·Á’¤ò’¹Ô’¤¦’¡£ (defalias 'skk-kakutei-cleanup-buffer #[nil "\203\306 \210\307 \210 \203{`\nV\203o \203M\310\n \"\310 `\"\n`|\210\311\312!\210\nb\210\313 !\210 \204@\314  `\315\223\210\313\f!\210*\202{\310\n`\"\n`|\210\311\312!\210\nb\210\313!\210)\202{\311\312!\210\316\317!\203\214\203\214\n`\"\210\205\233\320\321\322\310\n`\"!!!\207" [skk-okurigana skk-undo-kakutei-word-only skk-henkan-start-point skk-henkan-end-point tail kakutei-word skk-delete-okuri-mark skk-delete-henkan-markers buffer-substring-no-properties t set-buffer-modified-p skk-insert-str make-marker nil boundp self-insert-after-hook skk-del-char-with-pad skk-ovwrt-len string-width skk-last-buffer-undo-list buffer-undo-list skk-last-buffer-modified word overwrite-mode] 6 (#$ . 59719)]) #@86 ’³Î’Äê’»þ’¤Ë’ÊÑ’¿ô’¤Î’½é’´ü’²½’¤È’¥¢’¥ó’¥É’¥¥’¤Î’¤¿’¤á’¤Î’ÊÑ’¿ô’¤Î’Êݒ¸’¤ò’¹Ô’¤¦’¡£ (defalias 'skk-kakutei-initialize #[(&optional kakutei-word) "\203\204:\204\306\230\204\204 T\307\nB\310 B\311\fB\312\313 \"BB\314pB\315\211\315\236A)\211\203>`\316\223\202@\317 )B\257\316\316\211\203\203@\211@\236\211\203nA\241\210\202z@ABBA\211\204T,\316\316\320\316\316\316\316\316\316\316\320\320\211\207" [kakutei-word skk-kakutei-count skk-henkan-key skk-okuri-char skk-henkan-okurigana skk-henkan-list "" henkan-key okuri-char henkan-okurigana henkan-list delete henkan-buffer henkan-point nil point-marker -1 key skk-last-henkan-data hpoint alist e kv #1=#:--dolist-temp--36151 skk-abbrev-mode skk-exit-show-candidates skk-henkan-count skk-henkan-in-minibuff-flag skk-henkan-mode skk-kakutei-flag skk-okuri-index-min skk-okuri-index-max] 10 (#$ . 60568)]) #@235 ’°ì’ÈÖ’ºÇ’¸å’¤Î’³Î’Äê’¤ò’¥¢’¥ó’¥É’¥¥’¤·’¡¢’¸«’½Ð’¤·’¤Ë’ÂÐ’¤¹’¤ë’¸õ’Êä’¤ò’ɽ’¼¨’¤¹’¤ë’¡£ ’ºÇ’¸å’¤Ë’³Î’Äê’¤·’¤¿’¤È’¤­’¤Î’¸õ’Ê䒤ϒ¥¹’¥­’¥Ã’¥×’¤µ’¤ì’¤ë’¡£ ’¸õ’Êä’¤¬’¾’¤Ë’¤Ê’¤¤’¤È’¤­’¤Ï’¡¢’¥¨’¥³’¡¼’¥¨’¥ê’¥¢’¤Ç’¤Î’¼­’½ñ’ÅÐ’Ï¿’¤Ë’Æþ’¤ë’¡£ (defalias 'skk-undo-kakutei #[nil "\306\216\307=\203\310\311 \203\312\202\313\"\210\202U\n\314=\203.\310\311 \203(\315\202)\316\"\210\202U\317\317\f\236A)\203H\317\317\f\236A)\320\230\204H \204U\310\311 \203R\321\202S\322\"\210\323\324\325\217)\207" [last-command skk-japanese-message-and-error skk-henkan-mode key skk-last-henkan-data skk-henkan-end-point ((byte-code "`\301\207" [skk-previous-point nil] 1)) skk-undo-kakutei error "%s" "’³Î’Äê’¥¢’¥ó’¥É’¥¥’¤Ï’Ï¢’³’»È’ÍÑ’¤Ç’¤­’¤Þ’¤»’¤ó" "Cannot undo kakutei repeatedly" active "’¢§’¥â’¡¼’¥É’¤Ç’¤Ï’³Î’Äê’¥¢’¥ó’¥É’¥¥’¤Ç’¤­’¤Þ’¤»’¤ó" "Cannot undo kakutei in ’¢§ mode" henkan-key "" "’¥¢’¥ó’¥É’¥¥’¥Ç’¡¼’¥¿’¤¬’¤¢’¤ê’¤Þ’¤»’¤ó" "Lost undo data" nil (byte-code "\306\306 \236A)\203\306\306 \236A)G\n\\\202\n\307 @@\310=\203( A\202) \311\311 \236A)\312\312 \236A)\306\306 \236A)\313\313 \236A)\203]\314\314 \236A)\fd Y\203h |\210!\203x\"#\315\"\316 $ b\210\317\320!\210 \204\211\321   `\322\223\210\203\270\317\323GSO!\210\n\204\246\321 \n`\322\223\210\203\311\317!\210\202\311\317!\210\n\204\304\321 \n`\322\223\210\324\325%\203\324\326\202\325\327\"\210\330&\331 )\207" [key skk-last-henkan-data skk-henkan-end-point end skk-henkan-mode skk-search-prog-list henkan-okurigana active skk-search-kakutei-jisyo-file henkan-key henkan-list okuri-char skk-num-list t buffer-modified-p insert-and-inherit "’¢§" make-marker nil 0 message "%s" "’³Î’Äê’¥¢’¥ó’¥É’¥¥’¡ª" "Undo kakutei!" 1 skk-henkan skk-current-search-prog-list skk-henkan-key skk-henkan-list skk-henkan-okurigana skk-okuri-char skk-use-numeric-conversion skk-henkan-start-point skk-undo-kakutei-word-only buffer-undo-list skk-last-buffer-undo-list skk-last-buffer-modified skk-japanese-message-and-error skk-henkan-count] 4) (((error quit) (skk-kakutei)))] 3 (#$ . 61503) nil]) #@106 ’ÊÑ’´¹’¤ò’³«’»Ï’¤¹’¤ë’¥Ý’¥¤’¥ó’¥È’¤ò’¥Þ’¡¼’¥¯’¤·’¡¢’ÂÐ’±þ’¤¹’¤ë `skk-prefix' ’¤«’Êì’²»’¤ò’Æþ’ÎÏ’¤¹’¤ë’¡£ (defalias 'skk-set-henkan-point #[(&optional arg) "\211\n\236A\206 \227)\211=? \306 !\230\205 \307U?01\310=21\311=\204L\f\2037\312 \210\202\3141\203?\312 \2102\203\314\3133!\210\202\314\f\204u\314 !\2104\204]\315 44`\316\223\210\3175\3206`\"7\321\322 \210\202\31489\32398)\203::6U\204\314\3240\2047\316;8\203\25789\32598)\204\25789\32698)\202\270<\205\270< @\316=>;\204\307>\2036\327?\203\352:\203\352 \321\230\204\352\330:!\211@\203\351\316\331\332\217\210)\203\364\321\3168)\333>!\203>\316!\202>\211=:\203A\203=@\202=A==;\203'\334=!\210:\2040\315 ::\316\211\223\210+\203\314B\204\3146`U\204\246`Sf\211CD>\206\242\335CX\203`C\336X\206\242C\337 !)\340=\205\242C\317EF\341FE\"*\342U\205\242\335C\323EF\341FE\"*X\205\242C\323EF\341FE\"*\336X)\204\314G\203[4\204\264\315 44`\316\223\210\306 !\343 H\"A\206\310 I)0\203/\3206:\"A\203\337\344\202\340\345JQ7\316?\203:\203 \321\230\204\330:!\211@\203\316\346\347\217\210)\203\321\3168)\314A\203\350\202\351!\210\321\3175\322 \210\352\325!\210\202I\3206`\"IP7\314\353!\210\321\3175\322 \210\352\323!\210:\204R\315 ::`\316\223\210\202\3146`U\204\3140\203\242\327?\203\212:\203\212 \321\230\204\212\330:!\211@\203\211\316\354\355\217\210)\203\224\321\3168)\314A\203\237\344\202\240\345!\210K\204\253\315 KK`\316\223\210\314\356!\210:\204\276\315 ::`\316\223\210\306 !I\324B\f\205\326 \3573!,\207" [last-command-char char skk-downcase-alist last-char normal skk-prefix char-to-string 111 active on skk-set-henkan-point-subr skk-emulate-original-map insert-and-inherit make-marker nil 0 buffer-substring-no-properties "" skk-henkan 1 t 2 3 clean marker-position (byte-code "\304\305 \306\216\n\211 G\\|\210+\304\207" [modified buffer-undo-list start skk-prefix t buffer-modified-p ((set-buffer-modified-p modified))] 3) ((error (byte-code "\204\303 \304\211\223\210\305\304\304\207" [skk-kana-start-point skk-prefix skk-current-rule-tree make-marker nil ""] 3))) functionp skk-insert-str 48 57 char-charset japanese-jisx0208 char-octet 35 assoc "’¥Ã" "’¤Ã" (byte-code "\304\305 \306\216\n\211 G\\|\210+\304\207" [modified buffer-undo-list start skk-prefix t buffer-modified-p ((set-buffer-modified-p modified))] 3) ((error (byte-code "\204\303 \304\211\223\210\305\304\304\207" [skk-kana-start-point skk-prefix skk-current-rule-tree make-marker nil ""] 3))) "’¥Ã " "’¤Ã " delete-backward-char " " (byte-code "\304\305 \306\216\n\211 G\\|\210+\304\207" [modified buffer-undo-list start skk-prefix t buffer-modified-p ((set-buffer-modified-p modified))] 3) ((error (byte-code "\204\303 \304\211\223\210\305\304\304\207" [skk-kana-start-point skk-prefix skk-current-rule-tree make-marker nil ""] 3))) "*" skk-kana-input sokuon skk-henkan-mode henkan-active arg skk-henkan-end-point skk-henkan-count skk-henkan-start-point skk-henkan-key skk-current-rule-tree tree skk-kana-start-point force skk-kana-input-search-function kana data skk-echo start skk-katakana skk-okurigana p skk-special-midashi-char-list n ch skk-process-okuri-early skk-okuri-char-alist skk-okuri-char skk-henkan-okurigana skk-okurigana-start-point] 5 (#$ . 63609)]) #@383 ’¢¦’¥â’¡¼’¥É’¤Ç’¤Ï’´Á’»ú’ÊÑ’´¹’¤ò’³«’»Ï’¤¹’¤ë’¡£’¢§’¥â’¡¼’¥É’¤Ç’¤Ï’¼¡’¤Î’¸õ’Êä’¤ò’ɽ’¼¨’¤¹’¤ë’¡£ ’¢¦’¥â’¡¼’¥É’¤Ç’¡¢’¥«’¥¿’¥«’¥Ê’¥â’¡¼’¥É’¤Î’¤Þ’¤Þ’´Á’»ú’ÊÑ’´¹’¤ò’³«’»Ï’¤¹’¤ë’¤È’¡¢’¸«’½Ð’¤·’¸ì’¤ò’Ê¿’²¾’̾’¤Ë ’ÊÑ’´¹’¸å’¡¢’´Á’»ú’ÊÑ’´¹’¤ò’³«’»Ï’¤¹’¤ë’¡£ ’¸«’½Ð’¤·’¸ì’¤Î’ÊÑ’´¹’¤»’¤º’¤Ë’¤½’¤Î’¤Þ’¤Þ’´Á’»ú’ÊÑ’´¹’¤ò’¹Ô’¤Ê’¤¤’¤¿’¤±’¤ì’¤Ð’¡¢C-u SPC (arg ’¤¬ 4 ’¤Ë’¤Ê’¤ë) ’¤È’¥¿’¥¤’¥×’¤¹’¤ë’¡£ (defalias 'skk-start-henkan #[(arg) "\306\216\307 \210\310=\203 T\311 \202\210\312 \313\216\314\304 \203,\315 !\204,\316 !\2025/\2055/ @\31401\f\204C1\203\210\317\320!\210\3211!\203U1\314!\202W1\2110:\203n2\203i0@\202l0A00;\203y\3220!\2103\204\202\323 33\314\211\223\210+ 4\32448)\203\242\325\3265\203\237\327\202\240\330\"\210`\2116W\203\271\325\3265\203\266\331\202\267\332\"\210\3336 \"72\203\3228\324U\203\322\3347!79\203\355\335\3367\"\203\355\325\3265\203\352\337\202\353\340\"\210:\203\f\335\3417\"\20367\342\211\224O7\342\225\314OP7\202\362\343 ;\344\216\345 \210`6V\203*\325\3265\203'\346\202(\347\"\210*7\342\335\3507\"O7<\204?\323 << \314\223\210\342\311 \210=\205\207\310=\205\2072,\351>\314=\314?\351@\314A\314B,2\352 \210\3532\203|\354\202}\355!\210\356 \210)\351\211=+)\207" [skk-henkan-mode skk-henkan-count save-match-data-internal pos force skk-current-rule-tree ((byte-code "`\301\207" [skk-previous-point nil] 1)) cancel-undo-boundary active skk-henkan match-data ((set-match-data save-match-data-internal)) nil skk-get-nextstate skk-get-kana skk-erase-prefix clean functionp skk-insert-str make-marker 1 error "%s" "’¥Õ’¥£’¥Ã’¥¯’¥¹’¤µ’¤ì’¤Æ’¤¤’¤Ê’¤¤ skk-prefix ’¤¬’¤¢’¤ê’¤Þ’¤¹" "Have unfixed skk-prefix" "’¥«’¡¼’¥½’¥ë’¤¬’ÊÑ’´¹’³«’»Ï’ÃÏ’ÅÀ’¤è’¤ê’Á°’¤Ë’¤¢’¤ê’¤Þ’¤¹" "Henkan end point must be after henkan start point" buffer-substring-no-properties skk-katakana-to-hiragana string-match "\\* *$" "’¶õ’¤Î’Á÷’¤ê’²¾’̾’¤Ç’´Á’»ú’¤ò’ÅÐ’Ï¿’¤·’¤è’¤¦’¤È’¤·’¤Æ’¤¤’¤Þ’¤¹" "No okurigana!" "[ \n ]+" 0 point-marker ((byte-code "b\210\204\n\301 \302\211\223\207" [skk-save-point make-marker nil] 3)) beginning-of-line "’ÊÑ’´¹’¥­’¡¼’¤Ë’²þ’¹Ô’¤¬’´Þ’¤Þ’¤ì’¤Æ’¤¤’¤Þ’¤¹" "Henkan key may not contain a new line character" " " t skk-setup-keymap skk-update-modeline katakana hiragana skk-cursor-set skk-kana-input-search-function kana data skk-katakana skk-kana-start-point tree skk-japanese-message-and-error skk-henkan-start-point skk-henkan-key arg skk-okurigana skk-allow-spaces-newlines-and-tabs skk-save-point skk-henkan-end-point skk-abbrev-mode skk-mode skk-latin-mode skk-j-mode skk-jisx0208-latin-mode skk-jisx0201-mode] 6 (#$ . 67045) "*p"]) #@287 ’¤¢’¤ë’¾ò’·ï’²¼’¤Ë’¤ª’¤¤’¤Æ’¡¢’¼«’Æ°’Ū’¤Ë’ÊÑ’´¹’¤ò’³«’»Ï’¤¹’¤ë’¡£ `skk-auto-start-henkan-keyword-list' ’¤Î’Í×’ÁÇ’¤Î’ʸ’»ú’Îó’¤ò’ÁÞ’Æþ’¤·’¤¿’¤È’¤­’¤Ë’¼«’Æ°’Ū’¤Ë (’¥¹’¥Ú’¡¼’¥¹’¤ò’ÂÇ’¸°’¤·’¤Ê’¤¯’¤È’¤â) ’ÊÑ’´¹’¤ò’³«’»Ï’¤¹’¤ë’¡£’¥¨’¡¼’¡ß’¥¤’¥½’¥Õ’¥È’¼Ò’¤Î MSDOS ’ÍÑ ’¤Î FEP’¡¢WX2+ ’É÷’¡£ (defalias 'skk-auto-start-henkan #[(str) " \235\205\306 \307\216\310u\210` V\205\311\312\313 !!)*\207" [str skk-auto-start-henkan-keyword-list skk-save-point skk-henkan-start-point skk-prefix current-prefix-arg point-marker ((byte-code "b\210\204\n\301 \302\211\223\207" [skk-save-point make-marker nil] 3)) -1 "" skk-start-henkan prefix-numeric-value] 3 (#$ . 69698)]) #@577 ’¥Ý’¥¤’¥ó’¥È’¤Î’ľ’Á°’¤Ë’¤¢’¤ë’ʸ’»ú’Îó’¤Î’Àè’Ƭ’¤Ë’ÊÑ’´¹’³«’»Ï’¥Ý’¥¤’¥ó’¥È’¤ò’¼¨’¤¹ "’¢¦" ’¤ò’ÉÕ’¤±’¤ë’¡£ ’¥«’¡¼’¥½’¥ë’¤Î’ľ’Á°’¤Ë’¤¢’¤ë’ʸ’»ú (’¥¹’¥Ú’¡¼’¥¹’ʸ’»ú’¡¢’¥¿’¥Ö’ʸ’»ú’¡¢’Ĺ’²»’¤ò’ɽ’¤ï’¤¹’¡Ö’¡¼’¡× ’¤Ï’̵’¾ò’·ï ’¤Ë’¥¹’¥­’¥Ã’¥×’¤µ’¤ì’¤ë) ’¤ò skk-what-char-type ’¤Ë’¤Æ’Ƚ’ÊÌ’¤·’¡¢’Ʊ’¼ï’¤Î’ʸ’»ú’Îó’¤ò’¤Ò’¤È’¤«’¤¿’¤Þ ’¤ê’¤È’¤·’¤Æ’¸å’Êý’¤Ø’¥¹’¥­’¥Ã’¥×’¤¹’¤ë’¡£ ’â’¤·’¡¢’¤Ò’¤é’¤«’¤Ê’¤Î’¾ì’¹ç’¤Ï’¡Ö’¤ò’¡×’¤Î’ľ’Á°’¤Ç’¡¢’¥«’¥¿’¥«’¥Ê’¤Î’¾ì’¹ç’¤Ï’¡Ö’¥ò’¡×’¤Î’ľ’Á°’¤Ç’»ß’¤Þ’¤ë’¡£ C-u ARG ’¤Ç ARG ’¤ò’Í¿’¤¨’¤ë’¤È’¡¢’¤½’¤Î’ʸ’»ú’ʬ’¤À’¤±’ÌᒤҤƒƱ’¤¸’Æ°’ºî’¤ò’¹Ô’¤Ê’¤¦’¡£ (defalias 'skk-backward-and-set-henkan-point #[(arg) "\204\302 !\207\303\304\215\207" [skk-mode arg skk-emulate-original-map exit1 (byte-code "\306 \307\216\310\311x\210 \203<\n\204\312\313 !!\210\202\273\313 ! \314V\203\273\310\311x\210n\2032\315u\210\202\315u\210 S\211\202\n\204M\306 \316\216\317 \210`*\202Ne\n\203V\320\202W\321\311\211\322 \323\216\306 \324\216\315u\210`V\203\325 !\203\315u\210\202l\326 \211\327=\203\215\330\331\311\"\210\332\f!\210`\n\203\262`V\203\262n\203\262\315u\210\314\332\f!V\203\227`\202\227, b\210 \311w\210,\333 *\207" [skk-save-point arg skk-allow-spaces-newlines-and-tabs p type unknown-chars-regexp point-marker ((byte-code "b\210\204\n\301 \302\211\223\207" [skk-save-point make-marker nil] 3)) " ’¡¡" nil backward-char prefix-numeric-value 0 -1 ((byte-code "b\210\204\n\301 \302\211\223\207" [skk-save-point make-marker nil] 3)) beginning-of-line "[ ’¡¡\n ’¡¼’¡·’¡¶’¡µ’¡´’¡³]" "[’¡¡’¡¼’¡·’¡¶’¡µ’¡´’¡³]" match-data ((set-match-data save-match-data-internal)) ((byte-code "b\210\204\n\301 \302\211\223\207" [skk-save-point make-marker nil] 3)) looking-at skk-what-char-type unknown throw exit1 skk-backward-and-set-henkan-point-1 skk-set-henkan-point-subr limit save-match-data-internal] 5)] 2 (#$ . 70373) "*P"]) #@164 `skk-backward-and-set-henkan-point' ’¤Î’¥µ’¥Ö’¥ë’¡¼’¥Á’¥ó’¡£ TYPE (’ʸ’»ú’¤Î’¼ï’Îà) ’¤Ë’±þ’¤¸’¤¿’ʸ’»ú’¤ò’¥¹’¥­’¥Ã’¥×’¤·’¤Æ’¥Ð’¥Ã’¥Õ’¥¡’¤Î’Àè’Ƭ’Êý’¸þ’¤Ø’Ìᒤ뒡£ (defalias 'skk-backward-and-set-henkan-point-1 #[(type) "\301=\203\n\302\303x\207\304=\203\305\303x\207\306=\203\307\303x\207\310=\205'\311\303x\207" [type hiragana "’¡³’¡´’¡µ’¡¶’¡·’¡¼’¤ó’¤¡-’¤ñ" nil katakana "’¡³’¡´’¡µ’¡¶’¡·’¡¼’¥ó’¥¡-’¥ñ" jisx0208-latin "’¡¡-’£ú" ascii " -~"] 2 (#$ . 72271)]) #@77 ’¸½’ºß’¤Î’¥Ý’¥¤’¥ó’¥È’¤Ë’¤¢’¤ë’ʸ’»ú’¤¬’¤É’¤ó’¤Ê’¼ï’Îà’¤«’¤ò’Ƚ’ÊÌ’¤¹’¤ë’¡£ (defalias 'skk-what-char-type #[nil "\301 \302\216\303\304!\203\305\202.\303\306!\203\307\202.\303\310!\203#\311\202.\303\312!\203-\313\202.\314*\207" [save-match-data-internal match-data ((set-match-data save-match-data-internal)) looking-at "[’¤¡-’¤ó]" hiragana "[’¥¡-’¥ó]" katakana "[’¡¡-’¡»’¡½-’£ú]" jisx0208-latin "[ -~]" ascii unknown] 2 (#$ . 72745)]) #@182 ’¤«’¤Ê’¤ò’Æþ’ÎÏ’¤·’¤¿’¸å’¤Ç’¡¢’¥Ý’¥¤’¥ó’¥È’¤Ë’ÊÑ’´¹’³«’»Ï’¤Î’¥Þ’¡¼’¥¯ (’¢¦) ’¤ò’ÉÕ’¤±’¤ë’¡£ ’¤³’¤Î’´Ø’¿ô’¤Ï skk-set-henkan-point ’¤Î’Æâ’Éô’´Ø’¿ô’¤È’¤·’¤Æ’¤â’»È’ÍÑ’¤µ’¤ì’¤Æ’¤¤’¤ë’¡£ (defalias 'skk-set-henkan-point-subr #[(&optional arg) "\306\216\204 \307 \210 \203\310 \210\202y\311 \203%\312 !\204%\313 !\202,\f\205,\f @\311\n\2049\203x\314\315!\210\316!\203K\311!\202M\211:\203`\203] @\202_ A ;\203i\317 !\210\204r\320 \311\211\223\210+\203\210 \321\322 ! \"\323\"8)\204\232\324\325!\210\202\371\311 #\203\276\203\276$\326\230\204\276\327!\211%\203\275\311\330\331\217\210) \203\310\326$\311)\324\325!\210\204\326\320 `\311\223\210\311&#\203\370\321\322 '\332\216\324&\206\365$!\210+)\333\311()\204\320 ))`\311\223\210)\311\207" [skk-undo-kakutei-word-only skk-henkan-mode force skk-current-rule-tree skk-kana-input-search-function kana ((byte-code "`\301\207" [skk-previous-point nil] 1)) cancel-undo-boundary skk-kakutei nil skk-get-nextstate skk-get-kana skk-erase-prefix clean functionp skk-insert-str make-marker t buffer-modified-p 1 insert-and-inherit "’¢¦" "" marker-position (byte-code "\304\305 \306\216\n\211 G\\|\210+\304\207" [modified buffer-undo-list start skk-prefix t buffer-modified-p ((set-buffer-modified-p modified))] 3) ((error (byte-code "\204\303 \304\211\223\210\305\304\304\207" [skk-kana-start-point skk-prefix skk-current-rule-tree make-marker nil ""] 3))) ((set-buffer-modified-p modified)) on data skk-katakana skk-kana-start-point buffer-undo-list skk-last-buffer-undo-list skk-last-buffer-modified tree skk-echo skk-prefix start char modified skk-henkan-end-point skk-henkan-start-point] 4 (#$ . 73198) "*P"]) #@71 "’¢¦"’¤ò"’¢§"’¤Ë’ÊÑ’¤¨’¤ë’¡£`skk-henkan-mode' ’¤ò active ’¤Ë’¤¹’¤ë’¡£ (defalias 'skk-change-marker #[nil "\305 \306\216 Sb\210\307\310!\204\311 \210\312\313\n\203\314\202\315\"\210\316 \210\317\320\321!\210\322\323!\210)\324\211*\207" [skk-save-point skk-henkan-start-point skk-japanese-message-and-error buffer-undo-list skk-henkan-mode point-marker ((byte-code "b\210\204\n\301 \302\211\223\207" [skk-save-point make-marker nil] 3)) looking-at "’¢¦" skk-kakutei error "%s" "’¢¦’¤¬’¤¢’¤ê’¤Þ’¤»’¤ó" "It seems that you have deleted ’¢¦" cancel-undo-boundary t insert-and-inherit "’¢§" delete-char 1 active] 3 (#$ . 74949)]) #@67 "’¢§"’¤ò"’¢¦"’¤Ë’ÊÑ’¤¨’¤ë’¡£`skk-henkan-mode' ’¤ò on ’¤Ë’¤¹’¤ë’¡£ (defalias 'skk-change-marker-to-white #[nil "\306 \307\216 Sb\210\310 \210\311\312!\203 \313\314\315!\210\316\317!\210)\202@ b\210\314\315!\210 \204.\320  `\321\223\210\322\323 \203=\324\202>\325\"\210\321\326\211*\207" [skk-save-point skk-henkan-start-point buffer-undo-list skk-japanese-message-and-error skk-henkan-end-point skk-henkan-mode point-marker ((byte-code "b\210\204\n\301 \302\211\223\207" [skk-save-point make-marker nil] 3)) cancel-undo-boundary looking-at "’¢§" t insert-and-inherit "’¢¦" delete-char 1 make-marker nil message "%s" "’¢§’¤¬’¤¢’¤ê’¤Þ’¤»’¤ó" "It seems that you have deleted ’¢§" on] 3 (#$ . 75592)]) #@88 ’ÊÑ’´¹’»þ’¤Ë’¥«’¥ì’¥ó’¥È’¥Ð’¥Ã’¥Õ’¥¡’¤Ë’ɽ’¤ï’¤ì’¤ë "’¢¦", "’¢§" ’¥Þ’¡¼’¥¯’¤ò’¾Ã’¤¹’¡£ (defalias 'skk-delete-henkan-markers #[(&optional nomesg) "\306!\205a\307 \310\216\311 \312\216Sb\210 \313=\203B\f\203!\314 \210\315\316!\203-\317\320!\202` ?\205`\321\322\203=\323\202>\324\"\202`\315\325!\203N\317\320!\202` ?\205`\321\322\203^\326\202_\327\",\207" [skk-henkan-start-point save-match-data-internal skk-save-point skk-henkan-mode skk-use-face nomesg marker-position match-data ((set-match-data save-match-data-internal)) point-marker ((byte-code "b\210\204\n\301 \302\211\223\207" [skk-save-point make-marker nil] 3)) active skk-henkan-face-off looking-at "’¢§" delete-char 1 message "%s" "’¢§’¤¬’¤¢’¤ê’¤Þ’¤»’¤ó" "It seems that you have deleted ’¢§" "’¢¦" "’¢¦’¤¬’¤¢’¤ê’¤Þ’¤»’¤ó" "It seems that you have deleted ’¢¦" skk-japanese-message-and-error] 3 (#$ . 76310)]) #@188 ’Á÷’¤ê’²¾’̾’´Ø’Ï¢’¥Õ’¥é’¥°’¤ò’¾Ã’¤¹’¡£ ’Á÷’¤ê’²¾’̾’Æþ’ÎÏ’Ã撤˒¥«’¥ì’¥ó’¥È’¥Ð’¥Ã’¥Õ’¥¡’¤Ë’ɽ’¤ï’¤ì’¤ë `*' ’¥Þ’¡¼’¥¯’¤ò’¾Ã’¤·’¡¢ ’Á÷’¤ê’²¾’̾’´Ø’Ï¢’¥Õ’¥é’¥°’¤ò nil ’¤Ë’¥»’¥Ã’¥È’¤¹’¤ë’¡£ (defalias 'skk-delete-okuri-mark #[nil "\205- \205-\305 !\205-\306 !\205-\307 \310\216 f\311=\203% \211T|\210*\312\312\312\211\207" [skk-okurigana skk-okurigana-start-point skk-save-point skk-okuri-char skk-henkan-okurigana markerp marker-position point-marker ((byte-code "b\210\204\n\301 \302\211\223\207" [skk-save-point make-marker nil] 3)) 42 nil] 2 (#$ . 77213)]) #@74 ’¢§’¥â’¡¼’¥É’¤Ç’¸½’ºß’¤Î’¸õ’Êä’¤ò’¼­’½ñ’¥Ð’¥Ã’¥Õ’¥¡’¤«’¤é’¾Ã’µî’¤¹’¤ë’¡£ (defalias 'skk-purge-from-jisyo #[(&optional arg) "\306\216\307=\204\310 !\210\202}\307=\203}\n\311\230\204}\312\313 \203%\314\202&\315\n\316 \f\2036 \204:\204:\317\202I \203E\313\320\f\"\202I\313\321\f\"$!\203}\f\203Z\fG\\\202\\\316 \322\323\"\210\203p\324 \210|\210\325 \210\326 \210*)\327\207" [skk-henkan-mode arg skk-henkan-key skk-japanese-message-and-error skk-henkan-okurigana skk-henkan-okuri-strictly ((byte-code "`\301\207" [skk-previous-point nil] 1)) active skk-emulate-original-map "" yes-or-no-p format "%s /%s/%s’¤ò’¼­’½ñ’¤«’¤é’ºï’½ü’¤·’¤Þ’¤¹’¡£’ÎÉ’¤¤’¤Ç’¤¹’¤«’¡©" "Really purge \"%s /%s/%s\"?" skk-get-current-candidate " " " (’Á÷’¤ê’²¾’̾: %s) " " (okurigana: %s) " skk-update-jisyo purge skk-henkan-face-off skk-change-marker-to-white skk-kakutei nil skk-henkan-strict-okuri-precedence skk-henkan-end-point word end skk-use-face skk-henkan-start-point] 8 (#$ . 77791) "*P"]) #@165 SKK ’¤Î’¼­’½ñ’¥Ð’¥Ã’¥Õ’¥¡’¤ò’¥»’¡¼’¥Ö’¤¹’¤ë’¡£ ’¥ª’¥×’¥·’¥ç’¥Ê’¥ë’°ú’¿ô’¤Î QUIET ’¤¬ non-nil ’¤Ç’¤¢’¤ì’¤Ð’¡¢’¼­’½ñ’¥»’¡¼’¥Ö’»þ’¤Î’¥á’¥Ã’¥»’¡¼’¥¸’¤ò ’½Ð’¤µ’¤Ê’¤¤’¡£ (defalias 'skk-save-jisyo #[(&optional quiet) " !\207" [skk-save-jisyo-function quiet] 2 (#$ . 78803) "P"]) (defalias 'skk-save-jisyo-original #[(&optional quiet) "\306\307\"\211\203\310 !\204'\n\204\216\311\312 \203\313\202\314\"\210\315\316!\210\202\216r q\210\f\203;\317!\210\320 \203;\321 \210\322\323\324!!\n\204S\311\312 \203P\325\202Q\326\"\210\327 !\210\330 !\210\f\203t\331 \210\332!\333!\"#\334\335!\210*\202x\334\335!\210\n\204\215\311\312 \203\206\336\202\207\337\"\210\315\316!\210+)\340\211$\207" [skk-jisyo jisyo-buffer quiet skk-japanese-message-and-error skk-share-private-jisyo tempo-file skk-get-jisyo-buffer nomsg buffer-modified-p message "%s" "SKK ’¼­’½ñ’¤ò’Êݒ¸’¤¹’¤ë’ɬ’Í×’¤Ï’¤¢’¤ê’¤Þ’¤»’¤ó" "No need to save SKK jisyo" sit-for 1 lock-buffer skk-jisyo-is-shared-p skk-update-shared-jisyo t make-temp-file "skk" "SKK ’¼­’½ñ’¤ò’Êݒ¸’¤·’¤Æ’¤¤’¤Þ’¤¹..." "Saving SKK jisyo..." skk-save-jisyo-as skk-check-size-and-do-save-jisyo skk-init-shared-jisyo expand-file-name file-truename set-buffer-modified-p nil "SKK ’¼­’½ñ’¤ò’Êݒ¸’¤·’¤Æ’¤¤’¤Þ’¤¹...’´°’λ’¡ª" "Saving SKK jisyo...done" 0 inhibit-quit buffer-file-truename buffer-file-name skk-update-jisyo-count] 4]) (defalias 'skk-init-shared-jisyo #[nil "\304\305\"\210\306\307\310!!\311\216r q\210\n\312\261\210\313\314d \305\315%+\207" [skk-jisyo-update-vector #1=#:temp-buffer skk-emacs-id skk-emacs-id-file fillarray nil get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) "\n" write-region 1 nomsg] 6]) (defalias 'skk-jisyo-is-shared-p #[nil "\303!\205 \304\305\306!!\307\216r q\210\310!\210eb\210\311\n\312\313#+?\207" [skk-emacs-id-file #1=#:temp-buffer skk-emacs-id file-exists-p get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents search-forward nil t] 4]) #@208 ’¸Ä’¿Í’¼­’½ñ’¤¬’¶¦’Í­’¤µ’¤ì’¤Æ’¤¤’¤ë’¾ì’¹ç’¤Ë’¡¢’¿·’¤·’¤¤’¾ð’Êó’¤Ë’¹¹’¿·’¤¹’¤ë’¡£ ’¸½’ºß’¤Î’¼­’½ñ’¥Ð’¥Ã’¥Õ’¥¡’¤Î’Æâ’ÍÆ’¤ò’¾Ã’µî’¤·’¤Æ’¡¢’¾’¤Î Emacs ’¾å’¤Î SKK ’¤¬’¹¹’¿·’¤·’¤¿ `skk-jisyo' ’¤ò’ÆÉ’¤ß’¹þ’¤à’¡£ (defalias 'skk-update-shared-jisyo #[nil "\306 \210\307!\210\310 \210\311\312\211\211\fW\205; H\211\205;\n@\313\nA@\314\n8\315\nA@\311\316#\317\n8$\210 T\211\202+\207" [skk-jisyo skk-henkan-key list index skk-jisyo-save-count skk-jisyo-update-vector erase-buffer insert-file-contents skk-setup-jisyo-buffer 0 nil skk-update-jisyo-1 2 skk-search-jisyo delete 3] 8 (#$ . 80929)]) (defalias 'skk-save-jisyo-as #[(file) "\306 \307\216\310eb\210\311\312\310\313#\204\314\315\n\203\316\202\317\"\210\311\320\310\313#\2044\314\315\n\2031\321\2022\322\"\210)\323 \211\203]\324\325!\203H\325\f!\204Y\324\326!\203]\f9\203]\326\f!\203]\f\202s\f\203n\f;\203n\327\f \"A\202s\327\330 \"A)\331d\310\332&*\207" [save-match-data-internal buffer-read-only skk-japanese-message-and-error skk-jisyo-code code skk-coding-system-alist match-data ((set-match-data save-match-data-internal)) nil re-search-forward "^;; okuri-ari entries.$" noerror error "%s" "’Á÷’¤ê’¤¢’¤ê’¥¨’¥ó’¥È’¥ê’¤Î’¥Ø’¥Ã’¥À’¡¼’¤¬’¤¢’¤ê’¤Þ’¤»’¤ó’¡ª SKK ’¼­’½ñ’¤Î’¥»’¡¼’¥Ö’¤ò’Ã撻ߒ¤·’¤Þ’¤¹" "Header line for okuri-ari entries is missing! Stop saving SKK jisyo" "^;; okuri-nasi entries.$" "’Á÷’¤ê’¤Ê’¤·’¥¨’¥ó’¥È’¥ê’¤Î’¥Ø’¥Ã’¥À’¡¼’¤¬’¤¢’¤ê’¤Þ’¤»’¤ó ’¡ª SKK ’¼­’½ñ’¤Î’¥»’¡¼’¥Ö’¤ò’Ã撻ߒ¤·’¤Þ’¤¹" "Header line for okuri-nasi entries is missing! Stop saving SKK jisyo" write-region-as-coding-system fboundp coding-system-p find-coding-system assoc "euc" 1 nomsg file] 8]) (defalias 'skk-check-size-and-do-save-jisyo #[(new-file) "\306\307!8\310\211\211\211\211\211\311U\203)\312!\210\313\314\203&\315\202'\316\"\210\203@\306\307!8\211\203@ Y\203F\317!\202\214\320\203V\321\322 Z\"\202_\321\323 Z#!\203i\317!\202\214\312!\210\324\220\203z\325\326!\202}\325\327!\221\210\313\314\203\212\330\202\213\331\".\207" [new-file last-command-char last-command this-command-char this-command old-size 7 file-attributes nil 0 delete-file error "%s" "SKK ’¼­’½ñ’¤¬’¶õ’¤Ë’¤Ê’¤Ã’¤Æ’¤¤’¤Þ’¤¹’¡ª ’¼­’½ñ’¤Î’¥»’¡¼’¥Ö’¤ò’Ã撻ߒ¤·’¤Þ’¤¹" "Null SKK jisyo! Stop saving jisyo" skk-make-new-jisyo yes-or-no-p format "skk-jisyo ’¤¬ %dbytes ’¾®’¤µ’¤¯’¤Ê’¤ê’¤Þ’¤¹’¤¬’¡¢’¥»’¡¼’¥Ö’¤·’¤Æ’ÎÉ’¤¤’¤Ç’¤¹’¤«’¡©" "New %s will be %dbytes smaller. Save anyway?" "*SKK warning*" princ "’¥»’¡¼’¥Ö’¤·’¤è’¤¦’¤È’¤¹’¤ë’¼­’½ñ’¤Î’¥µ’¥¤’¥º’¤¬’¸µ’¤Î’¤â’¤Î’¤è’¤ê’¤â’¾®’¤µ’¤¯’¤Ê’¤Ã’¤Æ’¤·’¤Þ’¤¦’¤Î’¤Ç’¡¢\n’¥»’¡¼’¥Ö’¤ò’Ã撻ߒ¤·’¤Þ’¤·’¤¿’¡£’¼­’½ñ’¤Î’¥µ’¥¤’¥º’¤¬’¾®’¤µ’¤¯’¤Ê’¤Ã’¤¿’¸¶’°ø’¤Ë’¤Ï’Îã’¤¨’¤Ð’¡¢\n\n (a) M-x skk-purge-from-jisyo ’¤ò’¼Â’¹Ô’¤·’¤¿’¡£\n\n (b) ~/.skk-jisyo ’¤Î’´Á’»ú’¥³’¡¼’¥É’¤È’¡¢’°ã’¤¦’´Á’»ú’¥³’¡¼’¥É’¤Ç \" *.skk-jisyo*\"\n ’¥Ð’¥Ã’¥Õ’¥¡’¤¬’Êݒ¸’¤µ’¤ì’¤è’¤¦’¤È’¤·’¤Æ’¤¤’¤ë’¡£\n\n (c) \" *.skk-jisyo*\" ’¥Ð’¥Ã’¥Õ’¥¡’¤ò’¼«’ʬ’¤Ç’ÊÔ’½¸’¤·’¤¿’¡£\n\n’¤Ê’¤É’¤¬’¤¢’¤ê’¤Þ’¤¹’¡£a ’¤È b ’¤Î’¾ì’¹ç’¤Ï’¡¢’°Û’¾ï’¤Ç’¤Ï’¤¢’¤ê’¤Þ’¤»’¤ó’¡£c ’¤Î’¾ì’¹ç’¤Ï’¡¢’ÊÔ’½¸’¤Î\n’Æâ’ÍÆ’¤Ë’¤è’¤ê’¤Þ’¤¹’¡£’¸¶’°ø’¤ò’³Î’ǧ’¸å’¡¢’¿µ’½Å’¤Ë’¼­’½ñ’¤ò’Êݒ¸’¤¹’¤ë’¤³’¤È’¤ò’¤ª’´«’¤á’¤·’¤Þ’¤¹’¡£\n\n’¸µ’¤Î’¼­’½ñ’¤ò’ºÆ’ÅÙ’ÆÉ’¤ß’¹þ’¤à’¤Ë’¤Ï’¡¢\n\n M-x skk-reread-private-jisyo\n\n’¤ò’¼Â’¹Ô’¤·’¤Æ’²¼’¤µ’¤¤’¡£" "Saving your private dictionary has been canceled, since the size of the\ndictionary will be smaller. The following cases should be considered:\n\n (a) You executed M-x skk-purge-from-jisyo,\n\n (b) The coding system SKK tried to save \" *.skk-jisyo*\" buffer in\n is different from that of ~/.skk-jisyo.\n\n (c) You have edited \" *.skk-jisyo*\" buffer manually.\n\nEither the case (a) or (b) is not strange. Probability of the case (c)\ndepends on how you edited the buffer. Anyway, it is strongly recommended\nthat you check each of the cases above and save the dictionary carefully.\n\nIf you want to restore the dictionary from the disc, try\n\n M-x skk-reread-private-jisyo\n" "SKK ’¼­’½ñ’¤Î’¥»’¡¼’¥Ö’¤ò’Ã撻ߒ¤·’¤Þ’¤·’¤¿’¡ª" "Stop saving SKK jisyo!" new-size skk-japanese-message-and-error skk-compare-jisyo-size-when-saving skk-jisyo] 7]) #@130 TEMPO-FILE ’¤ò’¿·’µ¬’¤Î `skk-jisyo' ’¤Ë’¤¹’¤ë’¡£ `skk-backup-jisyo' ’¤¬ non-nil ’¤À’¤Ã’¤¿’¤é’¥Ð’¥Ã’¥¯’¥¢’¥Ã’¥×’¼­’½ñ’¤ò’ºî’¤ë’¡£ (defalias 'skk-make-new-jisyo #[(tempo-file) "\203\303!\203\304!\210\305 \"\210\202\304 !\210\305\n \306#\207" [skk-backup-jisyo skk-jisyo tempo-file file-exists-p delete-file rename-file ok-if-already-exists] 4 (#$ . 85094)]) #@208 ’¥Ð’¥Ã’¥Õ’¥¡’¤Ë’ÆÉ’¤ß’¹þ’¤ó’¤À’¸Ä’¿Í’¼­’½ñ’¤ò’ÇË’´þ’¤·’¡¢’¥Õ’¥¡’¥¤’¥ë’¤«’¤é’¥Ð’¥Ã’¥Õ’¥¡’¤Ø’ºÆ’ÆÉ’¤ß’¹þ’¤ß’¤¹’¤ë’¡£ ’¥ª’¥×’¥·’¥ç’¥Ê’¥ë’°ú’¿ô’¤Î FORCE ’¤¬ non-nil ’¤Ç’¤¢’¤ì’¤Ð’¡¢’ÇË’´þ’¤Î’³Î’ǧ’¤ò’¤·’¤Ê’¤¤’¡£ (defalias 'skk-reread-private-jisyo #[(&optional force) "\304\305\"\211\205<\n\204\306 \203\307\202\310!\205<r q\210\311\312!\210\313 !\210)\304\305\"?\205<\314\315 \203:\316\202;\317\")\207" [skk-jisyo buf force skk-japanese-message-and-error skk-get-jisyo-buffer nomsg yes-or-no-p "’̤’¥»’¡¼’¥Ö’¤Î’¸Ä’¿Í’¼­’½ñ’¤ò’ÇË’´þ’¤·’¤Þ’¤¹’¤«’¡©" "Discard your unsaved private JISYO?" set-buffer-modified-p nil kill-buffer error "%s" "’¸Ä’¿Í’¼­’½ñ’¤ò’ºÆ’ÆÉ’¤ß’¹þ’¤ß’¤¹’¤ë’¤³’¤È’¤¬’¤Ç’¤­’¤Þ’¤»’¤ó’¡ª" "Cannot reread private JISYO!"] 4 (#$ . 85467) "P"]) #@58 ’¼­’½ñ’¥Ç’¡¼’¥¿’¤ò skk-record-file ’¤Ë’¥»’¡¼’¥Ö’¤¹’¤ë’¡£ (defalias 'skk-record-jisyo-data #[nil "?\206\306 V?\205\221\n\307\310\311!!\312\216r q\210\313\n!\210eb\210\314\315\316 \211 Z\317_ \245\320\321!\203;\322!\202d\203U\323\324:\203N@\202P!!\202dr\325\326\"q\210\327ed\"\330Z)&c\210\250\203|\331~\210eb\210y\210`d|\210)r q\210~\210\332ed\f\331\333%\210,\333\333\211\207" [skk-keep-record skk-kakutei-count skk-record-file #1=#:temp-buffer #2=#:temp-file skk-touroku-count 1 get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents format "%s ’ÅÐ’Ï¿: %3d ’³Î’Äê: %4d ’³Î’Äê’Ψ: %3d%% ’¸ì’¿ô:%6d\n" current-time-string 100 featurep skk-rdbms skk-rdbms-count-jisyo-candidates skk-count-jisyo-candidates expand-file-name skk-get-jisyo-buffer nomsg count-lines 2 nil write-region 0 skk-rdbms-private-jisyo-table skk-count-private-jisyo-candidates-exactly skk-jisyo selective-display] 9 (#$ . 86237)]) #@39 SKK ’¼­’½ñ’¤Î’¸õ’Êä’¿ô’¤ò’¿ô’¤¨’¤ë’¡£ (defalias 'skk-count-jisyo-candidates #[(file-or-table) " !t\203\303\n\304U\203\305\202\306\n\"\202\n)\207" [skk-count-jisyo-candidates-function file-or-table count message 1 "%d candidate" "%d candidates"] 3 (#$ . 87283) (list (cond ((eq skk-count-jisyo-candidates-function 'skk-count-jisyo-candidates-original) (read-file-name (format "Jisyo file: (default: %s) " skk-jisyo) default-directory skk-jisyo 'confirm)) ((eq skk-count-jisyo-candidates-function 'skk-rdbms-count-jisyo-candidates) skk-rdbms-private-jisyo-table)))]) #@118 SKK ’¼­’½ñ’¤Î’¸õ’Êä’¿ô’¤ò’¿ô’¤¨’¤ë’¡£ `[' ’¤È `]' ’¤Ë’°Ï’¤Þ’¤ì’¤¿’Á÷’¤ê’²¾’̾’Ë蒤Β¥Ö’¥í’¥Ã’¥¯’Æ⒤ϒ¿ô’¤¨’¤Ê’¤¤’¡£ (defalias 'skk-count-jisyo-candidates-original #[(file) "r\306!q\210\307 \310\216\311et\205dt\fb\210\312\313\314\315\314$\2033\316  \317\216\312\320\314\315\314$*\204A\321\322!\203>\323\202?\324\"\210\325 \210\326\327!\203S\330y\210\325 \210\202D\331\332\314\315#\210\331\333\314\315#\203\236l\204k\326\334!\203\211\330y\210\325 \210\326\327!\203\200\330y\210\325 \210\202q\331\332\314\315#\210\202\214 T\n\203Y\335\336`\fZ\337_ \245\"\210\202Y .\207" [file save-match-data-internal interactive-p max min count find-file-noselect match-data ((set-match-data save-match-data-internal)) 0 re-search-forward "^;; okuri-ari entries.$" nil t point-marker ((byte-code "b\210\204\n\301 \302\211\223\207" [skk-save-point make-marker nil] 3)) "^;; okuri-nasi entries.$" error "%s" "’¤³’¤Î’¥Õ’¥¡’¥¤’¥ë’¤Ï SKK ’¼­’½ñ’¤Ç’¤Ï’¤¢’¤ê’¤Þ’¤»’¤ó" "This file is not a SKK dictionary" beginning-of-line looking-at ";" 1 search-forward " " "/" "\\[" message "Counting jisyo candidates...%3d%% done" 100 skk-save-point skk-japanese-message-and-error] 5 (#$ . 87865)]) #@221 FILE ’¤¬’¤Ê’¤±’¤ì’¤Ð’¡¢FILE ’¤È’¤¤’¤¦’̾’Á°’¤Î’¶õ’¥Õ’¥¡’¥¤’¥ë’¤ò’ºî’¤ë’¡£ ’¥ª’¥×’¥·’¥ç’¥ó’°ú’¿ô’¤Î JAPANESE/ENGLISH ’¤ò’»Ø’Äê’¤¹’¤ë’¤È’¡¢’¥Õ’¥¡’¥¤’¥ë’ºî’À®’¸å’¤½’¤Î’¥á’¥Ã’¥»’¡¼’¥¸ ’¤ò’¥¨’¥³’¡¼’¥¨’¥ê’¥¢’¤Ë’ɽ’¼¨’¤¹’¤ë’¡£ (defalias 'skk-create-file #[(file &optional japanese english modes) "\305!\306!\203 \205>\307 \"\202>\310\311\211\312\313%\210 \203&\307 \"\210\n\204. \205>\314\315\f\2038\n\2029 \"\210\316\317!)\207" [file modes japanese english skk-japanese-message-and-error expand-file-name file-exists-p set-file-modes write-region 1 nil 0 message "%s" sit-for 3] 6 (#$ . 89065)]) #@198 FILE ’¤ò’³«’¤¤’¤Æ SKK ’¼­’½ñ’¥Ð’¥Ã’¥Õ’¥¡’¤ò’ºî’¤ê’¡¢’¥Ð’¥Ã’¥Õ’¥¡’¤ò’ÊÖ’¤¹’¡£ ’¥ª’¥×’¥·’¥ç’¥ó’°ú’¿ô’¤Î NOMSG ’¤ò’»Ø’Äê’¤¹’¤ë’¤È’¥Õ’¥¡’¥¤’¥ë’ÆÉ’¤ß’¹þ’¤ß’¤Î’ºÝ’¤Î’¥á’¥Ã’¥»’¡¼’¥¸’¤ò’ɽ’¼¨’¤·’¤Ê ’¤¤’¡£ (defalias 'skk-get-jisyo-buffer #[(file &optional nomsg) "\205\315\306:\203A\202\n\211\2037\307\310!\203\"\310 !\2043\307\311!\2037 9\2037\311 !\2037 \202M \203H ;\203H\312 \f\"A\202M\312\313\f\"A)\242\206U \314>?\315\316!\317Q\"\320\"!#\321#!\204\311\322\"!#\323!r#q\210\324 \210\325\326!\210\327$\327%\330&\331'(\204\247\332)\203\241\333\202\242\334\316!\"\210\335 \"\210(\204\301\332)\203\273\336\202\274\337\316!\"\210\340 \210\341\327!\210)#.\207" [file inhibit-quit skk-jisyo-code code skk-coding-system-alist enable-character-translation t fboundp coding-system-p find-coding-system assoc "euc" (euc-japan shift_jis junet) " *" file-name-nondirectory "*" get-buffer buffer-live-p get-buffer-create expand-file-name buffer-disable-undo auto-save-mode -1 nil skk-jisyo-mode "SKK dic" message "SKK ’¼­’½ñ %s ’¤ò’¥Ð’¥Ã’¥Õ’¥¡’¤Ë’ÆÉ’¤ß’¹þ’¤ó’¤Ç’¤¤’¤Þ’¤¹..." "Inserting contents of %s ..." insert-file-contents-as-coding-system "SKK ’¼­’½ñ %s ’¤ò’¥Ð’¥Ã’¥Õ’¥¡’¤Ë’ÆÉ’¤ß’¹þ’¤ó’¤Ç’¤¤’¤Þ’¤¹...’´°’λ’¡ª" "Inserting contents of %s ...done" skk-setup-jisyo-buffer set-buffer-modified-p buf-name buf buffer-read-only case-fold-search major-mode mode-name nomsg skk-japanese-message-and-error] 5 (#$ . 89677)]) #@166 ’¸¡’º÷’¤ò’¹Ô’¤¦’¡£ `skk-current-search-prog-list' ’¤Î’Í×’ÁÇ’¤Ë’¤Ê’¤Ã’¤Æ’¤¤’¤ë’¥×’¥í’¥°’¥é’¥à’¤ò’ɾ’²Á’¤·’¤Æ’¡¢ `skk-henkan-key' ’¤ò’¥­’¡¼’¤Ë’¤·’¤Æ’¸¡’º÷’¤ò’¹Ô’¤¦’¡£ (defalias 'skk-search #[nil "\302\204 \203\303 @! A\202)\207" [l skk-current-search-prog-list nil eval] 2 (#$ . 91139)]) #@502 SKK ’¼­’½ñ’¥Õ’¥©’¡¼’¥Þ’¥Ã’¥È’¤Î FILE ’¤Ç `skk-henkan-key' ’¤ò’¥­’¡¼’¤Ë’¤·’¤Æ’¸¡’º÷’¤ò’¹Ô’¤¦’¡£ ’¸¡’º÷’ÎÎ’°è’¤¬ LIMIT ’°Ê’²¼’¤Ë’¤Ê’¤ë’¤Þ’¤Ç’¥Ð’¥¤’¥Ê’¥ê’¥µ’¡¼’¥Á’¤ò’¹Ô’¤¤’¡¢’¤½’¤Î’¸å’¥ê’¥Ë’¥¢’¥µ’¡¼’¥Á’¤ò’¹Ô’¤¦’¡£ LIMIT ’¤¬ 0 ’¤Ç’¤¢’¤ì’¤Ð’¡¢’¥ê’¥Ë’¥¢’¥µ’¡¼’¥Á’¤Î’¤ß’¤ò’¹Ô’¤¦’¡£ ’¼­’½ñ’¤¬’¥½’¡¼’¥È’¤µ’¤ì’¤Æ’¤¤’¤Ê’¤¤’¤Î’¤Ç’¤¢’¤ì’¤Ð’¡¢LIMIT ’¤ò 0 ’¤¹’¤ë’ɬ’Í×’¤¬’¤¢’¤ë’¡£ ’¥ª’¥×’¥·’¥ç’¥ó’°ú’¿ô’¤Î NOMSG ’¤¬ non-nil ’¤Ç’¤¢’¤ì’¤Ð `skk-get-jisyo-buffer' ’¤Î ’¥á’¥Ã’¥»’¡¼’¥¸’¤ò’½Ð’ÎÏ’¤·’¤Ê’¤¤’¤è’¤¦’¤Ë’¤¹’¤ë’¡£ (defalias 'skk-search-jisyo-file #[(file limit &optional nomsg) "\303\304 \"\n\"\207" [file nomsg limit skk-search-jisyo-buf skk-get-jisyo-buffer] 4 (#$ . 91443)]) #@340 SKK ’¥µ’¡¼’¥Ð’¡¼’¤ò’»È’ÍÑ’¤·’¤Æ `skk-henkan-key' ’¤ò’¥­’¡¼’¤Ë’¤·’¤Æ’¸¡’º÷’¤ò’¹Ô’¤¦’¡£ SKK ’¥µ’¡¼’¥Ð’¡¼’¤¬’»È’ÍÑ’¤Ç’¤­’¤Ê’¤¤’¤È’¤­’¤Ï’¡¢FILE ’¤ò’¥Ð’¥Ã’¥Õ’¥¡’¤Ë’ÆÉ’¤ß’¹þ’¤ó’¤Ç’¸¡’º÷’¤ò’¹Ô’¤¦’¡£ LIMIT ’¤È NOMSG ’¤Ï SKK ’¥µ’¡¼’¥Ð’¡¼’¤ò’»È’ÍÑ’¤·’¤Ê’¤¤’¤È’¤­’¤Î’¤ß’»È’¤¦’¡£ ’¤³’¤ì’¤é’¤Î’°ú’¿ô’¤Ë’¤Ä’¤¤’¤Æ’¤Ï `skk-search-jisyo-file' ’¤ò’»²’¾È’¡£ (defalias 'skk-search-server #[(file limit &optional nomsg) "\204 \203 \305\n \"\207\306\n \f#\207" [skk-server-host skk-servers-list file limit nomsg skk-search-server-1 skk-search-jisyo-file] 4 (#$ . 92116)]) #@238 ’¸«’½Ð’¤·’¸ì’¤ò’Á÷’¤ê’²¾’̾’¤ò’´Þ’¤à’¤â’¤Î’¤È’¤·’¤Æ’¸¡’º÷’¤¹’¤ë’¡£ ’Îã’¤¨’¤Ð’¡¢`skk-auto-okuri-process' ’¤¬ non-nil ’¤Ê’¤é’¤Ð "Uresii" ’¤Î’¤è’¤¦’¤Ë’Á÷’¤ê’²¾ ’̾’¤â’´Þ’¤á’¤Æ’¥¿’¥¤’¥×’¤·’¤Æ’¤â’Á÷’¤ê’¤¢’¤ê’¤Î "’´ò’¤·’¤¤" ’¤ò’õ’¤·’½Ð’¤¹’¡£ (defalias 'skk-okuri-search #[nil "\205\301 \207" [skk-auto-okuri-process skk-okuri-search-1] 1 (#$ . 92677)]) #@79 ’¥Ð’¥Ã’¥Õ’¥¡’¤ò BUF ’¤Ë’°Ü’Æ°’¤·’¤Æ’¡¢’¤½’¤³’¤ò’¼­’½ñ’¤È’¤·’¤Æ’¸¡’º÷’¤¹’¤ë’¡£ (defalias 'skk-search-jisyo-buf #[(buf limit) "\306!\2057 \206 \n \203\307\f!\202\fp\310 \f rq\210\f\311 \"\312  \f $-\207" [buf skk-henkan-okurigana skk-okuri-char skk-use-numeric-conversion skk-henkan-key words-list buffer-live-p skk-num-compute-henkan-key nil skk-search-jisyo skk-select-words-from-list henkan-buffer midasi okurigana limit] 5 (#$ . 93034)]) #@246 ’¥«’¥ì’¥ó’¥È’¥Ð’¥Ã’¥Õ’¥¡’¤ò’¼­’½ñ’¤È’¤·’¤Æ’¸¡’º÷’¤¹’¤ë’¡£ `skk-compute-henkan-lists' ’¤ò’»È’ÍÑ’¤·’¡¢’¸«’½Ð’¤·’¸ì’¤Ë’¤Ä’¤¤’¤Æ’¤Î’¸õ’Ê䒤Β¾ð’Êó’¤ò’ÊÖ’¤¹’¡£ DELETE ’¤¬ non-nil ’¤Ç’¤¢’¤ì’¤Ð’¡¢MIDASI ’¤Ë’¥Þ’¥Ã’¥Á’¤¹’¤ë’¥¨’¥ó’¥È’¥ê’¤ò’ºï’½ü’¤¹’¤ë’¡£ (defalias 'skk-search-jisyo #[(okurigana limit &optional delete) "\306\307Q\310\211\211\211\311 \312\216\203!\202&d\313V\203o \fZ\211V\203o\f\n\314\245\\b\210\315 \210`\203U\316 \317\320!S\"\231\202^\316 \317\320!S\"\231\211\203i \202k )\202-\fb\210o\204y\321u\210\317 \322#\205\224\323!\203\224\315 \210`\324y\210`|\210.\207" [skk-henkan-key p size max min key "\n" " /" nil match-data ((set-match-data save-match-data-internal)) 0 2 beginning-of-line buffer-substring-no-properties search-forward " " -1 noerror skk-compute-henkan-lists 1 save-match-data-internal okurigana skk-okuri-ari-min skk-okuri-ari-max skk-okuri-nasi-min limit p-is-further delete] 6 (#$ . 93502)]) #@105 `skk-search-jisyo' ’¤¬’ÊÖ’¤·’¤¿’¸õ’Ê䒥꒥¹’¥È’¤«’¤é’¸½’ºß’Í×’µá’¤µ’¤ì’¤Æ’¤¤’¤ë’¸õ’Êä’¤ò’Áª’¤Ó’¤À’¤¹’¡£ (defalias 'skk-select-words-from-list #[(list buffer midasi okurigana) "\205K \203\n\203\3068\202& \203$ \203$\307\3068@\"\202&@ \310 \211\n\203H\n@\211  \f \f$\nA\211\n\2041*\f)\207" [list okurigana skk-henkan-okuri-strictly skk-henkan-strict-okuri-precedence words skk-search-end-function 2 skk-nunion nil function #1=#:--dolist-temp--36152 buffer midasi] 6 (#$ . 94481)]) #@111 ’¼­’½ñ’¸õ’Êä’·²’¤ò 4 ’¤Ä’¤Î’¥ê’¥¹’¥È’¤Ë’ʬ’²ò’¤¹’¤ë’¡£ ’¾Ü’¤·’¤¯’¤Ï’¡¢’¤³’¤Î’´Ø’¿ô’¤Î’¥³’¥á’¥ó’¥È’¤ò’»²’¾È’¡£ (defalias 'skk-compute-henkan-lists #[(okurigana) "\204\306\307`\310\210`S\"\311\"\310\211\211F\207\312 \313\216\314\315\310\211BB\315\310\211BB\315\310\211BB\315\310\211BB\316P\310\211l\204\333\307`\317\311!S\"\211\320\230\203W\321\322!\202Z \322H\211\323=\203\213\324X\203\213\325 \f\"\211\f\230\203\326 \"\210\327\202?\324\326 \"\210\202?\314U\203\233\326 \"\210\202?\324U\203\253\326 \"\210\202?\327U\203\314\n\330=\203\303\331\326 \"\210\202?\326 \"\210\202?\331U\203?\326 \"\210\202?A@A@A@ A@F.\n\207" [okurigana save-match-data-internal headchar item okuri-key q4 split-string buffer-substring-no-properties nil "/" match-data ((set-match-data save-match-data-internal)) 1 QUEUE "[" search-forward "" int-char 0 91 2 skk-compute-henkan-lists-sub-adjust-okuri queue-enqueue 3 93 4 q3 q2 q1 stage] 9 (#$ . 94993)]) (defalias 'skk-compute-henkan-lists-sub-adjust-okuri #[(item &optional okuri-key) "\207" [item] 1]) #@135 X ’¤È Y ’¤Î’ÏÂ’½¸’¹ç’¤ò’ºî’¤ë’¡£ ’Åù’¤·’¤¤’¤«’¤É’¤¦’¤«’¤Î’Èæ’³Ó’¤Ï’¡¢`equal' ’¤Ç’¹Ô’¤ï’¤ì’¤ë’¡£X ’¤Ë Y ’¤ò’ÇË’²õ’Ū’¤Ë’Ï¢’ÀÜ’¤¹’¤ë’¡£ (defalias 'skk-nunion #[(x y) "\204 \207 \204\f\207\306 \307\216 \310\211\211\211 \211\f\203:\310B \f@ \311\312\215\210\fA\211\f\204!.\207" [x y save-match-data-internal e2 e1 origlist1 match-data ((set-match-data save-match-data-internal)) nil found (byte-code "A@\211\203P \n\232\203\305\306\307\"\210\202I ;\203I\n;\203I\310\311 \"\203I \312\211\224O\211\n\232\204D\310\311\n\"\203I\n\312\211\224O \232\203I\305\306\307\"\210A\211\202\nC\241\210 A\307\207" [list1 e1 e2 origlist1 x throw found nil string-match ";" 0] 4) list1 list2] 6 (#$ . 96105)]) #@55 LIST ’¤«’¤é’½Å’Ê£’¤ò’¤Ê’¤¯’¤·’¤¿’¥ê’¥¹’¥È’¤ò’ÊÖ’¤¹’¡£ (defalias 'skk-remove-duplicates #[(list) "\302 \203 @\235\204 @B A\211\204\237)\207" [new list nil] 3 (#$ . 96841)]) #@220 ’¼­’½ñ’¥Õ’¥¡’¥¤’¥ë’¤ò’õ’¤·’¡¢’¸õ’Êä’¤ò’¥ê’¥¹’¥È’¤Ç’ÊÖ’¤¹’¡£ ’¸õ’Êä’¤ò’¸«’¤Ä’¤±’¤¿’¾ì’¹ç’¤Ï’¡¢’Âç’°è’ÊÑ’¿ô `skk-kakutei-flag' ’¤Ë non-nil ’¤ò’Âå’Æþ’¤¹’¤ë’¡£ ’¸õ’Êä’¤¬’¸«’¤Ä’¤«’¤é’¤Ê’¤«’¤Ã’¤¿’¾ì’¹ç’¤Ï’¡¢nil ’¤ò’ÊÖ’¤¹’¡£ (defalias 'skk-search-kakutei-jisyo-file #[(file limit &optional nomsg) "\304 \n#\211\207" [file limit nomsg skk-kakutei-flag skk-search-jisyo-file] 4 (#$ . 97032)]) (defalias 'skk-update-jisyo #[(word &optional purge) " \n\"\207" [skk-update-jisyo-function word purge] 3]) #@422 WORD ’¤¬’¼¡’¤Î’ÊÑ’´¹’»þ’¤Ë’ºÇ’½é’¤Î’¸õ’Ê䒤˒¤Ê’¤ë’¤è’¤¦’¤Ë’¡¢’¥×’¥é’¥¤’¥Ù’¡¼’¥È’¼­’½ñ’¤ò’¹¹’¿·’¤¹’¤ë’¡£ PURGE ’¤¬ non-nil ’¤Ç WORD ’¤¬’¶¦’Í­’¼­’½ñ’¤Ë’¤¢’¤ë’¸õ’Ê䒤ʒ¤é `skk-ignore-dic-word' ’´Ø’¿ô’¤Ç’¥¯’¥©’¡¼’¥È’¤·’¤¿’¸õ’Êä’¤ò’¥×’¥é’¥¤’¥Ù’¡¼’¥È’¼­’½ñ’¤Ë’ºî’¤ê’¡¢’¼¡’¤Î’ÊÑ’´¹’¤«’¤é’½Ð’ÎÏ’¤·’¤Ê ’¤¤’¤è’¤¦’¤Ë’¤¹’¤ë’¡£ WORD ’¤¬’¶¦’Í­’¼­’½ñ’¤Ë’¤Ê’¤±’¤ì’¤Ð’¡¢’¥×’¥é’¥¤’¥Ù’¡¼’¥È’¼­’½ñ’¤Î’¼­’½ñ’¥¨’¥ó’¥È’¥ê’¤«’¤é’ºï’½ü’¤¹’¤ë’¡£ (defalias 'skk-update-jisyo-original #[(word &optional purge) "\306\307\" \203\310\n!\202\n \205p\204#\311 \"\210\205\263\312\313\211\211\314V\203C\315!\n\206Jrq\210 \316\317\320#\321$\210\203y FI\210 \313!\211\"\203\234\"@\211!\f %\210\"A\211\"\204\203* T #\205\262# U\205\262\322\323!-+\207" [skk-jisyo skk-use-numeric-conversion skk-henkan-key skk-update-end-function henkan-buffer midasi skk-get-jisyo-buffer nomsg skk-num-compute-henkan-key skk-update-kakutei-history t nil -1 skk-remove-common skk-search-jisyo 0 delete skk-update-jisyo-1 skk-save-jisyo quiet jisyo-buffer skk-henkan-okurigana word okurigana old-words-list buffer-read-only inhibit-quit skk-okuri-index-min skk-okuri-char purge skk-share-private-jisyo skk-jisyo-update-vector skk-update-jisyo-count function #1=#:--dolist-temp--36153 skk-jisyo-save-count] 7 (#$ . 97535)]) #@220 ’¸Ä’¿Í’¼­’½ñ’¤Ë’¿·’¤·’¤¤’¥¨’¥ó’¥È’¥ê’¤ò’ÁÞ’Æþ’¤¹’¤ë’¡£ ’´û’¸’¥¨’¥ó’¥È’¥ê’¤«’¤é’·×’»»’¤·’¤¿ words[1-4] ’¤Î’ÃÍ’¤È’¡¢’º£’²ó’¤Î’ÊÑ’´¹’¤Î’·ë’²Ì word ’¤È’¤ò ’·ë’¹ç’¤·’¤Æ’¡¢’¿·’¤¿’¤Ê’¥¨’¥ó’¥È’¥ê’¤ò’·×’»»’¤·’¡¢’ÁÞ’Æþ’¤¹’¤ë’¡£ (defalias 'skk-update-jisyo-1 #[(okurigana word old-words-list purge) "@A@\3068\3078 \204\310\f\"B\2026\311\"\2030\312\f\"\2025\310\f\"\f\205\203D\202Fb\210\313\314\261\210\315\316\f\317#\317\261\210\203\337\n\203\307 \204q\310\n\"B\202\337\310\n\"\211\204\337 G\211\320U\203\211\321\202\235\322U\203\227\321 @D\202\235 G\306Z \233\211\203\300A@\323P\230\203\300\322U\203\273\321\202\300\321\241\210 A*\202\337\204\337 \204\337 \323PC\244C\324C \205\315\316 \317#\317\261\210\n\203\371\315\316\n\317#\317\261\210 \205\315\316 \317#\317\261,\207" [old-words-list words4 words3 words2 words1 purge 2 3 delete skk-public-jisyo-has-word-p skk-compose-ignore-word "\n" " /" mapconcat skk-quote-char "/" 0 nil 1 "[" "]" word okurigana skk-okuri-ari-min skk-okuri-nasi-min skk-henkan-key len last2 skk-process-okuri-early] 6 (#$ . 98900)]) #@252 WORD ’¤ò’¼­’½ñ’¥¨’¥ó’¥È’¥ê’¤È’¤·’¤Æ’Àµ’¤·’¤¤’·Á’¤Ë’À°’·Á’¤¹’¤ë’¡£ ’¼­’½ñ’¤Î’À©’¸Â’¤«’¤é’¼­’½ñ’¥¨’¥ó’¥È’¥ê’Æ⒤˒´Þ’¤á’¤Æ’¤Ï’¤Ê’¤é’¤Ê’¤¤’ʸ’»ú’¤¬ WORD ’¤Î’Ã撤˒¤¢’¤ì’¤Ð’¡¢ ’ɾ’²Á’¤·’¤¿’¤È’¤­’¤Ë’¤½’¤Î’ʸ’»ú’¤È’¤Ê’¤ë’¤è’¤¦’¤Ê Lisp ’¥³’¡¼’¥É’¤ò’ÊÖ’¤¹’¡£ (defalias 'skk-quote-char #[(word) "\306 \307\216 \203P\310\311 \"\203P \211G\211\312V\2051\n\313H\314=\2051\315\n\316H!\2051\n SH\317=*\204P\310\320 \"\204P\321\322 \fA\323\324\325 \326\"\327#*\"\202Q *\207" [save-match-data-internal word string l skk-quote-char-alist alist match-data ((set-match-data save-match-data-internal)) string-match "[/\n \"]" 2 0 40 skk-ascii-char-p 1 41 ";" format "(concat \"%s\")" mapconcat #[(char) " \236A\206\n\302!\207" [char alist char-to-string] 2] append nil ""] 8 (#$ . 100059)]) #@181 WORD ’¤ò’¼­’½ñ’¥¨’¥ó’¥È’¥ê’¤È’¤·’¤Æ’Àµ’¤·’¤¤’·Á’¤Ë’À°’·Á’¤¹’¤ë’¡£ `skk-quote-char' ’¤È’»÷’¤Æ’¤¤’¤ë’¤¬’¡¢’Ãð’¼á’¤È’´Ø’·¸’¤Ê’¤¤’¥»’¥ß’¥³’¥í’¥ó (;) ’¤ò’½è’Íý’¤¹’¤ë’ÅÀ’¤¬ ’°Û’¤Ê’¤ë’¡£ (defalias 'skk-quote-semicolon #[(word) "\303\304\"\203\305\306 \307\310\311\312\"\313#*\"\207\207" [word skk-quote-char-alist alist string-match ";" format "(concat \"%s\")" mapconcat #[(char) " \236A\206\n\302!\207" [char alist char-to-string] 2] append nil ""] 7 (#$ . 100853)]) #@225 ’¶¦’Í­’¼­’½ñ’¤¬ WORD ’¤ò’»ý’¤Ã’¤Æ’¤¤’¤ë’¤«’¤É’¤¦’¤«’Ä´’¤Ù’¤ë’¡£ ’¶¦’Í­’¼­’½ñ’¤¬ MIDASHI ’µÚ’¤Ó’¤½’¤ì’¤Ë’ÂÐ’±þ’¤¹’¤ë ’¸õ’Êä WORD ’¤ò’»ý’¤Ã’¤Æ’¤¤’¤ì’¤Ð’¡¢ non-nil ’¤ò’ÊÖ ’¤¹’¡£’¸Ä’¿Í’¼­’½ñ’¤Î’¥Ð’¥Ã’¥Õ’¥¡’¤Ç’¼Â’¹Ô’¤µ’¤ì’¤ë’¡£ (defalias 'skk-public-jisyo-has-word-p #[(okurigana word) "\306\211\211 \203\f  \204\f\204\307\310!\203\311\312!\210 \211\205-\313\n!\235+\207" [skk-henkan-strict-okuri-precedence skk-henkan-okuri-strictly fn okurigana skk-henkan-okurigana skk-servers-list nil getenv "SKKSERVER" require skk-server eval skk-server-host skk-public-jisyo-to-be-searched-function word] 4 (#$ . 101333)]) #@103 `skk-search-prog-list' ’¤Î’Ãæ’¤«’¤é’¡¢’°ì’ÈÖ’Âç’¤­’¤Ê’¶¦’Í­’¼­’½ñ’¤ò’»È’¤¦’¥×’¥í’¥°’¥é’¥à’¤ò’ÊÖ’¤¹’¡£ (defalias 'skk-public-jisyo-to-be-searched-original #[nil "\306\307\310!\203 \204\n\203\311 \236\204S\f\204 \203S \306\f\211 @\211\f\203R\f@\312=\203I\fA@\313>\203I\f\306\211 \202' A\211 \202'*)\207" [fn skk-servers-list skk-server-host skk-search-prog-list skk-aux-large-jisyo skk-large-jisyo nil featurep skk-server skk-search-server skk-search-jisyo-file (skk-aux-large-jisyo skk-large-jisyo) cell spl] 3 (#$ . 101967)]) #@403 ’̵’»ë’¤¹’¤Ù’¤­’¸õ’Êä’¤ò’¤Þ’¤È’¤á’¤ë’¡£ WORDS ’¤Î’Ãæ’¤Ë `skk-ignore-dic-word' ’´Ø’¿ô’¤Ç’¥¯’¥©’¡¼’¥È’¤·’¤¿’¸õ’Êä’¤¬’¤¢’¤ì’¤Ð’¡¢’°ì’¤Ä’¤Î’¸õ’Êä ’¤Ë’¤Þ’¤È’¤á’¤ë’¡£ ’¥ª’¥×’¥·’¥ç’¥ó’°ú’¿ô’¤Î ADD ’¤¬’»Ø’Äê’¤µ’¤ì’¤Æ’¤¤’¤¿’¤é’¡¢ADD ’¤ò’´Þ’¤á’¤¿ `skk-ignore-dic-word' ’¸õ’Êä’·²’¤ò’ºî’¤ë’¡£ ’¿·’¤·’¤¤ `skk-ignore-dic-word' ’¸õ’Êä’¤ò car ’¤Ë’¡¢’¤½’¤ì’°Ê’³°’¤Î’¸õ’Êä’¤ò cdr ’¤Ë’¤·’¤¿’¥»’¥ë (’¥ê’¥¹’¥È)’¤ò’ÊÖ’¤¹’¡£ (defalias 'skk-compose-ignore-word #[(words &optional add) "\306\211\211 \203\307 \f\"\f\310 \311\216\n\203;\n@\nA\312\313\"\203 \314\224T\314\225SO\315Q\316\f\"\202 \204F \317\320O\202S \203R \321 !P\202S \322\323 \232\203b\321 !\202c \"\f-B\207" [e arg l add words save-match-data-internal nil delete match-data ((set-match-data save-match-data-internal)) string-match "(skk-ignore-dic-word +\\([^)]+\\))" 1 "\" \"" delq 0 -2 skk-compose-ignore-word-sub-quote-char format "(skk-ignore-dic-word \"%s\")"] 4 (#$ . 102529)]) #@111 `skk-compose-ignore-word' ’¤Î’²¼’°Ì’¥ë’¡¼’¥Á’¥ó’¡£ SKK ’¼­’½ñ’¤Î’¸õ’Ê䒤Ȓ¤·’¤Æ’Àµ’¤·’¤¤’·Á’¤Ë’À°’·Á’¤¹’¤ë’¡£ (defalias 'skk-compose-ignore-word-sub-quote-char #[(str) "\304\305\"\203#\304\306\"\203 \202 A\n\307\310\311 \312\"\313#+\207\207" [str skk-quote-char-alist alist word string-match "[/\n \";]" ";" mapconcat #[(char) " \236A\206\n\302!\207" [char alist char-to-string] 2] append nil ""] 5 (#$ . 103490)]) #@410 ’¸«’½Ð’¤·’¸ì’¤ò’¥«’¥¿’¥«’¥Ê’¤Ë’¤·’¤Æ’¡¢’¥ê’¥¹’¥È’¤Ë’¤·’¤Æ’ÊÖ’¤¹’¡£ ’¤³’¤ì’¤Ï `skk-search-prog-list' ’¤Ë’ÄÉ’²Ã’¤µ’¤ì’¤ë’¤Ù’¤­’µ¡’ǽ’¤Ç’¡¢’ÊÑ’´¹’¥­’¡¼’¤ò’ñ’½ã’¤Ë’¥« ’¥¿’¥«’¥Ê’¤Ë’ÊÑ’´¹’¤·’¤¿’¤â’¤Î’¤ò’¸õ’Ê䒤Ȓ¤·’¤Æ’ÊÖ’¤¹’¡£ ’°ì’È̒Ū’¤Ê FEP ’¤Ï’ñ’½ã’¤Ë’¥«’¥¿’¥«’¥Ê’¤Ë’ÊÑ’´¹’¤·’¤¿’¤â’¤Î’¤¬’¸õ’Ê䒤˒¸½’¤ì’¤ë’¤â’¤Î’¤¬’¿’¤¤’¤¬’¡¢ ’¤½’¤Î’¤è’¤¦’¤Ê’µó’Æ°’¤¬’¹¥’¤ß’¤Î’¾ì’¹ç’¤Ë’¤Ï’¤³’¤Î’´Ø’¿ô’¤ò’ÍÑ’¤¤’¤ë’¤È’¤è’¤¤’¡£ (defalias 'skk-search-katakana #[(&optional jisx0201-kana) "?\205~ \306\211\307\310\311!!\312\216r q\210\fc\210`Sb\210\313\314!\203(\315\316!\210eb\210\313\314!\2035\315\316!\210m\204N\313\317!\204H\320 \211\321=\203N\316u\210\2025 \322=\203^\323ed\324#\210\325 C\203{ \322=\204p\326\317\f\"\203{\327ed\"\210\n\325 C\244+\n+\207" [skk-henkan-okurigana skk-henkan-key words char key #1=#:temp-buffer nil get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) looking-at ">" delete-char 1 "’¡¼" skk-what-char-type unknown hiragana skk-katakana-region t buffer-string string-match skk-katakana-to-jisx0201-region jisx0201-kana] 4 (#$ . 103927)]) (defalias 'skk-search-all-progs #[(key) "\306\211\211\211\307\310\311\217\210 -\207" [key words skk-auto-okuri-process skk-okuri-char skk-henkan-okurigana skk-henkan-key nil #1=#:G36154 (byte-code "\306\211\203:\n@\307 !\306\211\2032\f@\310\311 \"\203% \312\211\224O\313 C\"\fA\211\204*\nA\211\204*\306\207" [skk-search-prog-list form #2=#:--dolist-temp--36155 word #3=#:--dolist-temp--36156 words nil eval string-match ";" 0 skk-nunion] 5) ((error))] 5]) #@98 ’¸«’½Ð’¤·’¸ì’¤ò’¥µ’¹Ô’ÊÑ’³Ê’³è’ÍÑ’¤Î’Æ°’»ì’¤È’¤ß’¤Ê’¤·’¤Æ’¡¢’Á÷’¤ê’¤¢’¤ê’¸õ’Êä’¤ò’¸¡’º÷’¤¹’¤ë’¡£ (defalias 'skk-search-sagyo-henkaku #[(&optional okuri-list anything) "\204\304 \205 \235\204\n\205\305 \306 GSO!\207" [okuri-list skk-henkan-okurigana anything skk-henkan-key ("’¤µ" "’¤·" "’¤¹" "’¤»") skk-search-all-progs 0] 4 (#$ . 105565)]) (defalias 'skk-search-with-suffix #[nil "\206\306\307N?\205\230\310 G\311\211\211\211\211\312\306\307\313#\210W\203\217 \314O \311O\315!\315\316 P!\f\203\206 \203\206\f\311\211\203\205@ \311\211\203{@\nPC\244A\211\204d*A\211\204U*T\211\202%\312\306\307\311#\210\n.\207" [skk-henkan-okurigana skk-henkan-key list suffixes words suf-key skk-search-with-suffix active 1 nil put t 0 skk-search-all-progs ">" key len i word #1=#:--dolist-temp--36157 suffix #2=#:--dolist-temp--36158] 8]) #@227 ’ÎÎ’°è’¤Î’¤Ò’¤é’¤¬’¤Ê’¤ò’¥«’¥¿’¥«’¥Ê’¤Ë’ÊÑ’´¹’¤¹’¤ë’¡£ ’¥ª’¥×’¥·’¥ç’¥Ê’¥ë’°ú’¿ô’¤Î VCONTRACT ’¤¬ non-nil ’¤Ç’¤¢’¤ì’¤Ð’¡¢"’¤¦’¡«" ’¤ò "’¥ô" ’¤Ë’ÊÑ’´¹’¤¹ ’¤ë’¡£ ’°ú’¿ô’¤Î START ’¤È END ’¤Ï’¿ô’»ú’¤Ç’¤â’¥Þ’¡¼’¥«’¡¼’¤Ç’¤â’ÎÉ’¤¤’¡£ (defalias 'skk-katakana-region #[(start end &optional vcontract) "\203 \303 \n\304\305$\210\303 \n\306\307$\207" [vcontract start end skk-search-and-replace "’¤¦’¡«" #[(matched) "\300\207" ["’¥ô"] 1] "[’¤¡-’¤ó]+" #[(matched) "\301!\207" [matched skk-hiragana-to-katakana] 2]] 5 (#$ . 106478) "*r\nP"]) #@374 ’ÎÎ’°è’¤Î’¥«’¥¿’¥«’¥Ê’¤ò’¤Ò’¤é’¤¬’¤Ê’¤Ë’ÊÑ’´¹’¤¹’¤ë’¡£ ’¥ª’¥×’¥·’¥ç’¥Ê’¥ë’°ú’¿ô’¤Î VEXPAND ’¤¬ non-nil ’¤Ç’¤¢’¤ì’¤Ð’¡¢"’¥ô" ’¤ò "’¤¦’¡«" ’¤Ë’ÊÑ’´¹’¤¹’¤ë’¡£ ’°ú’¿ô’¤Î START ’¤È END ’¤Ï’¿ô’»ú’¤Ç’¤â’¥Þ’¡¼’¥«’¡¼’¤Ç’¤â’ÎÉ’¤¤’¡£ "’¥õ" ’¤È "’¥ö" ’¤Ï’ÊÑ’¹¹’¤µ’¤ì’¤Ê’¤¤’¡£’¤³’¤Î 2 ’¤Ä’¤Î’ʸ’»ú’¤Ï’ÂÐ’±þ’¤¹’¤ë’¤Ò’¤é’¤¬’¤Ê’¤¬’¤Ê’¤¤’¤Î’¤Ç’¡¢ ’¥«’¥¿’¥«’¥Ê’¤È’¤·’¤Æ’¤Ï’°·’¤ï’¤ì’¤Ê’¤¤’¡£ (defalias 'skk-hiragana-region #[(start end &optional vexpand) "\203 \303 \n\304\305$\210\303 \n\306\307$\207" [vexpand start end skk-search-and-replace "’¥ô" #[(matched) "\300\207" ["’¤¦’¡«"] 1] "[’¥¡-’¥ó]+" #[(matched) "\301!\207" [matched skk-katakana-to-hiragana] 2]] 5 (#$ . 107016) "*r\nP"]) #@72 ’ÎÎ’°è’¤Î ascii ’ʸ’»ú’¤ò’ÂÐ’±þ’¤¹’¤ë’Á´’³Ñ’±Ñ’ʸ’»ú’¤Ë’ÊÑ’´¹’¤¹’¤ë’¡£ (defalias 'skk-jisx0208-latin-region #[(start end) "\302 \303\304$\207" [start end skk-search-and-replace "[ -~]" #[(matched) "\302 !H\207" [skk-default-jisx0208-latin-vector matched string-to-char] 3]] 5 (#$ . 107696) "*r"]) #@72 ’ÎÎ’°è’¤Î’Á´’³Ñ’±Ñ’ʸ’»ú’¤ò’ÂÐ’±þ’¤¹’¤ë ascii ’ʸ’»ú’¤Ë’ÊÑ’´¹’¤¹’¤ë’¡£ (defalias 'skk-latin-region #[(start end) "\302 \303\304$\207" [start end skk-search-and-replace "\\cj" #[(matched) "\301!\206\207" [matched skk-jisx0208-to-ascii] 2]] 5 (#$ . 108001) "*r"]) (defalias 'skk-search-and-replace #[(start end regexp func) "\306\211\307 \310\216\311 \312\216\313 \f\306\223 b\210\314\f\315#\203C\316\317\224\317\225\" !\317\224b\210\320!\210\317\224G\\\317\225G\\|\210\202\f\306\211\223.\207" [replace matched save-match-data-internal skk-save-point end start nil match-data ((set-match-data save-match-data-internal)) point-marker ((byte-code "b\210\204\n\301 \302\211\223\207" [skk-save-point make-marker nil] 3)) make-marker re-search-forward noerror buffer-substring-no-properties 0 insert-and-inherit regexp func] 4]) (defalias 'skk-jisx0208-to-ascii #[(string) "\302\303!\210\304\305!\306\"\211\205\307 !)\207" [string char require japan-util get-char-code-property string-to-char ascii char-to-string] 4]) #@279 `skk-henkan-start-point' ’¤È `skk-henkan-end-point' ’¤Î’´Ö’¤Î’ʸ’»ú’Îó’¤ò’ÊÑ’´¹’¤¹’¤ë’¡£ ’ÊÑ’´¹’²Ä’ǽ’¤«’¤É’¤¦’¤«’¤Î’¥Á’¥§’¥Ã’¥¯’¤ò’¤·’¤¿’¸å’¤Ë ARGS ’¤ò’°ú’¿ô’¤È’¤·’¤Æ FUNC ’¤ò’Ŭ’ÍÑ’¤·’¡¢ `skk-henkan-start-point' ’¤È `skk-henkan-end-point' ’¤Î’´Ö’¤Î’ʸ’»ú’Îó’¤ò’ÊÑ’´¹’¤¹’¤ë’¡£ (defalias 'skk-henkan-skk-region-by-func #[(func &optional arg) "\306\216\307=\203\f\310\202\250\311=\203\244 \204\312  `\310\223\210\n\313V\203A `W\203A\314 \315\216 b\210\316 *\317=\203A\320\321 `\"!\210  \322 8)\203Z\323\324!\203W\325\202X\326\"\210` W\203n\323\324!\203k\327\202l\330\"\210\"\204\220\314 \331\216\332 \210` V*\203\220\323\324!\203\215\333\202\216\334\"\210\335# $\205\235$C$\210\336 \202\250\337$!)\207" [skk-henkan-mode skk-henkan-end-point skk-kakutei-history-limit skk-henkan-start-point skk-save-point skk-current-rule-tree ((byte-code "`\301\207" [skk-previous-point nil] 1)) active nil on make-marker 0 point-marker ((byte-code "b\210\204\n\301 \302\211\223\207" [skk-save-point make-marker nil] 3)) skk-what-char-type hiragana skk-update-kakutei-history buffer-substring-no-properties 1 error "%s" "’Æþ’ÎÏ’ÅÓ’Ã撤Β²¾’̾’¥Ö’¥ì’¥Õ’¥£’¥Ã’¥¯’¥¹’¤¬’¤¢’¤ê’¤Þ’¤¹" "There remains a kana prefix" "’¥«’¡¼’¥½’¥ë’¤¬’ÊÑ’´¹’³«’»Ï’ÃÏ’ÅÀ’¤è’¤ê’Á°’¤Ë’¤¢’¤ê’¤Þ’¤¹" "Henkan end point must be after henkan start point" ((byte-code "b\210\204\n\301 \302\211\223\207" [skk-save-point make-marker nil] 3)) beginning-of-line "’ÊÑ’´¹’¥­’¡¼’¤Ë’²þ’¹Ô’¤¬’´Þ’¤Þ’¤ì’¤Æ’¤¤’¤Þ’¤¹" "Henkan key may not contain a line feed" apply skk-kakutei skk-emulate-original-map tree skk-japanese-message-and-error skk-allow-spaces-newlines-and-tabs func arg] 5 (#$ . 109052)]) (defalias 'skk-hiragana-to-katakana #[(hiragana) "\302\303\304\305 !\306#)\207" [diff hiragana 128 mapconcat #[(e) "\302X\203\303Y\203\304 \\!\207\304!\207" [e diff 53793 53875 char-to-string] 3] string-to-int-list ""] 4]) (defalias 'skk-katakana-to-hiragana #[(katakana) "\302\303\304\305 !\306#)\207" [diff katakana 128 mapconcat #[(e) "\302X\203\303Y\203\304 Z!\207\304!\207" [e diff 53921 54003 char-to-string] 3] string-to-int-list ""] 4]) (defalias 'skk-splice-in #[(org offset spliced) "\305\211\n\306V\204\307\310\311\"\210\nS \233\211A \305\241\210 \203&\f\244\202'\f\241\210 *\207" [tail tmp offset org spliced nil 0 error "%s" "Cannot splice in!"] 4]) #@199 SKK ’¤Î face ’°’À­’¤ò ON ’¤Ë’¤¹’¤ë’¡£ `skk-use-face' ’¤¬ non-nil ’¤Î’¾ì’¹ç’¡¢`skk-henkan-start-point' ’¤È `skk-henkan-end-point' ’¤Î’´Ö’¤Î face ’°’À­’¤ò `skk-henkan-face' ’¤Î’ÃÍ’¤Ë’ÊÑ’¹¹’¤¹’¤ë’¡£ (defalias 'skk-henkan-face-on #[nil "\2055\306 !\2055\306\n!\2055\307\310\f!\204/\311 \n\" \203'\312\f\313 #\210\312\f\314#\2024\315\f \n#)\207" [skk-henkan-face skk-henkan-start-point skk-henkan-end-point inhibit-quit skk-henkan-overlay skk-henkan-overlay-priority marker-position t overlayp make-overlay overlay-put priority face move-overlay] 4 (#$ . 111435)]) #@164 SKK ’¤Î face ’°’À­’¤ò OFF ’¤Ë’¤¹’¤ë’¡£ `skk-henkan-start-point' ’¤È `skk-henkan-end-point' ’¤Î’´Ö’¤Î’ɽ’¼¨’¤ò’ÊÑ’¹¹’¤·’¤Æ’¤¤’¤ë `skk-henkan-overlay' ’¤ò’¾Ã’¤¹’¡£ (defalias 'skk-henkan-face-off #[nil "\205\302 !\207" [skk-henkan-face skk-henkan-overlay skk-detach-extent] 2 (#$ . 112014)]) (defalias 'skk-detach-extent #[(object) "\301!\205 \302!\207" [object overlayp delete-overlay] 2]) #@35 ’¿·’¤·’¤¤ FACE ’¤ò’ºî’À®’¤¹’¤ë’¡£ (defalias 'skk-make-face #[(face) "\303 >@?\205:\304!\305!\306 \307\216\310\311 \"\204%\312 \"\210\2028\312 \313\211\224O\"\210\314 \313\224T\315O\"\210+\207" [face face-name save-match-data-internal face-list symbol-name make-face match-data ((set-match-data save-match-data-internal)) string-match "/" set-face-foreground 0 set-face-background nil] 5 (#$ . 112415)]) #@600 WORD ’¤Î’Á÷’¤ê’²¾’̾’°Ê’³°’¤Î’Éô’ʬ’¤ò’ÊÖ’¤¹’¡£ `skk-henkan-key' ’¤È WORD ’¤Î’´Ö’¤Ë’¶¦’ÄÌ’¤Î’Á÷’¤ê’²¾’̾’¤ò’¼è’¤ê’½ü’¤­’¡¢’Á÷’¤ê’²¾’̾’°Ê’³°’¤Î’Éô’ʬ ’¤Î’ʸ’»ú’Îó’¤ò’ÊÖ’¤¹’¡£`skk-henkan-key' ’¤È `skk-henkan-okurigana' ’¤Î’ÃÍ’¤ò’¥»’¥Ã’¥È’¤¹’¤ë’¡£ ’Îã’¤¨’¤Ð’¡¢WORD == ’»ý’¤Ã’¤Æ’¤­’¤¿ ’¤Ç’¤¢’¤ì’¤Ð’¡¢`skk-henkan-key' := ’¤ât , `skk-henkan-okurigana' := ’¤Ã’¤Æ , WORD := ’»ý ’¤Î’¤è’¤¦’¤Ë’ʬ’²ò’¤·’¡¢WORD ’¤ò’ÊÖ’¤¹’¡£ `skk-auto-okuri-process' ’¤Î’ÃÍ’¤¬ non-nil ’¤Ç’¤¢’¤ë’¤È’¤­’¤Ë’¤³’¤Î’´Ø’¿ô’¤ò’»È’ÍÑ’¤¹’¤ë’¡£ ’ÊÑ’´¹’¤¬’¹Ô’¤Ê’¤ï’¤ì’¤¿’¥Ð’¥Ã’¥Õ’¥¡’¤Ç’¥³’¡¼’¥ë’¤µ’¤ì’¤ë (’¼­’½ñ’¥Ð’¥Ã’¥Õ’¥¡’¤Ç’¤Ï’¤Ê’¤¤)’¡£ (defalias 'skk-remove-common #[(word) "\203\306\307!\203 \204\343\n\204\343 \204#\f X\203\343 X\203\343\211GG\310\311\211\211\211\211\211\211\211\211 !\"#$%&'()*+*\312Y\203\341)\312Y\203\341+*SH'\313'!)\314=\203\226+*SH)SH=\203\226+\315\316O+*S*\315\316O)S)+*S*O$)S)O#$#\230\203\341\317$,\211-,\231\206\305-,\230*\203\340$\320,\211-,\231\206\334-,\230*\204\347$\321\235\203\341)S&\"(\203C&\315V\203C&S&O'\322',\211-,\231\206-,\230*\203;'\323,\211-,\231\2060-,\230*\203;\311\211(\202\362&S&\202\360*)&ZZ%+%*O&)O\230\203\341&\211TO\211!\324\230\203\203&\312\\)X\203\203&\211\312\\O\202\205!.\315&O\"\325.! +\315%O P\311/ \204\262\"\202\340\326\3270\203\275\330\202\276\331\"#!\203\326\" 1\202\340\311.\3111\332\333!\210). \207" [skk-use-numeric-conversion skk-num-list skk-abbrev-mode skk-henkan-in-minibuff-flag skk-okuri-index-min skk-henkan-count require skk-num t nil 2 char-charset ascii 0 -1 "’¤¡" "’¤ó" ("’¡¢" "’¡£" "’¡¤" "’¡¥") "’°¡" "’ô¤" "’¤Ã" skk-okurigana-prefix y-or-n-p format "%s /%s/ ’¤ò’Á÷’¤ê’¤¢’¤ê’¸õ’Ê䒤Ȓ¤·’¤Æ’ÅÐ’Ï¿’¤·’¤Þ’¤¹’¤«’¡©" "Shall I register this as okuri-ari word: %s /%s/ ? " message "" skk-okuri-index-max skk-henkan-key word new-skk-henkan-key new-skk-okuri-char okuri-first new-word word-tail midasi-tail pos2 pos char cont word-len midasi-len midasi str2 str1 skk-henkan-okurigana inhibit-quit skk-japanese-message-and-error skk-okuri-char] 14 (#$ . 112838)]) (defalias 'skk-okurigana-prefix #[(okurigana) "\306\307O\211\310\230\203\311\202i\312 \211\n\231\206 \n\230*\2031 \310\211\n\231\206- \n\230*\2045\313\202i \314\230\203X\314\230\204X\f\315\307\316O!\307\317 \"*\320ZH\202i\f\315 !\307\317 \"*\320ZH)\207" [okurigana headchar str2 str1 skk-kana-rom-vector n 0 1 "’¤ó" "n" "’¤¡" nil "’¤Ã" string-to-char 2 char-octet 33 ch] 6]) (defalias 'skk-time-difference #[(a b) "\302@ @Z\303\"A@ A@Z\\\207" [b a lsh 16] 3]) #@107 ’ÊÑ’¿ô `skk-kakutei-history' ’¤ò’¹¹’¿·’¤¹’¤ë’¡£ ’¤³’¤Î’Íú’Îò’¤Ïskk-comp.el ’¤Ë’¤ª’¤¤’¤Æ’Íø’ÍÑ’¤µ’¤ì’¤ë’¡£ (defalias 'skk-update-kakutei-history #[(midasi &optional word) "\304X\203\n\305\211\207\n pE B\211GV\205S \233\305\241\207" [skk-kakutei-history-limit skk-kakutei-history midasi word 0 nil] 4 (#$ . 115518)]) (defalias 'skk-after-point-move #[nil "\205`U?\205A \306\n8)\205A\307\216\303\f\2036 \2036 \310\230\2046\311 !\211\2035\312\313\314\217\210) \205@\310 \312\211*\207" [skk-previous-point skk-current-rule-tree tree clean skk-echo skk-kana-start-point 1 ((byte-code "`\301\207" [skk-previous-point nil] 1)) "" marker-position nil (byte-code "\304\305 \306\216\n\211 G\\|\210+\304\207" [modified buffer-undo-list start skk-prefix t buffer-modified-p ((set-buffer-modified-p modified))] 3) ((error (byte-code "\204\303 \304\211\223\210\305\304\304\207" [skk-kana-start-point skk-prefix skk-current-rule-tree make-marker nil ""] 3))) skk-prefix start] 4]) (defalias 'skk-pre-command #[nil "\306>\205{ \n>?\205{\307\f\203\310\f!\204\311\f!\202& \205& @\312 \2044\205z\313\314!\210\315!\203F\312!\202H\211:\203_\203Z@\202]A;\203j\316!\210\204s\317 \312\211\223\210\307+\207" [last-command this-command skk-kana-cleanup-command-list force skk-current-rule-tree skk-kana-input-search-function (skk-insert skk-previous-candidate) t skk-get-nextstate skk-get-kana nil skk-erase-prefix clean functionp skk-insert-str make-marker kana data skk-katakana skk-kana-start-point] 4]) (defalias 'skk-remove-minibuffer-setup-hook #[(&rest args) "\205\301\302@\"\210A\211\204\303\207" [args remove-hook minibuffer-setup-hook nil] 4]) (byte-code "\300\301\302\303#\210\300\304\305\"\210\300\304\306\"\210\300\307\310\"\207" [add-hook edit-picture-hook skk-misc-for-picture append skk-before-kill-emacs-hook skk-record-jisyo-data skk-save-jisyo minibuffer-exit-hook #[nil "\300\301\302\303#\210\304\305\306\307#\207" [remove-hook pre-command-hook skk-pre-command local skk-remove-minibuffer-setup-hook skk-j-mode-on skk-setup-minibuffer #[nil "\300\301\302\303\304$\207" [add-hook pre-command-hook skk-pre-command nil local] 5]] 4]] 4) #@174 ’ÊÑ’¿ô `skk-preload' ’¤¬’Èó nil ’¤Î’¤È’¤­’¡¢`after-init-hook' ’¤«’¤é’¸Æ’¤Ð’¤ì’¤ë’¡£ ’¤¢’¤é’¤«’¤¸’¤á SKK ’¤ò’¸Æ’¤ó’¤Ç’¤ª’¤¯’¤³’¤È’¤Ç’¡¢ SKK ’¤Î’½é’²ó’µ¯’Æ°’¤ò’®’¤¯’¤¹’¤ë’¡£ (defalias 'skk-preload #[nil "\302\303\304!!\305\216rq\210\306\307!\210+ ;\205 \310 !\205 \311 \312\"\207" [#1=#:temp-buffer skk-large-jisyo get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) skk-mode 1 file-readable-p skk-get-jisyo-buffer nomsg] 3 (#$ . 117748)]) #@279 skk-isearch ’¤ò’Íø’ÍÑ’¤¹’¤ë’¤«’¤É’¤¦’¤«’¤ò’¥È’¥°’¥ë’¤Ç’ÊÑ’¹¹’¤¹’¤ë’¡£ ’ÊÑ’¿ô `skk-isearch-mode-enable' ’¤Î’ÃÍ’¤ò nil/t ’¥È’¥°’¥ë’¤Ç’ÊÑ’¹¹’¤¹’¤ë’¡£ ’ÊÑ’¿ô `migemo-isearch-enable-p' ’¤¬ bound ’¤µ’¤ì’¤Æ’¤¤’¤ì’¤Ð’¡¢ `skk-isearch-mode-enable' ’¤Î’ÃÍ’¤È’µÕ’¤Î’ÃÍ’¤ò’¥»’¥Ã’¥È’¤¹’¤ë’¡£ (defalias 'skk-toggle-isearch-mode #[(&optional arg) "\204 ?\202\303!\304V\205\305\306\302!\203$ \203\"\307\202$\305 \203,\310\311!\207\310\312!\207" [arg skk-isearch-mode-enable migemo-isearch-enable-p prefix-numeric-value 0 t boundp nil message "SKK isearch is enabled" "SKK isearch is disabled"] 2 (#$ . 118279) nil]) (byte-code "\301\302\303\"\210\304\305\306\307\310$\210\311\305\310\"\210\304\312\313\307\310$\210\311\312\310\"\210\304\314\315\307\310$\210\311\314\310\"\210\304\316\317\307\310$\210\311\316\310\"\210\304\320\321\307\310$\210\311\320\310\"\210\304\322\323\324\310$\210\311\322\310\"\210\304\325\326\324\310$\210\311\325\310\"\210\304\327\330\324\310$\210\311\327\310\"\210\304\331\332\324\310$\210\311\331\310\"\210\304\333\334\324\310$\210\311\333\310\"\210\304\335\336\324\310$\210\311\335\310\"\210\304\337\340\307\310$\210\311\337\341\"\210\342\343!\210\344\300!\210\344\345!\210\346\347\350!\300\351\352!\353\354\"\210\355\347\350!\"\210\356!\354\232\203\302\202\315\357\352\310\354\360\310\211\211\361&)#\210\347\350!\207" [product add-hook after-init-hook #[nil "\303J\205!\304\300!\203\305\306\"\203\302 \236A\203\306\n\205!\302 \207" [skk-custom-file skk-custom-alist skk-preload init-file-user boundp load t] 3] ad-add-advice keyboard-quit (skk-ad nil t (advice lambda nil "’¢§’¥â’¡¼’¥É’¤Ç’¤¢’¤ì’¤Ð’¡¢’¸õ’Ê䒤Βɽ’¼¨’¤ò’¤ä’¤á’¤Æ’¢¦’¥â’¡¼’¥É’¤Ë’Ìá’¤¹ (’¸«’½Ð’¤·’¸ì’¤Ï’»Ä’¤¹)’¡£\n’¢¦’¥â’¡¼’¥É’¤Ç’¤¢’¤ì’¤Ð’¡¢’¸«’½Ð’¤·’¸ì’¤ò’ºï’½ü’¤¹’¤ë’¡£\n’¾å’µ­’¤Î’¤É’¤Á’¤é’¤Î’¥â’¡¼’¥É’¤Ç’¤â’¤Ê’¤±’¤ì’¤Ð keyboard-quit ’¤È’Ʊ’¤¸’Æ°’ºî’¤ò’¤¹’¤ë’¡£" (cond ((not skk-mode) ad-do-it) ((not skk-henkan-mode) (cond ((skk-get-prefix skk-current-rule-tree) (skk-erase-prefix 'clean)) (t ad-do-it))) ((eq skk-henkan-mode 'active) (setq skk-henkan-count 0) (if (and skk-delete-okuri-when-quit skk-henkan-okurigana) (let ((count (length skk-henkan-okurigana))) (skk-previous-candidate) (delete-backward-char count)) (skk-previous-candidate))) (t (if (eq last-command 'skk-comp-do) (progn (delete-region skk-henkan-start-point (point)) (insert skk-comp-key)) (skk-erase-prefix 'clean) (when (> (point) skk-henkan-start-point) (delete-region (point) skk-henkan-start-point)) (skk-kakutei)))))) around nil ad-activate abort-recursive-edit (skk-ad nil t (advice lambda nil "’¢§’¥â’¡¼’¥É’¤Ç’¤¢’¤ì’¤Ð’¡¢’¸õ’Ê䒤Βɽ’¼¨’¤ò’¤ä’¤á’¤Æ’¢¦’¥â’¡¼’¥É’¤Ë’Ìá’¤¹ (’¸«’½Ð’¤·’¸ì’¤Ï’»Ä’¤¹)’¡£\n’¢¦’¥â’¡¼’¥É’¤Ç’¤¢’¤ì’¤Ð’¡¢’¸«’½Ð’¤·’¸ì’¤ò’ºï’½ü’¤¹’¤ë’¡£\n’¾å’µ­’¤Î’¤É’¤Á’¤é’¤Î’¥â’¡¼’¥É’¤Ç’¤â’¤Ê’¤±’¤ì’¤Ð abort-recursive-edit ’¤È’Ʊ’¤¸’Æ°’ºî’¤ò’¤¹’¤ë’¡£" (skk-remove-minibuffer-setup-hook 'skk-j-mode-on 'skk-setup-minibuffer #'(lambda nil (add-hook 'pre-command-hook 'skk-pre-command nil 'local))) (cond ((not skk-mode) ad-do-it) ((not skk-henkan-mode) (cond ((skk-get-prefix skk-current-rule-tree) (skk-erase-prefix 'clean)) (t ad-do-it))) ((eq skk-henkan-mode 'active) (setq skk-henkan-count 0) (if (and skk-delete-okuri-when-quit skk-henkan-okurigana) (let ((count (length skk-henkan-okurigana))) (skk-previous-candidate) (delete-backward-char count)) (skk-previous-candidate))) (t (skk-erase-prefix 'clean) (when (> (point) skk-henkan-start-point) (delete-region (point) skk-henkan-start-point)) (skk-kakutei))))) newline (skk-ad nil t (advice lambda nil "`skk-egg-like-newline' ’¤À’¤Ã’¤¿’¤é’¡¢’ÊÑ’´¹’Ã撤ϒ³Î’Ä꒤Β¤ß’¹Ô’¤¤’¡¢’²þ’¹Ô’¤·’¤Ê’¤¤’¡£" (interactive "*P") (if (not (or skk-j-mode skk-jisx0201-mode skk-abbrev-mode)) ad-do-it (let ((no-newline (and skk-egg-like-newline skk-henkan-mode)) (auto-fill-function (if (interactive-p) auto-fill-function nil))) (when skk-mode (skk-kakutei)) (undo-boundary) (unless no-newline ad-do-it))))) newline-and-indent (skk-ad nil t (advice lambda nil "`skk-egg-like-newline' ’¤À’¤Ã’¤¿’¤é’¡¢’ÊÑ’´¹’Ã撤ϒ³Î’Ä꒤Β¤ß’¹Ô’¤¤’¡¢’²þ’¹Ô’¤·’¤Ê’¤¤’¡£" (if (not (or skk-j-mode skk-jisx0201-mode skk-abbrev-mode)) ad-do-it (let ((no-newline (and skk-egg-like-newline skk-henkan-mode)) (auto-fill-function (if (interactive-p) auto-fill-function nil))) (when skk-mode (skk-kakutei)) (undo-boundary) (unless no-newline ad-do-it))))) exit-minibuffer (skk-ad nil t (advice lambda nil "`skk-egg-like-newline' ’¤À’¤Ã’¤¿’¤é’¡¢’ÊÑ’´¹’Ã撤ϒ³Î’Ä꒤Β¤ß’¹Ô’¤¦’¡£" (skk-remove-minibuffer-setup-hook 'skk-j-mode-on 'skk-setup-minibuffer #'(lambda nil (add-hook 'pre-command-hook 'skk-pre-command nil 'local))) (if (not (or skk-j-mode skk-jisx0201-mode skk-abbrev-mode)) ad-do-it (let ((no-newline (and skk-egg-like-newline skk-henkan-mode))) (when skk-mode (skk-kakutei)) (unless no-newline ad-do-it))))) picture-mode-exit (skk-ad nil t (advice lambda nil "SKK ’¤Î’¥Ð’¥Ã’¥Õ’¥¡’¥í’¡¼’¥«’¥ë’ÊÑ’¿ô’¤ò’̵’¸ú’¤Ë’¤·’¡¢`picture-mode-exit' ’¤ò’¥³’¡¼’¥ë’¤¹’¤ë’¡£\n`picture-mode' ’¤«’¤é’½Ð’¤¿’¤È’¤­’¤Ë’¤½’¤Î’¥Ð’¥Ã’¥Õ’¥¡’¤Ç SKK ’¤ò’Àµ’¾ï’¤Ë’Æ°’¤«’¤¹’¤¿’¤á’¤Î’½è’Íý’¡£" (when skk-mode (skk-kill-local-variables)))) before undo (skk-ad nil t (advice lambda nil "SKK ’¥â’¡¼’¥É’¤¬ on ’¤Ê’¤é `skk-self-insert-non-undo-count' ’¤ò’½é’´ü’²½’¤¹’¤ë’¡£" (when skk-mode (setq skk-self-insert-non-undo-count 0)))) kill-buffer (skk-ad nil t (advice lambda nil "SKK ’¤Î’¢§’¥â’¡¼’¥É’¤À’¤Ã’¤¿’¤é’¡¢’³Î’Äê’¤·’¤Æ’¤«’¤é’¥Ð’¥Ã’¥Õ’¥¡’¤ò’¥­’¥ë’¤¹’¤ë’¡£" (interactive "bKill buffer: ") (when (and skk-mode skk-henkan-mode (interactive-p)) (skk-kakutei)))) next-line (skk-ad nil t (advice lambda nil (when (eq skk-henkan-mode 'active) (skk-kakutei)))) previous-line (skk-ad nil t (advice lambda nil (when (eq skk-henkan-mode 'active) (skk-kakutei)))) save-buffers-kill-emacs (skk-ad nil t (advice lambda nil (run-hooks 'skk-before-kill-emacs-hook))) comint-send-input (skk-ad nil t (advice lambda nil (cond (skk-henkan-mode (skk-kakutei) (unless skk-egg-like-newline ad-do-it)) (t ad-do-it)))) t run-hooks skk-load-hook require skk-version put provide skk product-find-by-name "Daredevil SKK" product-run-checkers (12 2 0) product-add-feature product-version vector "Sone" "12.2.0"] 12)