;ELC ;;; Compiled by dan@wayne.mit.edu on Wed Apr 21 21:02:07 2004 ;;; from file /usr/pkgsrc-current/inputmethod/skk/work.bondage/ddskk-12.2.0/skk-look.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-look.el' was compiled for Emacs 20 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\305\306\307\"\210\305\310\307\"\210\203[\311\312\313!\235\204[\312\313!\314\315\211\f\203@\f@\211A@\316>\2037 \315\211\202!\fA T\202 \203P\317\312\313! T\320#\210\202Z\321\313\322\312\313!\323\"\"\210,\315\207" [skk-look-command mark dic n pl autoload ispell-accept-buffer-local-defs "ispell" ispell-parse-output (skk-look) default-value skk-search-prog-list 0 nil (skk-jisyo skk-rdbms-private-jisyo-table) skk-splice-in ((skk-look)) set-default skk-nunion ((skk-look))] 6) (defalias 'skk-look #[nil "\205\222 \205\222\n\211GSH\306=\205\222\n\307\nGSO\f\203* G\307V\203*\310 !\202-\311 !\312\312\312\312\204A \202\220 \312\211\203\215@\313!\203\203\312\314 )\203p\203|\315B\"\202~\202Y)A\211\204K*.\207" [skk-use-look skk-abbrev-mode skk-henkan-key args skk-look-use-ispell v 42 0 skk-look-ispell skk-look-1 nil copy-sequence skk-search skk-nunion v2 v3 skk-look-recursive-search key #1=#:--dolist-temp--36119 skk-search-prog-list skk-current-search-prog-list skk-use-numeric-conversion skk-look-expanded-word-only] 5]) (defalias 'skk-look-1 #[(args) "\306\307\310!!\311\216rq\210 \312 C\f\203 \fC\244\210 \203\"\313\203+\314\nP\2034\315\nP\n\203>\316\nP B\203J\317D B\320\321\312\322\312 &\323U\205k\324 \323V\205k\325 \326\327edS\"\330\"\"-\207" [#1=#:temp-buffer args opt word skk-look-dictionary skk-look-dictionary-order get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) nil "d" "f" "a" "-" "-t" apply call-process t 0 buffer-size delete split-string buffer-substring-no-properties "\n" skk-look-ignore-case skk-look-use-alternate-dictionary skk-look-termination-character skk-look-command] 7]) (defalias 'skk-look-completion #[nil "\2047  \203\fG\306V\203\307\f!\202\310\f!\n\311\211 \2036 @\312 \" A\211 \204$+\211A@\207" [skk-look-completion-words skk-comp-stack stacked skk-look-use-ispell skk-comp-key word 0 skk-look-ispell skk-look-1 nil delete #1=#:--dolist-temp--36120] 4]) (byte-code "\300\301\302\303\304$\210\305\301\304\"\207" [ad-add-advice skk-try-completion (skk-look-ad nil t (advice lambda nil (unless (eq last-command 'skk-comp-do) (setq skk-look-completion-words nil)))) before nil ad-activate] 5) (defalias 'skk-look-ispell #[(word) "\306\307!\210\310 \210\311\312!\210\313\314\"\210\313\315 \316Q\"\210\317!\210\n@\312\230\203\nA\211\2057\n<\2057\320\n@!\2067\321\322\211\322 \321=\203^\311\323\203O\324\202P\325\"\210\326\327!\210\311\312!\210\322\202\260 \330=\204u ;\204u\331 8\204{\332 8\204{\333 !\202\260\331 8\332 8\244\211\322\211 \203\246 @\334\f\333!B\" A\211 \204\215*\335 \334\333 !\f\"\"+\207" [ispell-process word ispell-filter var ret poss require ispell ispell-accept-buffer-local-defs message "" process-send-string "%\n" "^" "\n" accept-process-output ispell-parse-output error nil "%s" "ispell process ’¤Ç’¥¨’¥é’¡¼’¤¬’ȯ’À¸’¤·’¤Þ’¤·’¤¿" "error in ispell process" sit-for 1 t 2 3 skk-look-1 skk-nunion delete skk-japanese-message-and-error key #1=#:--dolist-temp--36121] 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-look product-find-by-name "Daredevil SKK" product-run-checkers (12 2 0) product-add-feature product-version vector nil "Sone" "12.2.0"] 12)