;ELC ;;; Compiled by dan@wayne.mit.edu on Wed Apr 21 21:02:16 2004 ;;; from file /usr/pkgsrc-current/inputmethod/skk/work.bondage/ddskk-12.2.0/skk-study.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-study.el' was compiled for Emacs 20 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\302\303!\210\302\304!\210\302\305!\210\302\306!\210\301B\307\302\207" [current-load-list skk-study-file-format-version require pym skk-macs skk-vars ring "0.3"] 2) #@20 nil (buffer local) (defvar skk-study-current-buffer-theme nil (#$ . 824)) (make-variable-buffer-local 'skk-study-current-buffer-theme) (defalias 'skk-study-get-last-henkan-data #[(index) "\302! V\205\f\303 \"\207" [skk-study-data-ring index ring-length ring-ref] 3]) (put 'skk-study-get-last-henkan-data 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-study-get-current-alist #[(&optional theme) "\203 \306 \"\202\306\n \"\206\306\307 \"A\f\204 \203$\310\202%\311 \236)\207" [theme skk-study-alist skk-study-current-buffer-theme base-alist skk-okuri-char skk-henkan-okurigana assoc "general" okuri-ari okuri-nasi] 3]) (byte-code "\300\301\302\303#\210\304\305\306\"\210\304\307\310\"\207" [put skk-study-get-current-alist byte-optimizer byte-compile-inline-expand add-to-list skk-search-end-function skk-study-search skk-update-end-function skk-study-update] 4) #@111 ’³Ψ’½¬’₯Η’‘Ό’₯Ώ’€ς’»²’ΎΘ’€·’€Ζ ENTRY ’€ς’²Γ’Ή©’€·’‘’’΄Ψ’Ο’’ΐ­’€Ξ’€’’€λ’Έμ’€Ξ’Ν₯’ΐθ’½η’°Μ’€ς’Ύε’€²’€Ζ’ΚΦ’€Ή’‘£ (defalias 'skk-study-search #[(henkan-buffer midasi okurigana entry) "\204\306 !\n\203V\nA\203V \204\307 \210r\fq\210\310 \311\310 \"\206-\310\312 \"A\204:\203>\313\202?\314\236*A\"A\211\203U\315 \n$*\n\207" [skk-study-data-ring skk-study-search-times entry skk-study-alist henkan-buffer midasi make-ring skk-study-read assoc nil "general" okuri-ari okuri-nasi skk-study-search-1 theme skk-study-current-buffer-theme base-alist skk-okuri-char skk-henkan-okurigana alist okurigana] 6 (#$ . 1720)]) (defalias 'skk-study-search-1 #[(target-alist midasi okurigana entry) "\306\307\211\211\211 \204l \306U\204l\310!V\205+\311\")\211\203a\312\f\"A\211\203a\313 !\211\203a\314\211\203a @\211\203a\n\315\n\"B A\211\202KT S\202 .\207" [skk-study-search-times exit e associates last-data times 0 nil ring-length ring-ref assoc reverse t delete index skk-study-data-ring target-alist entry] 7]) #@107 MIDASI ’€Θ WORD ’€Λ’€Δ’€€’€Ζ `skk-study-data-ring' ’€Ξ’ΊΗ’½ι’€Ξ’΄Ψ’Ο’’Έμ’€ς’΄Ψ’Ο’’ΙΥ’€±’€Ζ’³Ψ’½¬’€Ή’€λ’‘£ (defalias 'skk-study-update #[(henkan-buffer midasi okurigana word purge) "\204\306 !\307\310\211\211\211\211r q\210\204*@\230?\2054\311\311\236A) =\2054\203[`\312\312\236A)Z\211\2054 \313V\2054 V\2054\2054\2054\314!?\205p\315\313\"\211\2054\316\230\206\223\316\230\206\223@\230\205\223A\230?\2054 \204\237\317 \210\310!\320\" \"\206\260\320\321 \"A#$\204\275%\203\301\322\202\302\323#\236*\320\fA\"\211\204\352&\204\352\fCBCBC\fA\244\241\2024\320 A\"\211\204&\204 CB AB\241\2024&\204-\n\324\nA\"B\241\210\nAGS'V\2054\325\nA'S\"\2024\f\326\n\fA\"\241.\207" [skk-study-data-ring skk-study-search-times baby papa grandpa diff make-ring t nil henkan-buffer henkan-point 0 ring-empty-p ring-ref "" skk-study-read assoc "general" okuri-ari okuri-nasi delete skk-study-chomp delq last-data inhibit-quit skk-study-first-candidate word skk-henkan-list key skk-last-henkan-data skk-study-max-distance midasi skk-study-alist theme skk-study-current-buffer-theme base-alist skk-okuri-char skk-henkan-okurigana purge skk-study-associates-number] 7 (#$ . 2803)]) #@156 `skk-study-file' ’€Λ’³Ψ’½¬’·λ’²Μ’€ς’Κέ’ΒΈ’€Ή’€λ’‘£ ’₯ͺ’₯Χ’₯·’₯η’₯Κ’₯λ’°ϊ’Ώτ’€Ξ NOMSG ’€¬ non-nil ’€Η’€’’€μ’€Π’‘’’Κέ’ΒΈ’₯α’₯Γ’₯»’‘Ό’₯Έ’€ς’½Π’ΞΟ’€·’€Κ’€€’‘£ (defalias 'skk-study-save #[(&optional nomsg) "\306\307\310\311!!8\312\f\204 \203'5\203'6\203;\31365\"\203;\314\3157\2032\316\2023\317\"\210\320\321!\202@ \204M\3147\203I\322\202J\323\"\2108\203\233\324\311!!\203\2339\325=\203\2178\326\327\330!!:;\331\216r:q\210\332 \210\333!\210)r:q\210~\210\334ed;\312\335%\210,\202\233\336\311!\3118!\337\340$\210\326\327\341!!<\342\216r\203\315\345\f\236\211\346 A\347\"\241\210\350\f\236\211\346 A\351\"\241\210\352\fp\"\210\353?\211@\203\354\355!\203\350\355@!\204\373\354\356!\203@9\203\356@!\203@\202@\203@;\203\357@A\"A\202\357\360A\"A)ed$\210+\361 6 ?\205@\3147\2035\362\2026\363\"\210\320\321!\210\314\364!+\207" [skk-study-file e last-time inhibit-quit skk-study-alist nomsg t 5 file-attributes expand-file-name nil skk-study-time-lessp message "%s" "SKK ’€Ξ’³Ψ’½¬’·λ’²Μ’€ς’₯»’‘Ό’₯Φ’€Ή’€λ’Ι¬’ΝΧ’€Ο’€’’€κ’€ή’€»’€σ" "No SKK study need saving" sit-for 1 "%s ’€Λ SKK ’€Ξ’³Ψ’½¬’·λ’²Μ’€ς’₯»’‘Ό’₯Φ’€·’€Ζ’€€’€ή’€Ή..." "Saving SKK study to %s..." file-exists-p ms-dos get-buffer-create generate-new-buffer-name " *temp file*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) erase-buffer insert-file-contents write-region 0 copy-file ok-if-already-exists keep-date " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) format ";;; skk-study-file format version %s\n" okuri-ari sort #[(a b) "@ @\231\207" [a b] 2] okuri-nasi #[(a b) "@ @\231\207" [a b] 2] skk-study-prin1 write-region-as-coding-system fboundp coding-system-p find-coding-system assoc "euc" current-time "%s ’€Λ SKK ’€Ξ’³Ψ’½¬’·λ’²Μ’€ς’₯»’‘Ό’₯Φ’€·’€Ζ’€€’€ή’€Ή...’΄°’Ξ»’‘ͺ" "Saving SKK study to %s...done" "" skk-study-last-read skk-study-last-save skk-japanese-message-and-error skk-study-backup-file system-type #1# #3=#:temp-file #2# skk-study-file-format-version skk-study-sort-saving skk-jisyo-code code skk-coding-system-alist] 7 (#$ . 4086) "P"]) #@290 skk-study ’€Ξ’₯«’₯μ’₯σ’₯Θ’₯Π’₯Γ’₯Υ’₯‘’€Λ’ΒΠ’€Ή’€λ’³Ψ’½¬’₯Ζ’‘Ό’₯ή THEME ’€ς’ΐί’Δκ’€Ή’€λ’‘£ ’³Ψ’½¬’₯Ζ’‘Ό’₯ή’€Λ’€Ο’Η€’°Υ’€Ξ’ΚΈ’»ϊ’Ξσ’€ς’ΐί’Δκ’€Η’€­’€λ’‘£ ’₯«’₯μ’₯σ’₯Θ’₯Π’₯Γ’₯Υ’₯‘’€Ξ’³Ψ’½¬’₯Ζ’‘Ό’₯ή’€¬’ΐί’Δκ’€΅’€μ’€Κ’€€’€Θ’€­’€Ο’‘’’³Ψ’½¬’₯Ζ’‘Ό’₯ή "general" ’€Λ’ΒΠ’€Ή’€λ’³Ψ’½¬’€¬’ΉΤ’€ο’€μ’€λ’‘£ (defalias 'skk-study-switch-current-theme #[(theme) "\304\n\"\211?\205\305B\nB\211)\207" [theme skk-study-current-buffer-theme skk-study-alist alist assoc ((okuri-ari) (okuri-nasi))] 4 (#$ . 6302) (list (completing-read "Theme of current buffer: (default: general) " (when (or skk-study-alist (skk-study-read)) (let ((n 0)) (mapcar (lambda (e) (setq n (1+ n)) (cons e n)) (mapcar 'car skk-study-alist))))))]) #@55 skk-study ’€Ξ’³Ψ’½¬’₯Ζ’‘Ό’₯ή THEME ’€ς’Ίο’½ό’€Ή’€λ’‘£ (defalias 'skk-study-remove-theme #[(theme) "\304\230\203\305\306 \203\307\202\310\"\210\311\312\n\"\n\" \205( \230\205(\313\211\207" [theme skk-japanese-message-and-error skk-study-alist skk-study-current-buffer-theme "general" error "%s" "\"general\" ’₯Ζ’‘Ό’₯ή’€Ο’Ίο’½ό’€Η’€­’€ή’€»’€σ" "Cannot remove theme \"general\"" delq assoc nil] 4 (#$ . 7014) (list (completing-read "Remove skk-study theme: " (when (or skk-study-alist (skk-study-read)) (let ((n 0)) (mapcar (lambda (e) (setq n (1+ n)) (cons e n)) (mapcar 'car skk-study-alist)))) nil 'require-match))]) #@107 skk-study ’€Ξ’³Ψ’½¬’₯Ζ’‘Ό’₯ή FROM ’€ς TO ’€Λ’₯³’₯Τ’‘Ό’€Ή’€λ’‘£ TO ’€Ξ’΄ϋ’ΒΈ’₯Η’‘Ό’₯Ώ’€Ο’ΗΛ’²υ’€΅’€μ’€λ’‘£ (defalias 'skk-study-copy-theme #[(from to) " \230\203\306\307\n\203\310\202\311\"\210\312\313 \"A!\313 \"\211\2041\306\307\n\203.\314\202/\315\"\210\f\203;\f \241\202B B B\211*\207" [from to skk-japanese-message-and-error skk-study-alist toalist fromalist error "%s" "’₯³’₯Τ’‘Ό’Έ΅’€Θ’₯³’₯Τ’‘Ό’ΐθ’€Ξ’₯Ζ’‘Ό’₯ή’€¬’Ζ±’°μ’€Η’€Ή" "FROM and TO is the same theme" copy-tree assoc "’₯³’₯Τ’‘Ό’Έ΅’€Ξ’³Ψ’½¬’₯Η’‘Ό’₯Ώ’€¬’€’’€κ’€ή’€»’€σ" "FROM study data is null"] 5 (#$ . 7651) (list (completing-read "Copy skk-study theme from: " (when (or skk-study-alist (skk-study-read)) (let ((n 0)) (mapcar (lambda (e) (setq n (1+ n)) (cons e n)) (mapcar 'car skk-study-alist)))) nil 'require-match) (completing-read "Copy skk-study theme to: " (let ((n 0)) (mapcar (lambda (e) (setq n (1+ n)) (cons e n)) (mapcar 'car skk-study-alist)))))]) #@147 `skk-study-file' ’€«’€ι’³Ψ’½¬’·λ’²Μ’€ς’ΖΙ’€ί’Ήώ’€ΰ’‘£ ’₯ͺ’₯Χ’₯·’₯η’₯Κ’₯λ’°ϊ’Ώτ’€Ξ FORCE ’€¬ non-nil ’€Η’€’’€μ’€Π’‘’’ΗΛ’΄ώ’€Ξ’³Ξ’Η§’€ς’€·’€Κ’€€’‘£ (defalias 'skk-study-read #[(&optional nomsg force) "\306 ?\205\n\203\307\202\310\"\210 \203.\f\204.\311\n\203&\312\313\"\202*\312\314\"!\205p \204A\315\n\203;\316\202<\317\320!\"\210 \203I\305!\210\321!\322  \205p ?\205p\315\n\203c\323\202d\324\320!\"\210\325\326!\210\315\327!\207" [skk-study-file nomsg skk-japanese-message-and-error skk-study-alist force skk-study-check-alist-format skk-create-file "SKK ’€Ξ’³Ψ’½¬’·λ’²Μ’₯Υ’₯‘’₯€’₯λ’€ς’Ίξ’€κ’€ή’€·’€Ώ" "I have created an SKK study file for you" yes-or-no-p format "%s ’€ς’ΊΖ’ΖΙ’€ί’Ήώ’€ί’€·’€ή’€Ή’€«’‘©" "Reread %s?" message "%s ’€Ξ SKK ’³Ψ’½¬’·λ’²Μ’€ς’ΕΈ’³«’€·’€Ζ’€€’€ή’€Ή..." "Expanding SKK study of %s ..." file-name-nondirectory skk-study-read-1 current-time "%s ’€Ξ SKK ’³Ψ’½¬’·λ’²Μ’€ς’ΕΈ’³«’€·’€Ζ’€€’€ή’€Ή...’΄°’Ξ»’‘ͺ" "Expanding SKK study of %s ...done" sit-for 1 "" skk-study-last-read] 4 (#$ . 8600) "P"]) (defalias 'skk-study-read-1 #[(file) "\306\307\310!!\311\216rq\210\312\313 \"\314\315\f\211\203;\316\317!\203&\317 !\2047\316\320!\203; 9\203;\320 !\203; \202S \203M ;\203M\321  \"A\202S\321\322 \"A)!\"\210\323 \324U\203d \325\261\210eb\210\326\327!\203q\330\331!\n\204\205\332\333\"\203\200\334\202\201\335\"\202\227\n \230\203\221\336p!\202\227\337\336p!BC-\207" [#1=#:temp-buffer skk-study-file-format-version version version-string skk-jisyo-code code get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) format ";;; skk-study-file format version %s\n" nil insert-file-contents-as-coding-system fboundp coding-system-p find-coding-system assoc "euc" buffer-size 0 "((\"general\" . ((okuri-ari) (okuri-nasi))))" looking-at "^;;; skk-study-file format version \\([.0-9]+\\)\n" match-string 1 error "%s" "skk-study-file ’€¬’²υ’€μ’€Ζ’€€’€ή’€Ή" "Broken skk-study-file" read "general" skk-coding-system-alist file skk-japanese-message-and-error] 5]) #@93 skk-study ’€Ξ’³Ψ’½¬’₯Η’‘Ό’₯Ώ’₯Υ’₯‘’₯€’₯λ FILE ’€Ξ’₯Υ’₯©’‘Ό’₯ή’₯Γ’₯Θ’€ς’₯Α’₯§’₯Γ’₯―’€Ή’€λ’‘£ (defalias 'skk-study-check-alist-format #[(file) "\302\203 \303\202\n\304 \"\210\305\306 !!\204\"\307\203\310\202\311 \"\210\302\203+\312\202,\313 \"\210\314\315!\210\302\316!\207" [skk-japanese-message-and-error file message "%s ’€Ξ’₯Υ’₯©’‘Ό’₯ή’₯Γ’₯Θ’€Ξ’₯Α’₯§’₯Γ’₯―’€ς’ΉΤ’€Κ’€Γ’€Ζ’€€’€ή’€Ή..." "Checking format of %s..." skk-study-check-alist-format-1 skk-study-read-1 error "%s ’€Ξ’₯Υ’₯©’‘Ό’₯ή’₯Γ’₯Θ’€Ο’²υ’€μ’€Ζ’€€’€ή’€Ή" "%s format is broken" "%s ’€Ξ’₯Υ’₯©’‘Ό’₯ή’₯Γ’₯Θ’€Ξ’₯Α’₯§’₯Γ’₯―’€ς’ΉΤ’€Κ’€Γ’€Ζ’€€’€ή’€Ή...’΄°’Ξ»!" "Checking format of %s...done" sit-for 1 ""] 3 (#$ . 10706) (list (read-file-name (format "File to check: (default: %s) " skk-study-file) default-directory skk-study-file))]) (defalias 'skk-study-check-alist-format-1 #[(alist) "\304 \304\211\2038 @\211G\305U\2031\n@;\2031\nA\211\2031\306\236\2031\307\236\2031\310\311\215\210 A\211\204\n+\304\207" [a alist elm #1=#:--dolist-temp--36159 nil 3 okuri-ari okuri-nasi exit (byte-code "\306\307\310\211\211\211\203_\f@\311=\203\312\f@ \236A\211\203X\n@ @!\2040\313\314\310\"\210 A\211\203Q@@:\203E@A<\204J\313\314\310\"\210A\211\2047\nA\211\204!\fA\211\204-\310\207" [f e a2 func index a (okuri-ari okuri-nasi) #[(str) "G\211\303V\205 SH\304\n!)\305=)\207" [str len char 1 char-charset ascii] 3] nil okuri-nasi #[(str) "G\211\303U\206( SH\304\n!)\305=?\206( \306ZH\304\n!)\305=\206(\307)\207" [str len char 1 char-charset ascii 2 nil] 4] throw exit] 6)] 3]) (defalias 'skk-study-prin1 #[(form &optional stream) "\306\307\211\211\310\f \",\207" [print-quoted print-length print-level print-readably form stream t nil prin1] 4]) (defalias 'skk-study-chomp #[(nth list) "\302V\203\f \233\303\241\210 \207" [nth list -1 nil] 2]) (byte-code "\300\301\302\303\304$\210\305\301\304\"\210\300\306\307\310\304$\210\305\306\304\"\207" [ad-add-advice skk-kakutei-initialize (skk-study-ad nil t (advice lambda nil (let ((kakutei-word (ad-get-arg 0))) (when kakutei-word (ring-insert skk-study-data-ring (cons skk-henkan-key kakutei-word)))))) before nil ad-activate skk-undo-kakutei (skk-study-ad nil t (advice lambda nil (let ((last (ring-ref skk-study-data-ring 0)) (last2 (ring-ref skk-study-data-ring 1)) target) (when (and last last2) (setq target (assoc (car last) (skk-study-get-current-alist)) target (delq (assoc last2 (cdr target)) target)))))) after] 5) (defalias 'skk-study-time-lessp #[(time0 time1) "@ @A@ A@\211\fW\206 \fU\205 \nW,\207" [time0 time1 lo1 lo0 hi1 hi0] 5]) (byte-code "\301\302\303\"\210\304\300!\210\304\305!\210\306\307\310!\300\311\312!\313\314\"\210\315\307\310!\"\210\316!\314\232\203.\2029\317\312\320\314\321\320\211\211\322&)#\210\307\310!\207" [product add-hook skk-before-kill-emacs-hook skk-study-save require skk-version put provide skk-study product-find-by-name "Daredevil SKK" product-run-checkers (12 2 0) product-add-feature product-version vector nil "Sone" "12.2.0"] 12)