;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-annotation.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-annotation.el' was compiled for Emacs 20 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\204\304 \305 \306\307#\210\305 \310\311#\210 )\312\n\236\204 \313\nB\314\303!\2032\300 \236\2042\312B B\304\207" [skk-annotation-mode-map map minor-mode-alist minor-mode-map-alist make-sparse-keymap define-key "" skk-annotation-save-and-quit " " skk-annotation-kill skk-annotation-mode (skk-annotation-mode " annotation") boundp] 4) (defalias 'skk-annotation-erase-buffer #[nil "\302\303\304ed\303#\210\305 *\207" [buffer-read-only inhibit-read-only t nil set-text-properties erase-buffer] 4]) (put 'skk-annotation-erase-buffer 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-annotation-insert #[(annotation) "r\306!q\210\307\310\311ed\310#\210\312 *\210 \310\313\314\315\217\210\f*c)\207" [skk-annotation-buffer buffer-read-only inhibit-read-only annotation string func get-buffer-create t nil set-text-properties erase-buffer #1=#:G36105 (byte-code "\302!@\211<\203\303 @!\203\304 !\302\207" [string func read-from-string functionp eval] 3) ((error))] 4]) (put 'skk-annotation-insert 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-annotation-get #[(annotation) "\301\230\206\302H\303=\203\304\305O\207\207" [annotation "" 0 42 1 nil] 3]) (put 'skk-annotation-get 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-annotation-show #[(annotation) "?\205* \203 \n!\205*\303\n\211\304\230\206(\n\305H\306=\203'\n\307\310O\202(\n)!\207" [skk-kakutei-flag skk-annotation-function annotation skk-annotation-show-1 "" 0 42 1 nil] 5]) (defalias 'skk-annotation-show-1 #[(annotation) "\203p\302\303 !=\204\300 !\207\304 !\207" [skk-annotation-show-as-message annotation window-buffer minibuffer-window skk-annotation-show-buffer] 3]) (defalias 'skk-annotation-show-buffer #[(annotation) "\300\301\302\217\207" [nil (byte-code "\300\213\207" [((byte-code "p\306\307 !=\310\211 r\311\f!q\210\312\310%\313ed\310#\210\314 *\210 &\310'\315\316\317\217\210&*c)\210)\n\203\\\320\321\322 8!\211\203J\323!\210\202N\324\321!\210\325 \326 =\204_\327 \210\202_\330 \210\331\f!\210\n\203l\323\307 !\210\332 \211\333 !\310(\211)\203\204\334)!\202\220\335 (\334(\211GSH!+\336*+,-\310(+\204\246*+,\310.\211/\203\312/@.(\337.+\"\244(/A\211/\204\261*\340-!\341\342(\"\235,\203\336\343\344\310\"\210 0 C\244\2110,\207" [window event minibuf-p annotation skk-annotation-buffer buffer-read-only window-buffer minibuffer-window nil get-buffer-create t set-text-properties erase-buffer #1=#:G36105 (byte-code "\302!@\211<\203\303 @!\203\304 !\302\207" [string func read-from-string functionp eval] 3) ((error)) get-buffer-window 1 buffer-list select-window other-window next-window selected-window delete-other-windows split-window-vertically display-buffer next-command-event event-to-character vector recent-keys (key-board-quit skk-kanagaki-bs skk-kanagaki-esc) where-is-internal key-description mapcar #[(k) "\301!\207" [k key-description] 2] signal quit inhibit-read-only string func keys char skk-j-mode-map map commands key command #2=#:--dolist-temp--36106 unread-command-events] 6))] 1) ((quit (byte-code "\304\305\306\307 \"@\304H! \nC\244\211)\207" [skk-henkan-count skk-j-mode-map event unread-command-events 0 character-to-event where-is-internal skk-previous-candidate] 4)))] 3]) (defalias 'skk-annotation-show-as-message #[(annotation) "\303\304\305\306\307\310\217\210 *\"\207" [annotation string func message "%s" nil #1=#:G36107 (byte-code "\302!@\211<\203\303 @!\203\304 !\302\207" [string func read-from-string functionp eval] 3) ((error))] 5]) (defalias 'skk-annotation-setup #[nil "\306\306 \236A)\203#\307\307 \236A)\310\310 \236A)\306\306 \236A)E\211\207\311\312!\211\313\230\203:\314\315\f\2037\316\2028\317\"\210 \320\321 \"\205L \322\224\323O\313\211\324 CE\325 \207" [key skk-last-henkan-data skk-annotation-annotated-word skk-henkan-key skk-japanese-message-and-error skk-okuri-char henkan-list henkan-key okuri-char read-from-minibuffer "Midasi: " "" error "%s" "’₯’’₯Ξ’₯Ζ’‘Ό’₯·’₯η’₯σ’€Ή’€λ’Γ±’Έμ’€¬’€’’€κ’€ή’€»’€σ" "No word to be annotated" string-match "^[^a-zA-Z]+\\([a-z]+\\)$" 1 nil skk-henkan-in-minibuff skk-kakutei skk-henkan-okurigana] 5]) #@319 ’ΊΗ’Έε’€Λ’³Ξ’Δκ’€·’€Ώ’Έμ’€Λ annotation ’€ς’ΙΥ’€±’€λ’‘£ ’΄ϋ’€Λ’ΙΥ’€±’€ι’€μ’€Ζ’€€’€λ annotation ’€¬’€’’€μ’€Π’€½’€μ’€ς’ΚΤ’½Έ’₯Π’₯Γ’₯Υ’₯‘’€Λ’½Π’ΞΟ’€Ή’€λ’‘£ no-previous-annotation ’€ς’»Ψ’Δκ’€Ή’€λ’€Θ (C-u M-x skk-annotation-add ’€Η’»Ψ’Δκ’²Δ) ’΄ϋ’€Λ’ΙΥ’€±’€ι’€μ’€Ζ’€€’€λ annotation ’€ς’ΚΤ’½Έ’₯Π’₯Γ’₯Υ’₯‘’€Λ’½Π’ΞΟ’€·’€Κ’€€’‘£ (defalias 'skk-annotation-add #[(&optional no-previous-annotation) "\306 \307\216\310 \210\311 \210\312\313\314\"\315\n8@\211\203(\316\317 \"\203( \320\211\224O\202) \211\205:\316\317 \"\205: \320\225\321O\322 )\323 \210\324 \210\325\326!\210\327\330*!!\210\321+\331,\331\321+-\332ed\321#\210\333 *\210\334\335\f\"c\210\336e`S #\210.\204 \203 c\210\337\340!\210\341\342\343\344\345\346/\"\347#\343\344\345\350/\"\347##.\207" [save-match-data-internal plist skk-annotation-annotated-word wholestring realword annotation match-data ((set-match-data save-match-data-internal)) skk-kakutei skk-annotation-setup append (intangible t read-only t) (front-sticky t rear-nonsticky t) 2 string-match ";\\**" 0 nil current-window-configuration delete-other-windows split-window-vertically other-window 1 switch-to-buffer get-buffer-create t set-text-properties erase-buffer format ";; Add a note to word `%s' (this line will not be added to the note.)\n" add-text-properties run-hooks skk-annotation-mode-hook message "%s to save edits, %s to just kill this buffer" mapconcat key-description where-is-internal skk-annotation-save-and-quit ", " skk-annotation-kill skk-annotation-original-window-configuration skk-annotation-buffer buffer-read-only skk-annotation-mode inhibit-read-only no-previous-annotation skk-annotation-mode-map] 9 (#$ . 4890) "P"]) #@92 ’ΊΗ’Έε’€Λ’³Ξ’Δκ’€·’€Ώ’Έμ’€Λ annotation ’€ς’ΙΥ’€±’€Ζ annotation ’₯Π’₯Γ’₯Υ’₯‘’€ς’ΚΔ’€Έ’€λ’‘£ (defalias 'skk-annotation-save-and-quit #[(&optional quiet) "\305\306 \307\216r\310\n!q\210eb\210\311\312!\203\313y\210\314 \210\315`d\"\316\317\"\203.\320\225\305O\316\321\"\203;\320\211\224O\322\230\203C\305\323!+\203P\324\325!\210\326 !\210\205a\f?\205a\327\330\331\")\207" [annotation save-match-data-internal skk-annotation-buffer skk-annotation-original-window-configuration quiet nil match-data ((set-match-data save-match-data-internal)) get-buffer-create looking-at "^[ ]*;" 1 beginning-of-line buffer-substring-no-properties string-match "^[ \n ’‘‘]+" 0 "[ \n ’‘‘]+$" "" skk-quote-char skk-annotation-last-word-1 #[(beg end) "b\210\303\304 \305#\203\306\224\306\225|\210 b\210\307\n\261\207" [beg end annotation re-search-forward ";[^/]*" t 0 ";*"] 4] set-window-configuration message "%s" "Added annotation"] 3 (#$ . 6581) "P"]) #@70 annotation ’€ς’ΙΥ’€±’€Ί’€Λ annotation ’₯Π’₯Γ’₯Υ’₯‘’€ς kill ’€Ή’€λ’‘£ (defalias 'skk-annotation-kill #[nil "\303\304\305ed\304#\210\306 *\210\307p!\210\310\n!\207" [buffer-read-only inhibit-read-only skk-annotation-original-window-configuration t nil set-text-properties erase-buffer kill-buffer set-window-configuration] 4 (#$ . 7546) nil]) #@62 ’ΊΗ’Έε’€Λ’³Ξ’Δκ’€·’€Ώ’Έμ’€«’€ι annotation ’€ς’Όθ’€κ’΅ξ’€λ’‘£ (defalias 'skk-annotation-remove #[nil "\303 \304\216\305 \210\306 \210\307\310 \203\311\202\312\313\n8@\"!\205\"\314\315!*\207" [save-match-data-internal skk-japanese-message-and-error skk-annotation-annotated-word match-data ((set-match-data save-match-data-internal)) skk-kakutei skk-annotation-setup yes-or-no-p format "%s ’€Λ’€Δ’€€’€Ζ’€Ξ’₯’’₯Ξ’₯Ζ’‘Ό’₯·’₯η’₯σ’€ς’Ίο’½ό’€·’€ή’€Ή’€«’‘© " "Really delete annotation for %s? " 2 skk-annotation-last-word-1 #[(beg end) "b\210\302\303 \304#\205\305\224\305\225|\207" [beg end re-search-forward ";[^/]*" t 0] 4]] 5 (#$ . 7895) nil]) (defalias 'skk-annotation-last-word-1 #[(function) "\306\307\310\"\311 8@\312 \312 \312 \313\314!\205\340\315  \316\216rq\210 A@\2037!\2029\"b\210\317\320\321 @!\322Q A@\205K#\306\313$\205\337\323\224b\210 \324 $\325\216\313\210`*\313\223\210\326\327\"\203t\330\211\224O\317\331\332Q \306\313$\205\337 \323\224\313\223\210\f\311\225\206\217\323\225\313\223\210% \f\"\210 A@\203\321\fb\210\333\334 \306\313$\210\331\332Q\317\n \306\313$\203\321 \323\224\313\223\210\f\311\225\206\305\323\225\313\223\210% \f\"\210\202\256 \313\211\223\210\f\313\211\223\210 \313\211\223+.\207" [skk-jisyo skk-annotation-annotated-word pattern eol end beg t skk-get-jisyo-buffer nomsg 2 make-marker nil buffer-live-p match-data ((set-match-data save-match-data-internal)) re-search-forward "^\\(" regexp-quote "\\) /" 1 point-marker ((byte-code "b\210\204\n\301 \302\211\223\207" [skk-save-point make-marker nil] 3)) string-match ";" 0 "/\\(" "\\)\\(;[^/]*\\)*/" search-forward "/[" word jisyo-buffer inhibit-quit save-match-data-internal skk-okuri-ari-min skk-okuri-nasi-min skk-okuri-ari-max skk-save-point function] 7]) #@89 ’ΊΗ’Έε’€Λ’³Ξ’Δκ’€·’€Ώ’Έμ’€Λ’΄ή’€ή’€μ’€λ `;' ’€ς’Έυ’Κδ’€Ξ’°μ’Ιτ’€Θ’€·’€Ζ quote ’€Ή’€λ’‘£ (defalias 'skk-annotation-quote #[(&optional quiet) "\301 \210\302 \210\303\304\305!)\207" [candidate skk-kakutei skk-annotation-setup nil skk-annotation-last-word-1 #[(beg end) "b\210\304 \"\305\306\n\"\205! |\210\307\n!c\210 ?\205!\310\311\312\"\207" [beg end candidate quiet buffer-substring-no-properties string-match ";" skk-quote-semicolon message "%s" "Quoted"] 3]] 2 (#$ . 9706) "P"]) (defalias 'skk-annotation-update-jisyo-format #[nil "\305 \210 \306 \n\"\210\fd\306 \n\"*\207" [skk-okuri-ari-min skk-okuri-ari-max max min skk-okuri-nasi-min skk-setup-jisyo-buffer skk-annotation-update-jisyo-format-1] 3 nil nil]) (defalias 'skk-annotation-update-jisyo-format-1 #[(min max) "\303 b\210\304\305\n\306\303$\205/\307\310\224\310\225\"\310\224\310\225|\210\310\224b\210\311\312\313\314\303\"\315#\316Qc\210\202)\207" [candidate min max nil re-search-forward "\\/\\([^\n/]*;[^\n/]*\\)\\/" t buffer-substring-no-properties 1 "(concat \"" mapconcat #[(c) "\301=\203\302\207\303!\207" [c 59 "\\073" char-to-string] 2] append "" "\")"] 6]) (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-annotation product-find-by-name "Daredevil SKK" product-run-checkers (12 2 0) product-add-feature product-version vector nil "Sone" "12.2.0"] 12)