;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-cus.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-cus.el' was compiled for Emacs 20 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\306\307!\210\306\310!\210\301B\311\301!\204\312\302B\311\302!\204 \313\303B\311\303!\204,\313\304B\311\304!\2048\313\305B\314\315B\316 \317B\320\321B\322\323B\324\325B\326\313\207" [current-load-list skk-custom-file skk-custom-params skk-custom-alist skk-custom-buffer-original skk-cus-params-visual require skk-vars wid-edit boundp "~/.skk-cus" nil ((skk-use-face (const :tag "’ŹŃ’“¹’Ć꒤Ė’槒¤ņ’¤Ä’¤±’¤ė" t) "") (skk-use-color-cursor (const :tag "’„«’”¼’„½’„ė’¤Ė’槒¤ņ’¤Ä’¤±’¤ė" t) "") (skk-japanese-message-and-error (const :tag "’„į’„ƒ„»’”¼’„ø’¤Ļ’Ęü’Ėܒøģ’¤Ē’ÄĢ’ĆĪ’¤¹’¤ė" t) "") (skk-show-annotation (const :tag "’ŹŃ’“¹’»ž’¤Ė’Ćš’¼į’¤ņ’ɽ’¼Ø’¤¹’¤ė" t) "")) skk-cus-params-ui ((skk-egg-like-newline (const :tag "Return [Enter] ’„­’”¼’¤Ē’³Ī’Äź’¤¹’¤ė" t) "") (skk-kakutei-early (const :tag "’ĢĄ’¼Ø’ÅŖ’¤Ź’³Ī’Äź’¤ņ’¾Ź’Ī¬’²Ä’Ē½’¤Ė’¤¹’¤ė" t) "") (skk-delete-implies-kakutei (const :tag "’¢§’„ā’”¼’„ɒ¤Ē BS ’¤ņ’²”’¤·’¤æ’¤é’³Ī’Äź’¤¹’¤ė" t) "") (skk-auto-insert-paren (const :tag "’ŹÄ’³ē’øĢ’¤ņ’¼«’Ę°’ÅŖ’¤Ė’ĮŽ’Ęž’¤¹’¤ė" t) "")) skk-cus-params-henkan ((skk-auto-start-henkan (const :tag "’Ęƒļ’¤Ī’Źø’»ś’¤Ī’Ęž’ĪĻ’»ž’¤Ė’¼«’Ę°’ÅŖ’¤Ė’ŹŃ’“¹’¤ņ’³«’»Ļ’¤¹’¤ė" t) "") (skk-henkan-okuri-strictly (const :tag "’Į÷’¤ź’²¾’Ģ¾’¤¬’ø·’Ģ©’¤Ė’Ąµ’¤·’¤¤’øõ’Źä’¤Ī’¤ß’ɽ’¼Ø’¤¹’¤ė" t) "") (skk-henkan-strict-okuri-precedence (const :tag "’Į÷’¤ź’²¾’Ģ¾’¤¬’ø·’Ģ©’¤Ė’Ąµ’¤·’¤¤’øõ’Źä’¤ņ’Ķ„’Ąč’¤·’¤Ę’ɽ’¼Ø’¤¹’¤ė" t) "") (skk-check-okurigana-on-touroku (choice :tag "’¼­’½ń’ÅŠ’Ļ撻ž’¤Ī’Ķ¾’·×’¤Ź’Į÷’¤ź’²¾’Ģ¾’¤Ī’¼«’Ę°’½č’Ķż’¤Ļ’”©" (const :tag "Auto" auto) (const :tag "Query" ask) (const :tag "Do Nothing" nil)) "")) skk-cus-params-search ((skk-use-look (const :tag "’Źä’“°’¤Ī’»ž’¤Ė look ’„³’„Ž’„ó’„ɒ¤ņ’»Č’¤¦" t) "") (skk-auto-okuri-process (const :tag "’Į÷’¤ź’¤Ź’¤·’ŹŃ’“¹’¤Ē’Į÷’¤ź’¤¢’¤ź’øõ’Źä’¤ā’ø”’ŗ÷’¤¹’¤ė" t) "")) skk-cus-params-input ((skk-use-jisx0201-input-method (const :tag "’Č¾’³Ń’„«’„Ź’¤ņ’Ęž’ĪĻ’²Ä’Ē½’¤Ė’¤¹’¤ė" t) "") (skk-use-kana-keyboard (const :tag "’¤«’¤Ź’Ęž’ĪĻ’¤ņ’²Ä’Ē½’¤Ė’¤¹’¤ė" t) "")) skk-cus-params-misc ((skk-share-private-jisyo (const :tag "’Ź£’æō’¤Ī SKK ’¤¬’øĒæĶ’¼­’½ń’¤ņ’¶¦’Ķ­’¤¹’¤ė" t) "") (skk-show-icon (const :tag "SKK ’¤Ī’„¢’„¤’„³’„ó’¤ņ’ɽ’¼Ø’¤¹’¤ė" t) "") (skk-preload (const :tag "SKK ’¤Ī’½é’²ó’µÆ’Ę°’¤ņ’¹ā’Ā®’¤Ė’¤¹’¤ė" t) ""))] 2) (defalias 'skk-cus-set #[nil "\303\211\203\n@\211@ AL\210\nA\211\204*\303\207" [skk-custom-alist param #1=#:--dolist-temp--36111 nil] 3]) (defalias 'skk-custom-mode #[nil "\303 \210\304\305\306\n!\210\307\310!\207" [major-mode mode-name widget-keymap kill-all-local-variables skk-custom-mode "SKK ’¤Ī’Ąß’Äź" use-local-map run-hooks skk-custom-mode-hook] 2]) (defalias 'skk-cus-info #[(params) "\301\302\303\304\"\"\207" [params delq nil mapcar #[(el) "@J\211\205\f@ B)\207" [el val] 3]] 5]) (defalias 'skk-customize #[nil "\306 \n \f &\3077\2118\203>8@\2117@97\211:A@)@\310=\20349J\20349\311L\210)8A\2118\204*p;\312\313\"\312\314 \"\312\315\n\"\312\316 \"\312\317\f\"\312\320 \"\306\321!\321 !\321\n!\321 !\321\f!\321 !&<=>?@AB\322\323\324!!\210\325\323\324!!\210\326 \210\327\330!\210\331\332\333\334\335\336\337\340&\210\327\341!\210\327\342!\210\331\343\344<\345\346\311\347\311\333\350\351\352\353\354BBBBBBBBBBBB$\331\343\344<\345\346\311\347\311\333\355\351\352\353\354ABBBBBBBBBBB$\331\343\344<\345\346\311\347\311\333\356\351\352\353\354@BBBBBBBBBBB$\331\343\344<\345\346\311\347\311\333\357\351\352\353\354?BBBBBBBBBBB$\331\343\344<\345\346\311\347\311\333\360\351\352\353\354>BBBBBBBBBBB$\331\343\344<\345\346\311\347\311\333\361\351\352\353\354=BBBBBBBBBBB$\257C\362D!\210\363\364\365\"\210\366 \210eb.\207" [skk-cus-params-visual skk-cus-params-ui skk-cus-params-henkan skk-cus-params-search skk-cus-params-input skk-cus-params-misc append nil const t mapcar #[(entry) "\301\302\303\304\3058\306\302\307@FA@\257\207" [entry cons :format "%v%h\n" :doc 2 const ""] 9] #[(entry) "\301\302\303\304\3058\306\302\307@FA@\257\207" [entry cons :format "%v%h\n" :doc 2 const ""] 9] #[(entry) "\301\302\303\304\3058\306\302\307@FA@\257\207" [entry cons :format "%v%h\n" :doc 2 const ""] 9] #[(entry) "\301\302\303\304\3058\306\302\307@FA@\257\207" [entry cons :format "%v%h\n" :doc 2 const ""] 9] #[(entry) "\301\302\303\304\3058\306\302\307@FA@\257\207" [entry cons :format "%v%h\n" :doc 2 const ""] 9] #[(entry) "\301\302\303\304\3058\306\302\307@FA@\257\207" [entry cons :format "%v%h\n" :doc 2 const ""] 9] skk-cus-info kill-buffer get-buffer-create "*SKK ’¤Ī’“š’ĖܒĄß’Äź*" switch-to-buffer skk-custom-mode widget-insert "SKK ’¤Ī’“š’ĖܒĄß’Äź’”£’½Ŗ’¤ļ’¤Ć’¤æ’¤é " widget-create push-button :tag "done" :help-echo "’½Ŗ’¤ļ’¤Ć’¤æ’¤é’„ܒ„ƒ¤ņ’²”’¤·’¤Ę’”£" :action skk-customize-done " ’¤ņ’²”’¤·’¤Ę’¤Æ’¤Ą’¤µ’¤¤’”£\n\n" "’Ćķ’°Õ: ’¤¤’¤Æ’¤Ä’¤«’¤Ī’Ąß’Äź’¤Ļ’ŗʒµÆ’Ę°’¤¬’ɬ’Ķג¤Ē’¤¹’”£\n\n" group :value set :inline :greedy "’ɽ’¼Ø’¤Ė’“Ų’¤¹’¤ė’Ąß’Äź" :format "%t:\n%h%v" :doc "" "’“š’ĖܒÅŖ’¤Ź’„ę’”¼’„¶’”¦’„¤’„ó’„æ’”¼’„Ւ„§’”¼’„¹" "’ŹŃ’“¹’¤Ė’“Ų’¤¹’¤ė’Ąß’Äź" "’¼­’½ń’ø”’ŗ÷’¤Ė’“Ų’¤¹’¤ė’Ąß’Äź" "’Ęž’ĪĻ’Źż’¼°’¤Ė’“Ų’¤¹’¤ė’Ąß’Äź" "’¤½’¤Ī’Ā¾’¤Ī’Ąß’Äź" use-local-map local-set-key "q" bury-buffer widget-setup param #1=#:--dolist-temp--36112 var x skk-custom-buffer-original info misc input search henkan ui visual skk-custom-params widget-keymap] 21 nil nil]) (defalias 'skk-customize-done #[(&rest args) "\306 \306\211\203 @\307\310\n!\" A\211\204\n*\307\f &\306\211\203O@\211@\236\204F@\306BBA\211\2042*\311 \210\312\313\314!!\315\216rq\210\316\317!\320\261\210\321ed#\210+\322 \210p=\204\200\323!\210\324 \207" [skk-custom-alist skk-custom-params params #1=#:--dolist-temp--36113 skk-cus-params-visual skk-cus-params-ui nil append widget-value skk-cus-set get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) "(setq skk-custom-alist '" prin1-to-string ")\n" write-region bury-buffer switch-to-buffer skk-adjust-user-option skk-cus-params-henkan skk-cus-params-search skk-cus-params-input skk-cus-params-misc param #3=#:--dolist-temp--36114 #2# skk-custom-file skk-custom-buffer-original] 8 nil nil]) (defalias 'skk-cus-setup #[nil "\302!\303 !\205\304 !\210\305 )\207" [skk-custom-file file expand-file-name file-readable-p load-file skk-cus-set] 2]) (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-cus product-find-by-name "Daredevil SKK" product-run-checkers (12 2 0) product-add-feature product-version vector nil "Sone" "12.2.0"] 12)