;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-leim.el ;;; in Emacs version 21.3.1 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`skk-leim.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defalias 'skk-activate #[(&optional name) "\301\302\303!\210\304 \305 =\205\306\307\310\"\207" [inactivate-current-input-method-function skk-inactivate skk-mode 1 selected-window minibuffer-window add-hook minibuffer-exit-hook skk-leim-exit-from-minibuffer] 3]) (defalias 'skk-auto-fill-activate #[(&optional name) "\301\302\303!\210\304 \305 =\205\306\307\310\"\207" [inactivate-current-input-method-function skk-auto-fill-inactivate skk-auto-fill-mode 1 selected-window minibuffer-window add-hook minibuffer-exit-hook skk-leim-exit-from-minibuffer] 3]) (defalias 'skk-inactivate #[nil "\300\301!\207" [skk-mode -1] 2]) (defalias 'skk-auto-fill-inactivate #[nil "\300\301!\207" [skk-auto-fill-mode -1] 2]) (defalias 'skk-leim-exit-from-minibuffer #[nil "\300 \210\301 \302X\205\303\304\305\"\207" [inactivate-input-method minibuffer-depth 1 remove-hook minibuffer-exit-hook skk-leim-exit-from-minibuffer] 3]) (byte-code "\301\302\303\304\305\306%\210\301\307\303\310\305\311%\210\312\300!\210\312\313!\210\314\315\316!\300\317\320!\321\322\"\210\323\315\316!\"\210\324!\322\232\2039\202D\325\320\326\322\327\326\211\211\330&)#\210\315\316!\207" [product register-input-method "japanese-skk" "Japanese" skk-activate "" "Simple Kana to Kanji conversion program" "japanese-skk-auto-fill" skk-auto-fill-activate "Simple Kana to Kanji conversion program with auto-fill" require skk-version put provide skk-leim product-find-by-name "Daredevil SKK" product-run-checkers (12 2 0) product-add-feature product-version vector nil "Sone" "12.2.0"] 12)