;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-e21.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-e21.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\306\307\310\"\210\306\311\312\"\210\302B\313\302!\204 	\205 \314\304B\313\304!\204> 	\205= \315\316 \317\320\321#\210\317\322\323#\210)\324\325F\305B\313\305!\204Q 	\205P \326\fBC\306\207" [current-load-list window-system skk-e21-modeline-menu-items map skk-e21-modeline-property skk-e21-property-alist autoload Info-goto-node "info" browse-url "browse-url" boundp ("Daredevil SKK Menu" ["Hiragana" (skk-j-mode-on) :selected (and skk-j-mode (not skk-katakana)) :style radio :keys nil :key-sequence nil] ["Katakana" (skk-j-mode-on t) :selected (and skk-j-mode skk-katakana) :style radio :keys nil :key-sequence nil] ["Hankaku alphabet" skk-latin-mode :selected skk-latin-mode :style radio :keys nil :key-sequence nil] ["Zenkaku alphabet" skk-jisx0208-latin-mode :selected skk-jisx0208-latin-mode :style radio :keys nil :key-sequence nil] "--" ["Read Manual" skk-e21-info t] ["Start Tutorial" skk-tutorial t] ["Customize Daredevil SKK" skk-customize t] ["Send a Bug Report" (let (skk-japanese-message-and-error) (skk-submit-bug-report)) t] "--" ["About Daredevil SKK..." skk-version t] ["Visit Daredevil Web Site" skk-e21-visit-openlab t]) local-map make-sparse-keymap define-key [mode-line mouse-3] skk-e21-modeline-menu [mode-line mouse-1] skk-mode help-echo "mouse-1: Toggle SKK, mouse-3: SKK Menu" latin] 5)
(defalias 'skk-e21-modeline-menu #[nil "A@\305	\203 \306\307!\202# \n\204 \306\302!\202# \204\" \306\310!\202# \311I\210\3128\305\2055 	?\2055 \306\307!I\210\3138\305\205B \306\314!I\210\3158\305\205O \306\316!I\210\317\320\321\"\322!)\207" [skk-e21-modeline-menu-items skk-katakana skk-mode skk-j-mode easy-menu-converted-items-table 7 skk-e21-find-func-keys skk-toggle-kana skk-kakutei nil 2 3 skk-latin-mode 4 skk-jisx0208-latin-mode make-hash-table :test equal popup-menu] 4 nil nil])
(defalias 'skk-e21-info #[nil "\300\301!\207" [Info-goto-node "(skk)"] 2 nil nil])
(defalias 'skk-e21-customize #[nil "\300\301!\207" [customize-group "skk"] 2 nil nil])
(defalias 'skk-e21-visit-openlab #[nil "\300\301!\207" [browse-url "http://openlab.ring.gr.jp/skk/index-j.html"] 2 nil nil])
(defalias 'skk-e21-prepare-modeline-properties #[nil "\306!\307\310\311\312\313\314	\"\315BBBBC!\316\f\205, \205, \n\205, \317\320\321\nBB#+ \2047 \322!\205\220 \322\323\322\"\211#\203\216 #@\"\324\325\326\"\"!\327!\204u \330\331\"\210!\203u \332\324\325\333\"\"!J\"\210\"\334\335D\"B$B$#A\211#\204H +\322\207" [skk-tut-file dir image string skk-show-icon window-system file-name-directory find-image :type xpm :file expand-file-name "skk.xpm" (:ascent center) "dummy" apply propertize display nil (hiragana katakana jisx0208-latin jisx0201 abbrev) intern format "skk-e21-%s-face" facep copy-face modeline set-face-foreground "skk-cursor-%s-color" append face skk-e21-modeline-property skk-icon skk-use-color-cursor skk-indicator-use-cursor-color mode #1=#:--dolist-temp--36104 skk-e21-property-alist] 7])
(defalias 'skk-e21-find-func-keys #[(func) "\3068\307\211	\204% \203% A@\310\n8\f=\205 \nA@\202 	;\205+ 	+\2064 \311\f\"@\211\205A \312\313\314!\")\207" [skk-rule-tree str list spec func skk-j-mode-map 4 nil 3 where-is-internal format "%s" key-description keys] 5])
(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-e21 product-find-by-name "Daredevil SKK" product-run-checkers (12 2 0) product-add-feature product-version vector nil "Sone" "12.2.0"] 12)