;ELC ;;; Compiled by dan@wayne.mit.edu on Wed Apr 21 21:02:03 2004 ;;; from file /usr/pkgsrc-current/inputmethod/skk/work.bondage/ddskk-12.2.0/skk-comp.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-comp.el' was compiled for Emacs 20 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@199 ’’¦’₯β’‘Ό’₯Ι’€Η’ΖΙ’€ί’€Ξ’Κδ’΄°’€ς’ΉΤ’€Κ’€Γ’€Ώ’Έε’‘’’ΚΡ’΄Ή’€Ή’€λ’‘£ ’€½’€μ’°Κ’³°’€Ξ’₯β’‘Ό’₯Ι’€Η’€Ο’₯ͺ’₯κ’₯Έ’₯Κ’₯λ’€Ξ’₯­’‘Ό’₯ή’₯Γ’₯Χ’€Λ’³δ’€κ’ΙΥ’€±’€ι’€μ’€Ώ’₯³’₯ή’₯σ’₯Ι’€ς’₯¨’₯ί’₯ε’₯μ’‘Ό ’₯Θ’€Ή’€λ’‘£ (defalias 'skk-comp-start-henkan #[(arg) "\303=\203\304 \304=?!\210\305\n!\207\306\n!\207" [skk-henkan-mode last-command arg on skk-comp-do skk-start-henkan skk-emulate-original-map] 3 (#$ . 643) "*P"]) (defalias 'skk-comp #[(first &optional silent) "\303\303 \n\"\207" [this-command first silent skk-comp-do] 3]) (defalias 'skk-comp-do #[(first &optional silent) "\306\307\211\303\f\203\310\f!\204\311\f!\202 \205 @\307 \204-\203r\312\313!\210\314!\203?\307!\202A\211:\203X\203S@\202VA;\203c\315!\210 \204l\316   \307\211\223\210+!\203\201\307\"\307#\317$!\203\215\320%`\"&\"\203\263$\317U\203\246'\203\373#G$\202\373$S\211$#8\202\373\321&!\"\211(#\235\203\316\321&!\"\211(\202\274()\206\340)\205\340*\205\340\322 \211\203\356#B#\202\373\306\"'\203\373#G$\203 %`|\210c\202]'\203%`|\210&c\210+?\205]\323 \210&\324\230\2037\325\326,\2032\327\2023\330\"\202],\203N\325\331&!\203I\324\202J\332#\202]\325\333!\203Y\324\202Z\334&#+\207" [c-word skk-num-list inhibit-quit force skk-current-rule-tree skk-kana-input-search-function t nil skk-get-nextstate skk-get-kana skk-erase-prefix clean functionp skk-insert-str make-marker 0 buffer-substring-no-properties skk-comp-do-1 skk-look-completion ding "" message "%s" "’€³’€μ’°Κ’Ύε’€Ξ’Νϊ’Ξς’€Ο’€’’€κ’€ή’€»’€σ" "No more words in history" "\"%s\" ’€Η’Κδ’΄°’€Ή’€Ω’€­’Έ«’½Π’€·’Έμ’€Ο%s’€’’€κ’€ή’€»’€σ" "’ΒΎ’€Λ" "No %scompletions for \"%s\"" "more " kana data skk-katakana skk-kana-start-point first skk-comp-search-done skk-comp-stack skk-comp-depth skk-henkan-start-point skk-comp-key skk-comp-circulate word skk-abbrev-mode skk-use-look silent skk-japanese-message-and-error] 5]) (defalias 'skk-comp-do-1 #[(key first) "\306\230\203 \307 \207\310 \311\"\312 D\313\f\203<r \313\211\203;@\314 !\2032 q\210b\210A\211\204!+\302\315\215*\207" [key skk-jisyo word buffers first buf "" skk-comp-by-history skk-get-jisyo-buffer nomsg skk-dic-setup-buffer nil buffer-live-p (byte-code "r\305\211\203)\n@\306 !\203\" q\210\307 !\211\203\"\310\304\f\"\210\nA\211\204 +\305\207" [buffers buf #1=#:--dolist-temp--36109 key word nil buffer-live-p skk-comp-search-current-buffer throw] 4) #2=#:--dolist-temp--36108 skk-okuri-nasi-min] 3]) (defalias 'skk-comp-search-current-buffer #[(key) "\304\305 \306\216\2043\307\310\n\203\311 !\202 P\304\312#\2033g\313=\204 \314`\307\315!S\"P\211\203 +\207" [c-word save-match-data-internal skk-use-numeric-conversion key nil match-data ((set-match-data save-match-data-internal)) search-forward "\n" skk-num-compute-henkan-key t 32 buffer-substring-no-properties " "] 6]) (defalias 'skk-comp-previous #[nil "\306G\307\f\203 \nU\203\310\202 T 8\211\203+ `|\210 c\202O\f\2045 S\202> `|\210c\210\311 \210\312\203K\313\202L\314\"+\207" [skk-comp-stack c-word stack-length inhibit-quit skk-comp-circulate skk-comp-depth t nil 0 ding message "\"%s\"’€Η’Κδ’΄°’€Ή’€Ω’€­’Έ«’½Π’€·’Έμ’€Ο’ΒΎ’€Λ’€’’€κ’€ή’€»’€σ" "No more previous completions for \"%s\"" skk-henkan-start-point skk-comp-key skk-japanese-message-and-error] 4]) (defalias 'skk-comp-previous/next #[(ch) "\304 \n=\203\f\304\305!\207 =\205\306 \207" [this-command ch skk-next-completion-char skk-previous-completion-char skk-comp-do nil skk-previous-completion] 2]) (defalias 'skk-comp-by-history #[nil "\204-\306\211 \306\211\203' @\211@\211\n\235\204 \nB A\211\204*\n\237*\211A@\207" [skk-comp-stack el list skk-kakutei-history cell #1=#:--dolist-temp--36110 nil skk-comp-kakutei-midasi-list] 3]) (byte-code "\301\302\303\"\210\301\304\305\"\210\306\307!\210\310\300!\210\310\311!\210\312\313\314!\300\315\316!\317\320\"\210\321\313\314!\"\210\322!\320\232\2037\202B\323\316\324\320\325\324\211\211\326&)#\210\313\314!\207" [product defalias skk-previous-completion skk-comp-previous skk-start-henkan-with-completion skk-comp-start-henkan run-hooks skk-comp-load-hook require skk-version put provide skk-comp product-find-by-name "Daredevil SKK" product-run-checkers (12 2 0) product-add-feature product-version vector nil "Sone" "12.2.0"] 12)