;ELC ;;; Compiled by dan@wayne.mit.edu on Wed Apr 21 21:02:01 2004 ;;; from file /usr/pkgsrc-current/inputmethod/skk/work.bondage/ddskk-12.2.0/skk-abbrev.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-abbrev.el' was compiled for Emacs 20 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defalias 'skk-abbrev-search #[nil "\205\303 !\211\205\nC)\207" [skk-abbrev-mode skk-henkan-key var abbrev-expansion] 3]) (byte-code "\301\302\303\304\305$\210\306\302\305\"\210\307\300!\210\307\310!\210\311\312\313!\300\314\315!\316\317\"\210\320\312\313!\"\210\321!\317\232\2035\202@\322\315\305\317\323\305\211\211\324&)#\210\312\313!\207" [product ad-add-advice skk-completion-original (skk-abbrev-ad nil t (advice lambda nil (let ((first (ad-get-arg 0)) c-word) (condition-case nil (let (skk-use-look) ad-do-it) (error (when skk-abbrev-mode (setq c-word (and (abbrev-expansion skk-completion-word))) (when (and skk-use-look (or (not c-word) (member c-word skk-completion-stack))) (while (or (not c-word) (member c-word skk-completion-stack)) (setq c-word (skk-look-completion))))) (unless c-word (if skk-japanese-message-and-error (error "\"%s\" ’€Η’Κδ’΄°’€Ή’€Ω’€­’Έ«’½Π’€·’Έμ’€Ο%s’€’’€κ’€ή’€»’€σ" skk-completion-word (if first "" "’ΒΎ’€Λ")) (error "No %scompletions for \"%s\"" (if first "" "more ") skk-completion-word))) (setq skk-completion-stack (cons c-word skk-completion-stack)) (delete-region skk-henkan-start-point (point)) (insert c-word)))))) around nil ad-activate require skk-version put provide skk-abbrev product-find-by-name "Daredevil SKK" product-run-checkers (12 2 0) product-add-feature product-version vector "Sone" "12.2.0"] 12)