;ELC ;;; Compiled by dan@wayne.mit.edu on Wed Apr 21 21:02:09 2004 ;;; from file /usr/pkgsrc-current/inputmethod/skk/work.bondage/ddskk-12.2.0/skk-tut.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-tut.el' was compiled for Emacs 20 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\306\307!\210\310\311\312\"\210\310\313\314\"\210\301B\315\301!\204\301\302B\315\302!\204&\302\303B\315\303!\2042\303\304B\315\304!\204>\304\305B\315\305!\204J\305\306\207" [current-load-list skk-tut-section-face skk-tut-do-it-face skk-tut-question-face skk-tut-key-bind-face skk-tut-hint-face require skk-vars autoload skk-nicola-setup-tutorial "skk-nicola" skk-viper-normalize-map "skk-viper" boundp] 3) #@100 SKK ’¥Á’¥å’¡¼’¥È’¥ê’¥¢’¥ë’¤Ç advice ’¤¬’ÉÕ’¤±’¤é’¤ì’¤ë’´Ø’¿ô’¤È advice class ’¤Î’¥¨’¡¼’¥ê’¥¹’¥È’¡£ (defconst skktut-adviced-alist '((skk-abbrev-mode . before) (skk-insert . before) (skk-kakutei . before) (skk-mode . before) (kill-buffer . around) (other-frame . before) (save-buffers-kill-emacs . around) (skk-create-file . around) (skk-save-jisyo-original . around)) (#$ . 1080)) #@42 SKK ’¥Á’¥å’¡¼’¥È’¥ê’¥¢’¥ë’¤Î’Ìä’Âê’¿ô’¡£ (defvar skktut-question-numbers nil (#$ . 1467)) #@51 SKK ’¥Á’¥å’¡¼’¥È’¥ê’¥¢’¥ë’ÍÑ’¤Î’¥À’¥ß’¡¼’¼­’½ñ’¡£ (defconst skktut-tut-jisyo "~/skk-tut-jisyo" (#$ . 1563)) #@45 skk.el ’¤Î’¥æ’¡¼’¥¶’¡¼’ÊÑ’¿ô’¤Î’¥ê’¥¹’¥È’¡£ (defconst skktut-init-variables-alist '((skk-cursor-abbrev-color . "royalblue") (skk-abbrev-mode-string . " a’¤¢") (skk-allow-spaces-newlines-and-tabs . t) (skk-auto-fill-mode-hook) (skk-auto-insert-paren) (skk-auto-okuri-process) (skk-auto-start-henkan) (skk-byte-compile-init-file) (skk-comp-load-hook) (skk-compare-jisyo-size-when-saving) (skk-count-jisyo-candidates-function quote skk-count-jisyo-candidates-original) (skk-count-private-jisyo-candidates-exactly) (skk-date-ad . 1) (skk-cursor-default-color cond ((eq skk-emacs-type 'xemacs) (frame-property (selected-frame) 'cursor-color)) (t (cdr (assq 'cursor-color (frame-parameters (selected-frame)))))) (skk-delete-implies-kakutei . t) (skk-delete-okuri-when-quit) (skk-downcase-alist) (skk-echo . t) (skk-egg-like-newline) (skk-gadget-load-hook) (skk-henkan-face quote highlight) (skk-henkan-okuri-strictly) (skk-henkan-overlay-priority . 600) (skk-henkan-show-candidates-keys quote (97 115 100 102 106 107 108)) (skk-henkan-strict-okuri-precedence) (skk-hiragana-mode-string . " ’¤«’¤Ê") (skk-init-file . "") (skk-input-by-code-menu-keys1 quote (97 115 100 102 103 104 113 119 101 114 116 121)) (skk-input-by-code-menu-keys2 quote (97 115 100 102 103 104 106 107 108 113 119 101 114 116 121 117)) (skk-japanese-message-and-error) (skk-cursor-jisx0208-latin-color . "gold") (skk-jisx0208-latin-mode-string . " ’Á´’±Ñ") (skk-jisx0208-latin-vector . skk-default-jisx0208-latin-vector) (skk-jisyo . "~/skk-tut-jisyo") (skk-jisyo-save-count) (skk-update-jisyo-count . 0) (skk-kakutei-early . t) (skk-kakutei-key . "\n") (skk-kana-input-search-function function (lambda nil (save-match-data (when (and (string-match "^h\\([bcdfghjklmnpqrstvwxz]\\)$" skk-prefix) (member (char-to-string (preceding-char)) '("’¤ª" "’¥ª"))) (cons '("’¥ª" . "’¤ª") (match-string 1 skk-prefix)))))) (skk-katakana-mode-string . " ’¥«’¥Ê") (skk-kcode-load-hook) (skk-keep-record) (skk-kuten-touten-alist quote ((jp "’¡£" . "’¡¢"))) (skk-kutouten-type quote jp) (skk-cursor-latin-color . "ivory4") (skk-latin-mode-string . " SKK") (skk-load-hook) (skk-mode-hook) (skk-next-completion-key . ".") (skk-number-style . 1) (skk-okuri-char-alist) (skk-previous-completion-key . ",") (skk-process-okuri-early) (skk-public-jisyo-has-entry-p-function quote skk-public-jisyo-has-entry-p-original) (skk-rom-kana-base-rule-list quote (("a" nil ("’¥¢" . "’¤¢")) ("bb" "b" ("’¥Ã" . "’¤Ã")) ("ba" nil ("’¥Ð" . "’¤Ð")) ("be" nil ("’¥Ù" . "’¤Ù")) ("bi" nil ("’¥Ó" . "’¤Ó")) ("bo" nil ("’¥Ü" . "’¤Ü")) ("bu" nil ("’¥Ö" . "’¤Ö")) ("bya" nil ("’¥Ó’¥ã" . "’¤Ó’¤ã")) ("bye" nil ("’¥Ó’¥§" . "’¤Ó’¤§")) ("byi" nil ("’¥Ó’¥£" . "’¤Ó’¤£")) ("byo" nil ("’¥Ó’¥ç" . "’¤Ó’¤ç")) ("byu" nil ("’¥Ó’¥å" . "’¤Ó’¤å")) ("cc" "c" ("’¥Ã" . "’¤Ã")) ("cha" nil ("’¥Á’¥ã" . "’¤Á’¤ã")) ("che" nil ("’¥Á’¥§" . "’¤Á’¤§")) ("chi" nil ("’¥Á" . "’¤Á")) ("cho" nil ("’¥Á’¥ç" . "’¤Á’¤ç")) ("chu" nil ("’¥Á’¥å" . "’¤Á’¤å")) ("cya" nil ("’¥Á’¥ã" . "’¤Á’¤ã")) ("cye" nil ("’¥Á’¥§" . "’¤Á’¤§")) ("cyi" nil ("’¥Á’¥£" . "’¤Á’¤£")) ("cyo" nil ("’¥Á’¥ç" . "’¤Á’¤ç")) ("cyu" nil ("’¥Á’¥å" . "’¤Á’¤å")) ("dd" "d" ("’¥Ã" . "’¤Ã")) ("da" nil ("’¥À" . "’¤À")) ("de" nil ("’¥Ç" . "’¤Ç")) ("dha" nil ("’¥Ç’¥ã" . "’¤Ç’¤ã")) ("dhe" nil ("’¥Ç’¥§" . "’¤Ç’¤§")) ("dhi" nil ("’¥Ç’¥£" . "’¤Ç’¤£")) ("dho" nil ("’¥Ç’¥ç" . "’¤Ç’¤ç")) ("dhu" nil ("’¥Ç’¥å" . "’¤Ç’¤å")) ("di" nil ("’¥Â" . "’¤Â")) ("do" nil ("’¥É" . "’¤É")) ("du" nil ("’¥Å" . "’¤Å")) ("dya" nil ("’¥Â’¥ã" . "’¤Â’¤ã")) ("dye" nil ("’¥Â’¥§" . "’¤Â’¤§")) ("dyi" nil ("’¥Â’¥£" . "’¤Â’¤£")) ("dyo" nil ("’¥Â’¥ç" . "’¤Â’¤ç")) ("dyu" nil ("’¥Â’¥å" . "’¤Â’¤å")) ("e" nil ("’¥¨" . "’¤¨")) ("ff" "f" ("’¥Ã" . "’¤Ã")) ("fa" nil ("’¥Õ’¥¡" . "’¤Õ’¤¡")) ("fe" nil ("’¥Õ’¥§" . "’¤Õ’¤§")) ("fi" nil ("’¥Õ’¥£" . "’¤Õ’¤£")) ("fo" nil ("’¥Õ’¥©" . "’¤Õ’¤©")) ("fu" nil ("’¥Õ" . "’¤Õ")) ("fya" nil ("’¥Õ’¥ã" . "’¤Õ’¤ã")) ("fye" nil ("’¥Õ’¥§" . "’¤Õ’¤§")) ("fyi" nil ("’¥Õ’¥£" . "’¤Õ’¤£")) ("fyo" nil ("’¥Õ’¥ç" . "’¤Õ’¤ç")) ("fyu" nil ("’¥Õ’¥å" . "’¤Õ’¤å")) ("gg" "g" ("’¥Ã" . "’¤Ã")) ("ga" nil ("’¥¬" . "’¤¬")) ("ge" nil ("’¥²" . "’¤²")) ("gi" nil ("’¥®" . "’¤®")) ("go" nil ("’¥´" . "’¤´")) ("gu" nil ("’¥°" . "’¤°")) ("gya" nil ("’¥®’¥ã" . "’¤®’¤ã")) ("gye" nil ("’¥®’¥§" . "’¤®’¤§")) ("gyi" nil ("’¥®’¥£" . "’¤®’¤£")) ("gyo" nil ("’¥®’¥ç" . "’¤®’¤ç")) ("gyu" nil ("’¥®’¥å" . "’¤®’¤å")) ("ha" nil ("’¥Ï" . "’¤Ï")) ("he" nil ("’¥Ø" . "’¤Ø")) ("hi" nil ("’¥Ò" . "’¤Ò")) ("ho" nil ("’¥Û" . "’¤Û")) ("hu" nil ("’¥Õ" . "’¤Õ")) ("hya" nil ("’¥Ò’¥ã" . "’¤Ò’¤ã")) ("hye" nil ("’¥Ò’¥§" . "’¤Ò’¤§")) ("hyi" nil ("’¥Ò’¥£" . "’¤Ò’¤£")) ("hyo" nil ("’¥Ò’¥ç" . "’¤Ò’¤ç")) ("hyu" nil ("’¥Ò’¥å" . "’¤Ò’¤å")) ("i" nil ("’¥¤" . "’¤¤")) ("jj" "j" ("’¥Ã" . "’¤Ã")) ("ja" nil ("’¥¸’¥ã" . "’¤¸’¤ã")) ("je" nil ("’¥¸’¥§" . "’¤¸’¤§")) ("ji" nil ("’¥¸" . "’¤¸")) ("jo" nil ("’¥¸’¥ç" . "’¤¸’¤ç")) ("ju" nil ("’¥¸’¥å" . "’¤¸’¤å")) ("jya" nil ("’¥¸’¥ã" . "’¤¸’¤ã")) ("jye" nil ("’¥¸’¥§" . "’¤¸’¤§")) ("jyi" nil ("’¥¸’¥£" . "’¤¸’¤£")) ("jyo" nil ("’¥¸’¥ç" . "’¤¸’¤ç")) ("jyu" nil ("’¥¸’¥å" . "’¤¸’¤å")) ("kk" "k" ("’¥Ã" . "’¤Ã")) ("ka" nil ("’¥«" . "’¤«")) ("ke" nil ("’¥±" . "’¤±")) ("ki" nil ("’¥­" . "’¤­")) ("ko" nil ("’¥³" . "’¤³")) ("ku" nil ("’¥¯" . "’¤¯")) ("kya" nil ("’¥­’¥ã" . "’¤­’¤ã")) ("kye" nil ("’¥­’¥§" . "’¤­’¤§")) ("kyi" nil ("’¥­’¥£" . "’¤­’¤£")) ("kyo" nil ("’¥­’¥ç" . "’¤­’¤ç")) ("kyu" nil ("’¥­’¥å" . "’¤­’¤å")) ("mm" "c" ("’¥Ã" . "’¤Ã")) ("ma" nil ("’¥Þ" . "’¤Þ")) ("me" nil ("’¥á" . "’¤á")) ("mi" nil ("’¥ß" . "’¤ß")) ("mo" nil ("’¥â" . "’¤â")) ("mu" nil ("’¥à" . "’¤à")) ("mya" nil ("’¥ß’¥ã" . "’¤ß’¤ã")) ("mye" nil ("’¥ß’¥§" . "’¤ß’¤§")) ("myi" nil ("’¥ß’¥£" . "’¤ß’¤£")) ("myo" nil ("’¥ß’¥ç" . "’¤ß’¤ç")) ("myu" nil ("’¥ß’¥å" . "’¤ß’¤å")) ("n" nil ("’¥ó" . "’¤ó")) ("n'" nil ("’¥ó" . "’¤ó")) ("na" nil ("’¥Ê" . "’¤Ê")) ("ne" nil ("’¥Í" . "’¤Í")) ("ni" nil ("’¥Ë" . "’¤Ë")) ("nn" nil ("’¥ó" . "’¤ó")) ("no" nil ("’¥Î" . "’¤Î")) ("nu" nil ("’¥Ì" . "’¤Ì")) ("nya" nil ("’¥Ë’¥ã" . "’¤Ë’¤ã")) ("nye" nil ("’¥Ë’¥§" . "’¤Ë’¤§")) ("nyi" nil ("’¥Ë’¥£" . "’¤Ë’¤£")) ("nyo" nil ("’¥Ë’¥ç" . "’¤Ë’¤ç")) ("nyu" nil ("’¥Ë’¥å" . "’¤Ë’¤å")) ("o" nil ("’¥ª" . "’¤ª")) ("pp" "p" ("’¥Ã" . "’¤Ã")) ("pa" nil ("’¥Ñ" . "’¤Ñ")) ("pe" nil ("’¥Ú" . "’¤Ú")) ("pi" nil ("’¥Ô" . "’¤Ô")) ("po" nil ("’¥Ý" . "’¤Ý")) ("pu" nil ("’¥×" . "’¤×")) ("pya" nil ("’¥Ô’¥ã" . "’¤Ô’¤ã")) ("pye" nil ("’¥Ô’¥§" . "’¤Ô’¤§")) ("pyi" nil ("’¥Ô’¥£" . "’¤Ô’¤£")) ("pyo" nil ("’¥Ô’¥ç" . "’¤Ô’¤ç")) ("pyu" nil ("’¥Ô’¥å" . "’¤Ô’¤å")) ("rr" "r" ("’¥Ã" . "’¤Ã")) ("ra" nil ("’¥é" . "’¤é")) ("re" nil ("’¥ì" . "’¤ì")) ("ri" nil ("’¥ê" . "’¤ê")) ("ro" nil ("’¥í" . "’¤í")) ("ru" nil ("’¥ë" . "’¤ë")) ("rya" nil ("’¥ê’¥ã" . "’¤ê’¤ã")) ("rye" nil ("’¥ê’¥§" . "’¤ê’¤§")) ("ryi" nil ("’¥ê’¥£" . "’¤ê’¤£")) ("ryo" nil ("’¥ê’¥ç" . "’¤ê’¤ç")) ("ryu" nil ("’¥ê’¥å" . "’¤ê’¤å")) ("ss" "s" ("’¥Ã" . "’¤Ã")) ("sa" nil ("’¥µ" . "’¤µ")) ("se" nil ("’¥»" . "’¤»")) ("sha" nil ("’¥·’¥ã" . "’¤·’¤ã")) ("she" nil ("’¥·’¥§" . "’¤·’¤§")) ("shi" nil ("’¥·" . "’¤·")) ("sho" nil ("’¥·’¥ç" . "’¤·’¤ç")) ("shu" nil ("’¥·’¥å" . "’¤·’¤å")) ("si" nil ("’¥·" . "’¤·")) ("so" nil ("’¥½" . "’¤½")) ("su" nil ("’¥¹" . "’¤¹")) ("sya" nil ("’¥·’¥ã" . "’¤·’¤ã")) ("sye" nil ("’¥·’¥§" . "’¤·’¤§")) ("syi" nil ("’¥·’¥£" . "’¤·’¤£")) ("syo" nil ("’¥·’¥ç" . "’¤·’¤ç")) ("syu" nil ("’¥·’¥å" . "’¤·’¤å")) ("tt" "t" ("’¥Ã" . "’¤Ã")) ("ta" nil ("’¥¿" . "’¤¿")) ("te" nil ("’¥Æ" . "’¤Æ")) ("tha" nil ("’¥Æ’¥¡" . "’¤Æ’¤¡")) ("the" nil ("’¥Æ’¥§" . "’¤Æ’¤§")) ("thi" nil ("’¥Æ’¥£" . "’¤Æ’¤£")) ("tho" nil ("’¥Æ’¥ç" . "’¤Æ’¤ç")) ("thu" nil ("’¥Æ’¥å" . "’¤Æ’¤å")) ("ti" nil ("’¥Á" . "’¤Á")) ("to" nil ("’¥È" . "’¤È")) ("tsu" nil ("’¥Ä" . "’¤Ä")) ("tu" nil ("’¥Ä" . "’¤Ä")) ("tya" nil ("’¥Á’¥ã" . "’¤Á’¤ã")) ("tye" nil ("’¥Á’¥§" . "’¤Á’¤§")) ("tyi" nil ("’¥Á’¥£" . "’¤Á’¤£")) ("tyo" nil ("’¥Á’¥ç" . "’¤Á’¤ç")) ("tyu" nil ("’¥Á’¥å" . "’¤Á’¤å")) ("u" nil ("’¥¦" . "’¤¦")) ("vv" "v" ("’¥Ã" . "’¤Ã")) ("va" nil ("’¥ô’¥¡" . "’¤¦’¡«’¤¡")) ("ve" nil ("’¥ô’¥§" . "’¤¦’¡«’¤§")) ("vi" nil ("’¥ô’¥£" . "’¤¦’¡«’¤£")) ("vo" nil ("’¥ô’¥©" . "’¤¦’¡«’¤©")) ("vu" nil ("’¥ô" . "’¤¦’¡«")) ("ww" "w" ("’¥Ã" . "’¤Ã")) ("wa" nil ("’¥ï" . "’¤ï")) ("we" nil ("’¥¦’¥§" . "’¤¦’¤§")) ("wi" nil ("’¥¦’¥£" . "’¤¦’¤£")) ("wo" nil ("’¥ò" . "’¤ò")) ("wu" nil ("’¥¦" . "’¤¦")) ("xx" "x" ("’¥Ã" . "’¤Ã")) ("xa" nil ("’¥¡" . "’¤¡")) ("xe" nil ("’¥§" . "’¤§")) ("xi" nil ("’¥£" . "’¤£")) ("xka" nil ("’¥õ" . "’¤«")) ("xke" nil ("’¥ö" . "’¤±")) ("xo" nil ("’¥©" . "’¤©")) ("xtsu" nil ("’¥Ã" . "’¤Ã")) ("xtu" nil ("’¥Ã" . "’¤Ã")) ("xu" nil ("’¥¥" . "’¤¥")) ("xwa" nil ("’¥î" . "’¤î")) ("xwe" nil ("’¥ñ" . "’¤ñ")) ("xwi" nil ("’¥ð" . "’¤ð")) ("xya" nil ("’¥ã" . "’¤ã")) ("xyo" nil ("’¥ç" . "’¤ç")) ("xyu" nil ("’¥å" . "’¤å")) ("yy" "y" ("’¥Ã" . "’¤Ã")) ("ya" nil ("’¥ä" . "’¤ä")) ("ye" nil ("’¥¤’¥§" . "’¤¤’¤§")) ("yo" nil ("’¥è" . "’¤è")) ("yu" nil ("’¥æ" . "’¤æ")) ("zz" "z" ("’¥Ã" . "’¤Ã")) ("z," nil "’¡Å") ("z-" nil "’¡Á") ("z." nil "’¡Ä") ("z/" nil "’¡¦") ("z[" nil "’¡Ø") ("z]" nil "’¡Ù") ("za" nil ("’¥¶" . "’¤¶")) ("ze" nil ("’¥¼" . "’¤¼")) ("zh" nil "’¢«") ("zi" nil ("’¥¸" . "’¤¸")) ("zj" nil "’¢­") ("zk" nil "’¢¬") ("zl" nil "’¢ª") ("zo" nil ("’¥¾" . "’¤¾")) ("zu" nil ("’¥º" . "’¤º")) ("zya" nil ("’¥¸’¥ã" . "’¤¸’¤ã")) ("zye" nil ("’¥¸’¥§" . "’¤¸’¤§")) ("zyi" nil ("’¥¸’¥£" . "’¤¸’¤£")) ("zyo" nil ("’¥¸’¥ç" . "’¤¸’¤ç")) ("zyu" nil ("’¥¸’¥å" . "’¤¸’¤å")) ("." nil skk-current-kuten) ("," nil skk-current-touten) ("-" nil "’¡¼") (":" nil "’¡§") (";" nil "’¡¨") ("?" nil "’¡©") ("[" nil "’¡Ö") ("]" nil "’¡×") ("l" nil skk-latin-mode) ("q" nil skk-toggle-kana) ("L" nil skk-jisx0208-latin-mode) ("Q" nil skk-set-henkan-point-subr) ("X" nil skk-purge-from-jisyo) ("/" nil skk-abbrev-mode) ("$" nil skk-display-code-for-char-at-point) ("\n" nil skk-kakutei) ("@" nil skk-today) ("\\" nil skk-input-by-code-or-menu))) (skk-rom-kana-rule-list quote (("hh" "h" ("’¥Ã" . "’¤Ã")))) (skk-save-jisyo-function quote skk-save-jisyo-original) (skk-search-excluding-word-pattern-function) (skk-search-prog-list quote ((skk-search-jisyo-file skktut-tut-jisyo 0 t))) (skk-set-henkan-point-key quote (65 66 67 68 69 70 71 72 73 74 75 77 78 79 80 82 83 84 85 86 87 89 90)) (skk-share-private-jisyo) (skk-special-midashi-char-list quote (62 60 63)) (skk-start-henkan-key . " ") (skk-try-completion-key . " ") (skk-update-jisyo-function quote skktut-update-jisyo) (skk-use-color-cursor and window-system (fboundp 'x-display-color-p) (x-display-color-p)) (skk-use-face . window-system) (skk-use-look) (skk-use-numeric-conversion . t) (skk-use-rdbms) (skk-use-relation) (skk-use-viper) (skk-kcode-charset if (featurep 'jisx0213) 'japanese-jisx0208 skk-kcode-charset) (skk-dcomp-activate) (skk-insert-new-word-function) (skk-mode-invoked . t) (skk-rule-tree if (and skk-use-kana-keyboard (memq skk-kanagaki-keyboard-type '(oasys nicola-jis nicola-us nicola-dvorak omelet-jis omelet-us omelet-dvorak)) (eq skk-kanagaki-state 'kana) skktut-nicola-tut-file) skk-kanagaki-rule-tree (skk-compile-rule-list skk-rom-kana-base-rule-list skk-rom-kana-rule-list))) (#$ . 1677)) #@63 NICOLA-DDSKK ’¤Î’¤¿’¤á’¤Î’¥Á’¥å’¡¼’¥È’¥ê’¥¢’¥ë’¥Õ’¥¡’¥¤’¥ë’¡£ (defvar skktut-nicola-tut-file (byte-code "\205\f\301\302\301\303!!\"\207" [skk-tut-file expand-file-name "NICOLA-SKK.tut" file-name-directory] 5) (#$ . 12643)) #@85 Non-nil ’¤Ç’¤¢’¤ì’¤Ð’¡¢’¥Á’¥å’¡¼’¥È’¥ê’¥¢’¥ë’¤¬’Æü’ËÜ’¸ì’¤Ç’¤¢’¤ë’¤³’¤È’¤ò’¼¨’¤¹’¡£ (defvar skktut-japanese-tut nil (#$ . 12875)) #@23 ’Àµ’²ò’¤Î’ʸ’»ú’Îó’¡£ (defvar skktut-right-answer nil (#$ . 13011)) #@50 ’¥Á’¥å’¡¼’¥È’¥ê’¥¢’¥ë’¤Î’¸½’ºß’¤Î’Ìä’Âê’ÈÖ’¹æ’¡£ (defvar skktut-question-count 1 (#$ . 13085)) #@53 ’¥Á’¥å’¡¼’¥È’¥ê’¥¢’¥ë’¤Î’½ª’λ’¤ò’¼¨’¤¹’¥Õ’¥é’¥°’¡£ (defvar skktut-tutorial-end nil (#$ . 13186)) (byte-code "\301B\306\301!\204\f\307\302B\306\302!\204\310\303B\306\303!\204$\311\304B\306\304!\2040\312\305B\306\305!\204<\313\314B\306\314!\204I\313\f\315B\306\315!\204V\313 \313\207" [current-load-list skktut-working-buffer skktut-question-buffer skktut-answer-buffer skktut-jisyo-buffer skktut-original-window-configuration boundp " *skk-tutorial*" "*’Ìä*" "*’Åú*" " *skk-tut-jisyo*" nil skktut-working-window-configuration skktut-original-local-map] 2) #@96 Non-nil ’¤Ê’¤é’¡¢tutorial ’¤ò’µ¯’Æ°’»þ’¤Ë SKK ’¤¬’´û’¤Ë’µ¯’Æ°’¤µ’¤ì’¤Æ’¤¤’¤¿’¤³’¤È’¤ò’¼¨’¤¹’¡£ (defvar skktut-skk-mode-on nil (#$ . 13777)) #@61 SKK ’¥Á’¥å’¡¼’¥È’¥ê’¥¢’¥ë ASCII ’¥â’¡¼’¥É’¥­’¡¼’¥Þ’¥Ã’¥×’¡£ (defvar skktut-latin-mode-map nil (#$ . 13923)) (byte-code "\204\302 \303 \304\305#\210 )\302\207" [skktut-latin-mode-map map make-sparse-keymap define-key "\n" skk-kakutei] 4) #@67 SKK ’¥Á’¥å’¡¼’¥È’¥ê’¥¢’¥ë’¤«’¤Ê/’¥«’¥Ê’¥â’¡¼’¥É’¥­’¡¼’¥Þ’¥Ã’¥×’¡£ (defvar skktut-j-mode-map nil (#$ . 14171)) (byte-code "\204!\303 \304 \305W\203\306\n\307 !\310#\210 T\211\202\n\n*\303\207" [skktut-j-mode-map c map make-sparse-keymap 32 127 define-key char-to-string skk-insert] 5) #@69 SKK ’¥Á’¥å’¡¼’¥È’¥ê’¥¢’¥ë’Á´’³Ñ’±Ñ’¿ô’»ú’¥â’¡¼’¥É’¥­’¡¼’¥Þ’¥Ã’¥×’¡£ (defvar skktut-jisx0208-latin-mode-map nil (#$ . 14470)) (byte-code "\204-\304 \305 \306W\203$ H\203\307\n\310 !\311#\210 T\211\202\n\307\n\312\313#\210\n*\304\207" [skktut-jisx0208-latin-mode-map i map skk-jisx0208-latin-vector make-sparse-keymap 0 128 define-key char-to-string skk-jisx0208-latin-insert "\n" skk-kakutei] 5) #@62 SKK ’¥Á’¥å’¡¼’¥È’¥ê’¥¢’¥ë Abbrev ’¥â’¡¼’¥É’¥­’¡¼’¥Þ’¥Ã’¥×’¡£ (defvar skktut-abbrev-mode-map nil (#$ . 14882)) (byte-code "\204.\302 \303 \304\305#\210\303 \306\307#\210\303 \310\311#\210\303 \312\313#\210\303 \314\315#\210\303 \316\317#\210 )\302\207" [skktut-abbrev-mode-map map make-sparse-keymap define-key "," skk-abbrev-comma "." skk-abbrev-period "" skk-toggle-characters "\n" skk-kakutei " " skk-start-henkan " " skk-try-completion] 4) (defalias 'skktut-message '(macro . #[(japanese english &rest arg) "\303\304\305\306 FD\n\"\207" [japanese english arg append message if skktut-japanese-tut] 6])) (defalias 'skktut-error '(macro . #[(japanese english &rest arg) "\303\304\305\306 FD\n\"\207" [japanese english arg append error if skktut-japanese-tut] 6])) (defalias 'skktut-yes-or-no-p '(macro . #[(japanese english) "\302\303\304 FD\207" [japanese english yes-or-no-p if skktut-japanese-tut] 5])) (byte-code "\300\301\302\303\304$\210\300\305\306\303\304$\210\300\307\310\311\304$\210\300\312\313\311\304$\210\300\314\315\311\304$\210\300\316\317\311\304$\210\300\320\321\303\304$\210\300\322\323\311\304$\210\300\324\325\303\304$\207" [ad-add-advice skk-create-file (skktut-ad nil nil (advice lambda nil)) around nil skk-save-jisyo-original (skktut-ad nil nil (advice lambda nil)) skk-abbrev-mode (skktut-ad nil nil (advice lambda nil "SKK ’¥Á’¥å’¡¼’¥È’¥ê’¥¢’¥ë’ÍÑ’¥¢’¥É’¥Ð’¥¤’¥¹’ÉÕ’¡£" (when (> 12 skktut-question-count) (skktut-error "’¤³’¤Î’¥­’¡¼’¤Ï’¤Þ’¤À’»È’¤¨’¤Þ’¤»’¤ó" "Cannot use this key yet")))) before skk-insert (skktut-ad nil nil (advice lambda nil "SKK ’¥Á’¥å’¡¼’¥È’¥ê’¥¢’¥ë’ÍÑ’¥¢’¥É’¥Ð’¥¤’¥¹’ÉÕ’¡£" (when (and (memq last-command-char skk-set-henkan-point-key) (> 12 skktut-question-count)) (skktut-error "’¤«’¤Ê/’¥«’¥Ê’¥â’¡¼’¥É’¤Ç’¤Ï’¡¢’±Ñ’Âç’ʸ’»ú’¤Ï’¤Þ’¤À’»È’¤¨’¤Þ’¤»’¤ó" "Cannot use upper case character in kana/katakana mode")))) skk-kakutei (skktut-ad nil nil (advice lambda nil "SKK ’¥Á’¥å’¡¼’¥È’¥ê’¥¢’¥ë’ÍÑ’¥¢’¥É’¥Ð’¥¤’¥¹’ÉÕ’¡£" (when (and (interactive-p) (= skktut-question-count 1)) (skktut-error "’¤³’¤Î’¥­’¡¼’¤Ï’¤Þ’¤À’»È’¤¨’¤Þ’¤»’¤ó" "Cannot use this key yet")))) skk-mode (skktut-ad nil nil (advice lambda nil "SKK ’¥Á’¥å’¡¼’¥È’¥ê’¥¢’¥ë’ÍÑ’¥¢’¥É’¥Ð’¥¤’¥¹’ÉÕ’¡£" (when (and (interactive-p) (= skktut-question-count 1)) (skktut-error "’¤³’¤Î’¥­’¡¼’¤Ï’¤Þ’¤À’»È’¤¨’¤Þ’¤»’¤ó" "Cannot use this key yet")))) kill-buffer (skktut-ad nil nil (advice lambda nil "SKK ’¥Á’¥å’¡¼’¥È’¥ê’¥¢’¥ë’ÍÑ’¥¢’¥É’¥Ð’¥¤’¥¹’ÉÕ’¡£" (interactive "bKill buffer: ") (cond ((not (and (interactive-p) (member (ad-get-arg 0) (list skktut-working-buffer skktut-question-buffer skktut-answer-buffer skktut-jisyo-buffer)))) ad-do-it) ((skktut-yes-or-no-p "’¥Á’¥å’¡¼’¥È’¥ê’¥¢’¥ë’¤ò’¤ä’¤á’¤Þ’¤¹’¤«? " "Quit tutorial? ") (skk-tutorial-quit 'now))))) other-frame (skktut-ad nil nil (advice lambda nil "SKK ’¥Á’¥å’¡¼’¥È’¥ê’¥¢’¥ë’ÍÑ’¥¢’¥É’¥Ð’¥¤’¥¹’ÉÕ’¡£" (skktut-before-move-to-other-frame))) save-buffers-kill-emacs (skktut-ad nil nil (advice lambda nil "SKK ’¥Á’¥å’¡¼’¥È’¥ê’¥¢’¥ë’ÍÑ’¥¢’¥É’¥Ð’¥¤’¥¹’ÉÕ’¡£" (when (skktut-yes-or-no-p "Tutorial ’¤â Emacs ’¤â’½ª’λ’¤·’¤Þ’¤¹’¡£’¤è’¤í’¤·’¤¤’¤Ç’¤¹’¤Í’¡© " "Quit tutorial and kill emacs? ") (skk-tutorial-quit 'now) ad-do-it)))] 5) #@150 SKK ’¥Á’¥å’¡¼’¥È’¥ê’¥¢’¥ë’¤ò’µ¯’Æ°’¤¹’¤ë’¡£ \[universal-argument] \[skk-tutorial] ’¤¹’¤ë’¤È’¡¢’¥Á’¥å’¡¼’¥È’¥ê’¥¢’¥ë’¥Õ’¥¡’¥¤’¥ë’¤Î’Áª’Âò’¤¬’²Ä’ǽ’¡£ (defalias 'skk-tutorial #[(&optional query-language) "\204\f\306\307!\210\306\310!\210 \203%\n\311>\203% \312=\203%\f\203%\313 \210\f)\203S\314\315*\"+\316+*\"A,\317\320,!!\204I\321\322,\"\210,\323\324+\"\210*\325-\326\327\330\"\204b\321\331\332\"\210\333 \210\334 \210\335 \210\336 \210\337 \210\340 \210\341 \210\342\343\344\"\210\342\345\346\"\210\347 \210)\350 \207" [skk-mode-invoked skk-use-kana-keyboard skk-kanagaki-keyboard-type skk-kanagaki-state skktut-nicola-tut-file skk-tut-file skk-mode 1 -1 (oasys nicola-jis nicola-us nicola-dvorak omelet-jis omelet-us omelet-dvorak) kana skk-nicola-setup-tutorial completing-read "Language: " assoc file-exists-p expand-file-name error "No file found as %s" message "Language for the tutorial is %s until you exit Emacs" t product-version>= skk-version (11 3) "%s" "Daredevil SKK or later is required" skktut-pre-setup-tutorial skktut-setup-jisyo-buffer skktut-setup-working-buffer skktut-setup-question-buffer skktut-setup-answer-buffer skktut-enable-advice skktut-enable-tutmap add-hook before-make-frame-hook skktut-before-move-to-other-frame minibuffer-setup-hook skktut-localize-and-init-variables skktut-make-windows skktut-setup-delete-backward-char query-language skk-tut-file-alist lang file inhibit-quit] 3 (#$ . 18066) "P"]) #@181 SKK ’¥Á’¥å’¡¼’¥È’¥ê’¥¢’¥ë’¤ò’ºÇ’½é’¤«’¤é’¤ä’¤ê’ľ’¤¹’¡£ \[universal-argument] \[skk-tutorial-again] ’¤¹’¤ë’¤È’¡¢yes-or-no-p ’¤Ç’¿Ò’¤Í’¤é’¤ì’¤ë’¤³’¤È’¤Ê’¤¯’ľ’¤Á’¤Ë’¤ä’¤ê ’ľ’¤¹’¡£ (defalias 'skk-tutorial-again #[(&optional now) "\204\302 \203 \303\202\304!\205\305\300!\210\306 \207" [now skktut-japanese-tut yes-or-no-p "’ºÇ’½é’¤«’¤é Tutorial ’¤ò’¤ä’¤ê’ľ’¤·’¤Þ’¤¹’¡£’¤è’¤í’¤·’¤¤’¤Ç’¤¹’¤Í’¡© " "Quit tutorial and start from question 1 again? " skk-tutorial-quit skk-tutorial] 2 (#$ . 19532) "P"]) #@162 SKK ’¥Á’¥å’¡¼’¥È’¥ê’¥¢’¥ë’¤ò’¤ä’¤á’¤ë’¡£ \[universal-argument] \[skk-tutorial-quit] ’¤¹’¤ë’¤È’¡¢yes-or-no-p ’¤Ç’¿Ò’¤Í’¤é’¤ì’¤ë’¤³’¤È’¤Ê’¤¯’ľ’¤Á’¤Ë’¤ä’¤á ’¤ë’¡£ (defalias 'skk-tutorial-quit #[(&optional now) "\204\306 \203 \307\202\310!\205\\\311\312 \210\313\314\313\313\315\316\317\"\210\315\320\321\"\210\322 \210\323 \210rq\210\324\313!\210\325!\210)\325!\210\325!\210\325!\210\326!\210?\205[\327\330!)\207" [now skktut-japanese-tut inhibit-quit skktut-question-count skktut-right-answer skktut-tutorial-end yes-or-no-p "’ËÜ’Åö’¤Ë’¥Á’¥å’¡¼’¥È’¥ê’¥¢’¥ë’¤ò’¤ä’¤á’¤Þ’¤¹’¤«? " "Really quit tutorial? " t delete-other-windows nil 1 remove-hook minibuffer-setup-hook skktut-localize-and-init-variables before-make-frame-hook skktut-before-move-to-other-frame skktut-disable-tutmap skktut-disable-advice set-buffer-modified-p kill-buffer set-window-configuration skk-mode -1 skktut-jisyo-buffer skktut-working-buffer skktut-answer-buffer skktut-question-buffer skktut-original-window-configuration skktut-skk-mode-on] 3 (#$ . 20045) "P"]) (defalias 'skktut-next-question #[nil "\306!\210\307 \310\216\311\212eb\210\311\210\312\311x\210\313e`\")\314\315\n\"\203)\n\316\225\311O \n\230\204@\317\f\2038\320\2029\321!\210\322 \202W T\323 !\210 TY\203U\324\325!\202W\326 +\207" [skktut-working-window-configuration save-match-data-internal user-ans skktut-right-answer skktut-japanese-tut skktut-question-count set-window-configuration match-data ((set-match-data save-match-data-internal)) nil " " buffer-substring-no-properties string-match "^>* *" 0 message "’Åú’¤¬’°ã’¤¤’¤Þ’¤¹’¡£’¤â’¤¦’°ì’ÅÙ’¤ä’¤Ã’¤Æ’¤ß’¤Æ’²¼’¤µ’¤¤" "Wrong. Try again" ding skktut-get-question-page skk-tutorial-quit now skktut-next-answer-buffer skktut-question-numbers] 3 nil nil]) (defalias 'skktut-skip-question #[(arg) "\306!\210\307 \210 \n\\\310 V\203\310\202/ V\203! \202/ \311Y\203/\f\204/\312\310!\210\313 !\210 \203;\314\315!\207\316 \207" [skktut-working-window-configuration skktut-question-count arg skktut-question-numbers skk-j-mode skktut-tutorial-end set-window-configuration skktut-erase-buffer 1 3 skk-mode skktut-get-question-page skk-tutorial-quit now skktut-next-answer-buffer] 2 nil "p"]) (defalias 'skktut-make-windows #[nil "\304 \210\305 \210\306\307 !\310W\204\311\312Z!\210)\313\314!\210\315 !\210\316\n!\210\317 \211\207" [height skktut-answer-buffer skktut-question-buffer skktut-working-window-configuration delete-other-windows split-window-vertically window-height selected-window 19 enlarge-window 20 other-window 1 switch-to-buffer display-buffer current-window-configuration] 3]) (defalias 'skktut-enable-advice #[nil "\304\211\304\211\203# @\305 @ A\306#\210\307 @!\210 A\211\204\f,\304\207" [skktut-adviced-alist e alist #1=#:--dolist-temp--36130 nil ad-enable-advice skktut-ad ad-activate] 6]) (defalias 'skktut-disable-advice #[nil "\304\211\304\211\203# @\305 @ A\306#\210\307 @!\210 A\211\204\f,\304\207" [skktut-adviced-alist e alist #1=#:--dolist-temp--36131 nil ad-disable-advice skktut-ad ad-activate] 6]) (defalias 'skktut-enable-tutmap #[nil "\306\307\310\311 B\312\nB\313 B\314\fBF\"\210\315 \232\203 \316\202!\317\320#\210\315 \321\322#\210\315 \323\322#\210\324\325!\205R\310\326\306\327\206Hp\"+\205R\330\310\")\207" [inhibit-quit skktut-latin-mode-map skktut-abbrev-mode-map skktut-j-mode-map skktut-jisx0208-latin-mode-map skk-tut-file t set-modified-alist minor-mode-map-alist skk-latin-mode skk-abbrev-mode skk-j-mode skk-jisx0208-latin-mode define-key "" "x" skk-previous-candidate "\n" skk-insert " " featurep viper nil local-variable-p set-default skktut-nicola-tut-file afterset buffer variable] 7]) (defalias 'skktut-disable-tutmap #[nil "\306\307\310\211\n\203\"\n@\nA \f\236\211\203\311\f\"\202\312\304\313 B\314B\315B\316BF\"\210,\317!\205@\320 \207" [e minor-mode minor-mode-list inhibit-quit minor-mode-map-alist skk-latin-mode-map t (skk-abbrev-mode skk-latin-mode skk-j-mode skk-jisx0208-latin-mode) nil delq set-modified-alist skk-latin-mode skk-abbrev-mode skk-j-mode skk-jisx0208-latin-mode default-value skk-viper-normalize-map skk-abbrev-mode-map skk-j-mode-map skk-jisx0208-latin-mode-map skk-use-viper] 7]) (defalias 'skktut-pre-setup-tutorial #[nil "\304  \305\211\207" [skktut-original-window-configuration skk-mode skktut-skk-mode-on skktut-question-count current-window-configuration 1] 2]) (defalias 'skktut-update-jisyo #[(word &optional purge) "\304\305\306\n \"*\207" [skk-update-jisyo-count skk-share-private-jisyo word purge nil 0 skk-update-jisyo-original] 3]) (defalias 'skktut-setup-jisyo-buffer #[nil "r\304!q\210\305p!\210\306 \210\307\310\n!\311c\210\312 )\207" [skktut-jisyo-buffer case-fold-search skktut-tut-jisyo buffer-file-name get-buffer-create buffer-disable-undo skktut-localize-and-init-variables nil expand-file-name ";; okuri-ari entries.\n’¤Û’¤Ãs /’Íß/\n’¤Ä’¤«t /’»È/\n’¤¿’¤Ãs /’ã/\n’¤·t /’ÃÎ/\n’¤¦’¤´k /’Æ°/\n;; okuri-nasi entries.\nCyrillic /’§¡/’§¢/’§£/’§¤/’§¥/’§¦/’§§/’§¨/’§©/’§ª/’§«/’§¬/’§­/’§®/’§¯/’§°/’§±/’§²/’§³/’§´/’§µ/’§¶/’§·/’§¸/’§¹/’§º/’§»/’§¼/’§½/’§¾/’§¿/’§À/’§Á/\nGreek /’¦¡/’¦¢/’¦£/’¦¤/’¦¥/’¦¦/’¦§/’¦¨/’¦©/’¦ª/’¦«/’¦¬/’¦­/’¦®/’¦¯/’¦°/’¦±/’¦²/’¦³/’¦´/’¦µ/’¦¶/’¦·/’¦¸/\ncyrillic /’§Ñ/’§Ò/’§Ó/’§Ô/’§Õ/’§Ö/’§×/’§Ø/’§Ù/’§Ú/’§Û/’§Ü/’§Ý/’§Þ/’§ß/’§à/’§á/’§â/’§ã/’§ä/’§å/’§æ/’§ç/’§è/’§é/’§ê/’§ë/’§ì/’§í/’§î/’§ï/’§ð/’§ñ/\ngreek /’¦Á/’¦Â/’¦Ã/’¦Ä/’¦Å/’¦Æ/’¦Ç/’¦È/’¦É/’¦Ê/’¦Ë/’¦Ì/’¦Í/’¦Î/’¦Ï/’¦Ð/’¦Ñ/’¦Ò/’¦Ó/’¦Ô/’¦Õ/’¦Ö/’¦×/’¦Ø/\ntutorial /’¥Á’¥å’¡¼’¥È’¥ê’¥¢’¥ë/\n’¤¤’¤Á /’°ì/\n’¤¤’¤Á’¤ª’¤¯ /’°ì’²¯/\n’¤ª’¤ª’¤µ’¤« /’Âç’ºå/\n’¤ª’¤¯ /’²¯/\n’¤«’¤Ê /’²¾’̾/\n’¤«’¤ó’¤¸ /’´Á’»ú/’´´’»ö/’´Æ’»ö/\n’¤¬’¤¯ /’³Ø/\n’¤¬’¤¯’¤·’¤å’¤¦ /’³Ø’½¬/\n’¤­ /’´ð/’µ­/’µ¤/’ÌÚ/’µ¢/\n’¤­’¤´’¤¦ /’µ­’¹æ/’¡¦/’¡«/’¡¬/’¡­/’¡®/’¡¯/’¡±/’¡³/’¡´/’¡µ/’¡¶/’¡·/’¡¸/’¡¹/’¡º/’¡»/’¡½/’¡¾/’¡Â/’¡Ä/’¡Å/’¡È/’¡É/’¡Ì/’¡Í/’¡Ò/’¡Ó/’¡Ô/’¡Õ/’¡Ø/’¡Ù/’¡Ú/’¡Û/’¡Þ/’¡ß/’¡à/’¡â/’¡å/’¡æ/’¡ç/’¡è/’¡é/’¡ê/’¡ë/’¡ì/’¡í/’¡î/’¡ï/’¡ñ/’¡ò/’¡ø/’¡ù/’¡ú/’¡û/’¡ü/’¡ý/’¡þ/’¢¡/’¢¢/’¢£/’¢¤/’¢¥/’¢¦/’¢§/’¢¨/’¢©/’¢ª/’¢«/’¢¬/’¢­/’¢®/\n’¤­’¤ç’¤¦’¤È /’µþ’ÅÔ/\n’¤³’¤¦ /’¸ý/\n’¤³’¤¦’¤Ù /’¿À’¸Í/\n’¤´ /’¸Þ/’¸ß/’¸à/’¸á/’¸â/’¸ã/’¸ä/’¸å/’¸æ/’¸ç/’¸è/’¸é/’¸ê/’¸ë/’¸ì/’¸í/’¸î/’¸ï/\n’¤µ’¤¤ /’ºÙ/’ºÇ/’ºÆ/\n’¤µ’¤¤’¤·’¤ç /’ºÇ’½é/\n’¤µ’¤¤’¤È’¤¦ /’ºØ’Æ£/\n’¤µ’¤È’¤¦ /’º´’Æ£/\n’¤·’¤å’¤¦ /’½¬/’½ª/\n’¤·’¤å’¤¦’¤ê’¤ç’¤¦ /’½ª’λ/\n’¤·’¤ç /’½ñ/\n’¤¸ /’¼­/’»ú/\n’¤¸’¤·’¤ç /’¼­’½ñ/’ÃÏ’½ê/\n’¤¸’¤ó /’¿Í/\n’¤¸’¤ó’¤³’¤¦ /’¿Í’¸ý/\n’¤»’¤ó /’Áª/’Àö/\n’¤»’¤ó’¤¿’¤¯ /’Áª’Âò/’Àö’Âõ/\n’¤½’¤¦ /’Áö/\n’¤À’¤¤ /’Âç/’Âè/’Âå/\n’¤¿’¤¯ /’Âò/’Âõ/\n’¤Æ’¤­ /’Ū/’Ũ/’Å©/’Ŭ/’Ŧ/\n’¤È’¤¦ /’Åì/’ÅÐ/\n’¤È’¤¦’¤Û’¤¯ /’Åì’ËÌ/\n’¤È’¤¦’¤í’¤¯ /’ÅÐ’Ï¿/\n’¤É’¤¦ /’Æ°/\n’¤Ë’¤å’¤¦’¤ê’¤ç’¤¯ /’Æþ’ÎÏ/\n’¤Ò’¤³’¤¦’¤­ /’Èô’¹Ô’µ¡/\n’¤Ø’¤ó’¤«’¤ó /’ÊÑ’´¹/\n’¤Û’¤¯ /’ËÌ/\n’¤ß’¤ç’¤¦ /’̾/\n’¤ß’¤ç’¤¦’¤¸ /’̾’»ú/\n’¤è’¤¦’¤¤ /’ÍÆ’°×/’ÍÑ’°Õ/\n’¤ê’¤ç’¤¦ /’λ/\n’¤í’¤¯ /’Ï¿/\n" skk-setup-jisyo-buffer] 2]) (defalias 'skktut-setup-working-buffer #[nil "\306 \307\216\310\311\n!q\210\312p!\210\313 \210\314 \210\315 !\210\316eb\210\317\320\310\321#\203-\fT\202eb\210\322\323!\317\324\310\321\310$\203U\325\326\224\326\225\"\326\224\326\225|\210\327\330 !@!c\210\2024eb\210\205_\331 +\207" [save-match-data-internal sexp skktut-working-buffer skk-tut-file skktut-question-numbers skktut-japanese-tut match-data ((set-match-data save-match-data-internal)) nil get-buffer-create buffer-disable-undo skktut-localize-and-init-variables skktut-erase-buffer insert-file-contents -1 re-search-forward "^----$" t looking-at ";; SKK Japanese" "^>> \\((.+)\\)$" buffer-substring-no-properties 1 eval read-from-string skktut-colored skk-tut-use-face] 5]) (defalias 'skktut-setup-question-buffer #[nil "r\303!q\210\304p!\210\305 \210\306\307\n!\210\310\311\312\"\210\310\313\314\"\210\310\315\316\"\210\310\317\320\")\207" [skktut-question-buffer buffer-read-only skktut-question-count get-buffer-create buffer-disable-undo skktut-erase-buffer t skktut-get-question-page local-set-key "q" skk-tutorial-quit "t" skk-tutorial-again "n" skktut-next-question "s" skktut-skip-question] 3]) (defalias 'skktut-setup-answer-buffer #[nil "r\301!q\210\302 \210\303\304\305\"\210\303\306\307\"\210\303\310\311\"\210\303\312\313\"\210\314\315!\210\316 )\207" [skktut-answer-buffer get-buffer-create skktut-localize-and-init-variables local-set-key "q" skk-tutorial-quit "t" skk-tutorial-again "n" skktut-next-question "s" skktut-skip-question auto-fill-mode -1 skktut-next-answer-buffer] 3]) (defalias 'skktut-localize-and-init-variables #[nil "\305\211\305\211\203$\f@\211@\306 !\210 \307 A!L\210\fA\211\204\f,\305\207" [skktut-init-variables-alist v alist cell #1=#:--dolist-temp--36132 nil make-local-variable eval] 5]) (defalias 'skktut-erase-buffer #[nil "\302\303\304ed\303#\210\305 *\207" [buffer-read-only inhibit-read-only t nil set-text-properties erase-buffer] 4]) (defalias 'skktut-before-move-to-other-frame #[nil "\301\203 \302\202\n\303!\203\304\305!\207\306\203\307\202\310!\207" [skktut-japanese-tut yes-or-no-p "Tutorial ’¤ò’½ª’λ’¤·’¤Þ’¤¹’¡£’¤è’¤í’¤·’¤¤’¤Ç’¤¹’¤Í’¡© " "Quit tutorial?" skk-tutorial-quit now error "Tutorial ’¤ò’½ª’λ’¤»’¤º’¤Ë’¾’¤Î’¥Õ’¥ì’¡¼’¥à’¤Ë’°Ü’¤ë’¤³’¤È’¤Ï’¤Ç’¤­’¤Þ’¤»’¤ó’¡£" "Quit tutorial or you cannot move to other frame"] 2]) (defalias 'skktut-colored #[nil "\305\306\307\310\307$\203\311\312\224\312\225\313\314$\210\202eb\210\305\315\307\310\307$\203-\311\316\224\316\225\313$\210\202eb\210\305\317\307\310\307$\203E\311\316\224\316\225\313 $\210\2020eb\210\305\320\307\310\307$\203]\311\312\224\312\225\313\n$\210\202H ?\205zeb\210\305\321\307\310\307$\205z\311\316\224\316\225\313\f$\210\202e\207" [skk-tut-section-face skk-tut-do-it-face skk-tut-question-face skktut-japanese-tut skk-tut-hint-face re-search-forward "’¢§\\([^’¡Û ’¤¡-’¤ó’¥¡-’¥ó]+\\)" nil t put-text-property 1 face highlight "^==.+==$" 0 "^!!.+" "^>> \\(.+\\)$" "Hint: .*$"] 5]) (defalias 'skktut-next-answer-buffer #[nil "\306 \307\216\212 q\210db\210\310\311!\210\312u\210\313`\314\\\315 \316\216\317\210`*\")p\317\320\216&\321=\2035\322\2026\323\324B'(q\210\325 \210\326c\210\327e`\330Z'#\210`\331\332\333)*+\334,\203w\335+\336*-.U?\205q\337)P\340\260\202\215\341+\342*-.U?\205\212\343)P\340\260!+c\210/\203\236\344\f`\3450$\210\327\f`'#\210e\314\\b.\207" [save-match-data-internal skktut-question-buffer skk-save-point skktut-right-answer p cbuf match-data ((set-match-data save-match-data-internal)) search-backward "\n>>" 1 buffer-substring-no-properties 3 point-marker ((byte-code "b\210\204\n\301 \302\211\223\207" [skk-save-point make-marker nil] 3)) nil ((set-buffer cbuf)) xemacs end-open rear-nonsticky (t intangible t read-only t) skktut-erase-buffer ">> \n\n" add-text-properties 2 " `\\[skktut-next-question]'" " `\\[skk-tutorial-quit]'" " `\\[skktut-skip-question]'" substitute-command-keys "* ’Åú’¤¬’¤Ç’¤­’¤¿’¤é" "; ’ÅÓ’Ã撤ǒ¤ä’¤á’¤ë’¤Ë’¤Ï" "; ’¥¹’¥­’¥Ã’¥×’¤¹’¤ë’¤Ë’¤Ï" " *" "* For next question" "; to quit " "; to skip this question" put-text-property face skk-emacs-type plist skktut-answer-buffer skip quit next skktut-japanese-tut skktut-question-count skktut-question-numbers skk-tut-use-face skk-tut-key-bind-face] 7]) (defalias 'skktut-get-question-page #[(page) "\212\306 \307\216 q\210\310\211eb\210\311\312\310\313\f$\210\314\315!\2034\316u\210`\310\210\317 \320\216\321 `\310#\210*\322u\210?\205l`\311\323!\210\310\210 `{q\210\324 \210\310\nc\210\325\326\f!\327\326\fZ!\330\260 \331\310!\210\332\333!)-\207" [save-match-data-internal skktut-working-buffer str pos page skk-save-point match-data ((set-match-data save-match-data-internal)) nil search-forward "--\n" t looking-at ";" 3 point-marker ((byte-code "b\210\204\n\301 \302\211\223\207" [skk-save-point make-marker nil] 3)) eval-region 1 "\n>>" skktut-erase-buffer "’£Ó’£Ë’£Ë’¥Á’¥å’¡¼’¥È’¥ê’¥¢’¥ë: ’¡Î’Ìä " number-to-string "’¡Ï ’¡Ê’»Ä’¤ê " "’Ìä’¡Ë" set-buffer-modified-p force-mode-line-update all skktut-tutorial-end skktut-question-buffer buffer-read-only skktut-question-numbers mode-line-buffer-identification] 6]) (defalias 'skktut-today #[nil "\214\305 \306\216\307~\210\310\311!\210\312\313\314 \315\216\307\210`*\316#\203%\317\224\317\225|\210`\320\321 \322Qc\210e`}\210 \205<\323 `\324\f$,\207" [save-match-data-internal p skk-save-point skk-tut-use-face skk-tut-question-face match-data ((set-match-data save-match-data-internal)) nil search-forward "\n>> " re-search-forward "’¡Ö.*’¡×" point-marker ((byte-code "b\210\204\n\301 \302\211\223\207" [skk-save-point make-marker nil] 3)) t 0 "’¡Ö’¤­’¤ç’¤¦’¤Ï’¡¢" skk-current-date "’¤Ç’¤¹’¡£’¡×" put-text-property face] 5]) (defalias 'skktut-end-tutorial #[nil "\306!\210\307 \210\310 \210\311eb\210\312\n\203\313\202\314\315\316\317\" \f$c\210 \203A\320 \321\216eb\210\322\323\311\317\311$\210\324\325\224\325\225\326$\210*?\205O\327\330\331\217\210\202A)\207" [skktut-question-buffer buffer-read-only skktut-japanese-tut skk-ml-address skk-ml-command-address skk-tut-use-face switch-to-buffer delete-other-windows skktut-erase-buffer nil format "SKK ’¥Á’¥å’¡¼’¥È’¥ê’¥¢’¥ë’¤Ï’¤³’¤ì’¤Ç’½ª’¤ê’¤Ç’¤¹’¡£\n\n%s ’¤Ë’´Ø’¤¹’¤ë’¼Á’Ìä’¡¢’¥³’¥á’¥ó’¥È’¡¢bug report ’Åù’¤Ï\n\n %s\n\n’Ëø’¤ª’Á÷’¤ê’²¼’¤µ’¤¤’¡£’¤Ê’¤ª’¡¢’¤³’¤Î’¥¢’¥É’¥ì’¥¹’¤Ï SKK Ring Server Openlab Mailing\nList ’¤Î’¥¢’¥É’¥ì’¥¹’¤Ç’¤¹’¡£’¤É’¤Ê’¤¿’¤Ç’¤â’Å꒹ƒ¤Ï’¤Ç’¤­’¤Þ’¤¹’¤¬’¡¢’¥á’¥ó’¥Ð’¡¼’¤Ë’¤·’¤«’ÇÛ’Á÷’¤µ’¤ì\n’¤Ê’¤¤’¤Î’¤Ç’¡¢’¥á’¥ó’¥Ð’¡¼’¤Ç’¤Ê’¤¤’Êý’¤Ï’¤½’¤Î’»Ý’¤ò’ÌÀ’µ­’¤·’¤Æ’¥á’¡¼’¥ë’¤ò’¤ª’Á÷’¤ê’¤¯’¤À’¤µ’¤¤’¡£\nSKK Ring Server Openlab ML ’¤Ø’»²’²Ã’´õ’˾’¤Î’¾ì’¹ç’¤Ï\n\n %s\n\n’¤Ø’Ëܒʸ’¤È Subject ’¤¬’¶õ’¤Î’¥á’¡¼’¥ë’¤ò’¤ª’Á÷’¤ê’¤¯’¤À’¤µ’¤¤’¡£\n\n!! ’ºÇ’¸å’¤Ë ’¥­’¡¼’¤ò’²¡’¤·’¤Æ’¤¯’¤À’¤µ’¤¤’¡£" "Now we end the SKK tutorial.\n\nPlease send comments, questions and bug reports on %s to:\n\n %s\n\nThis is the address of the SKK Ring Server Openlab Mailing list.\nAnyone can post, but responces will be sent only to the ML members.\nSo, if you are not a ML member, please say so in your mail.\nIf you are interested in joining the SKK Ring Server Openlab ML,\nsend mail to:\n\n %s\n\nwith empty body and subject.\n\n!! Hit key when you are ready." product-string-1 skk-version t match-data ((set-match-data save-match-data-internal)) re-search-forward "^!!.+" put-text-property 0 face #1=#:G36133 (byte-code "\304 \305!\306\n\203\307\202\310!\210 \203 \311=\203\312*\304\207" [event char skktut-japanese-tut skktut-tutorial-end next-command-event event-to-character message " ’¥­’¡¼’¤ò’²¡’¤·’¤Æ’¤¯’¤À’¤µ’¤¤" "Hit key" 13 t] 2) ((error)) save-match-data-internal skk-tut-do-it-face skktut-tutorial-end] 5]) (defalias 'skktut-setup-delete-backward-char #[nil "\306\307\300!\203\310\300!\203\202\311 \312\211\312\211\203W @\313\f\n\"\211\312\211\203O@\314\315#\210\314\315#\210A\211\2041* A\211\204-\312\207" [overriding-local-map keys map commands command #1=#:--dolist-temp--36134 (backward-delete-char-untabify backward-delete-char backward-or-forward-delete-char delete-backward-char picture-backward-clear-column) boundp keymapp current-global-map nil where-is-internal define-key skk-delete-backward-char key #2=#:--dolist-temp--36135 skktut-abbrev-mode-map skktut-j-mode-map] 7]) (byte-code "\301\300!\210\301\302!\210\303\304\305!\300\306\307!\310\311\"\210\312\304\305!\"\210\313!\311\232\203)\2024\314\307\315\311\316\315\211\211\317&)#\210\304\305!\207" [product require skk-version put provide skk-tut product-find-by-name "Daredevil SKK" product-run-checkers (12 2 0) product-add-feature product-version vector nil "Sone" "12.2.0"] 12)