;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-dcomp.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-dcomp.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'skk-comp) (defalias 'skk-dcomp-face-on #[(start end) "\306\307 !\204\310\n \"\f\203\311 \312\f#\210\311 \313 #\202$\314 \n #)\207" [inhibit-quit skk-dcomp-extent start end skk-dcomp-face-priority skk-dcomp-face t overlayp make-overlay overlay-put priority face move-overlay] 4]) (put 'skk-dcomp-face-on 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-dcomp-face-off #[nil "\301!\207" [skk-dcomp-extent skk-detach-extent] 2]) (put 'skk-dcomp-face-off 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-dcomp-marked-p #[nil "\303=\205!\304 !\205!\304\n!\205!\305 !\205!\305\n!\205! \nW\207" [skk-henkan-mode skk-dcomp-start-point skk-dcomp-end-point on markerp marker-position] 2]) (put 'skk-dcomp-marked-p 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-dcomp-delete-completion #[nil "\300\301\302\217\207" [#1=#:G36115 (delete-region skk-dcomp-start-point skk-dcomp-end-point) ((error))] 3]) (put 'skk-dcomp-delete-completion 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-dcomp-cleanup-buffer #[nil "\205; \305=\205;\306\n!\205;\306 !\205;\307\n!\205;\307 !\205;\n W\205;\310\f!\210 `|\210 \2047\311  `\312\223\207" [skk-dcomp-activate skk-henkan-mode skk-dcomp-start-point skk-dcomp-end-point skk-dcomp-extent on markerp marker-position skk-detach-extent make-marker nil] 3]) (defalias 'skk-dcomp-do-completion #[(pos) "\205 \303=\205\n?\205\304\305\306\217\207" [skk-dcomp-activate skk-henkan-mode skk-okurigana on nil (byte-code "\306\307\310\"\210\204\f\311  \312\223\210\n\204\311 \n`\312\223\210\n\313\314!\204G\315\f \"\203=\316\317#\210\316\320#\202M\321\f #)\210*b\207" [skk-dcomp-start-point pos skk-dcomp-end-point end start inhibit-quit skk-comp-do first silent make-marker nil t overlayp make-overlay overlay-put priority face move-overlay skk-dcomp-extent skk-dcomp-face-priority skk-dcomp-face] 4) ((error (byte-code "\301\302\301!\207" [skk-comp-stack nil message] 2)))] 3]) (defalias 'skk-dcomp-before-kakutei #[nil "\2056 \305=\2056 \305=\2056\306\n!\2056\306 !\2056\307\n!\2056\307 !\2056\n W\2056\310\f!\210\311\312\313\217\207" [skk-dcomp-activate skk-henkan-mode skk-dcomp-start-point skk-dcomp-end-point skk-dcomp-extent on markerp marker-position skk-detach-extent #1=#:G36115 (delete-region skk-dcomp-start-point skk-dcomp-end-point) ((error))] 3]) (defalias 'skk-dcomp-after-kakutei #[nil "\205 \204 \304  \305\211\223\210\n\204\304 \n\305\211\223\210\305\211\207" [skk-dcomp-activate skk-dcomp-start-point skk-dcomp-end-point skk-comp-stack make-marker nil] 3]) (defalias 'skk-dcomp-after-delete-backward-char #[nil "\205D ?\205D\n\205D \306=\205D \306=\203A\307\f!\203A\307 !\203A\310\f!\203A\310 !\203A\f W\203A\311!\210\312\313\314\217\210\315`!\207" [skk-mode skk-abbrev-mode skk-dcomp-activate skk-henkan-mode skk-dcomp-start-point skk-dcomp-end-point on markerp marker-position skk-detach-extent #1=#:G36115 (delete-region skk-dcomp-start-point skk-dcomp-end-point) ((error)) skk-dcomp-do-completion skk-dcomp-extent] 3]) (byte-code "\301\302\303\304\305$\210\306\302\305\"\210\301\307\310\304\305$\210\306\307\305\"\210\301\311\312\304\305$\210\306\311\305\"\210\301\313\314\304\305$\210\306\313\305\"\210\301\315\316\317\305$\210\306\315\305\"\210\301\320\321\317\305$\210\306\320\305\"\210\301\322\323\304\305$\210\306\322\305\"\210\301\324\325\326\305$\210\306\324\305\"\210\301\327\330\326\305$\210\306\327\305\"\210\301\331\332\326\305$\210\306\331\305\"\210\333\300!\210\333\334!\210\335\336\337!\300\340\341!\342\343\"\210\344\336\337!\"\210\345!\343\232\203\241\202\254\346\341\305\343\347\305\211\211\350&)#\210\336\337!\207" [product ad-add-advice skk-kana-input (skk-dcomp-ad nil t (advice lambda nil (cond ((not (and skk-dcomp-activate skk-henkan-mode)) ad-do-it) (t (cond ((or (eq skk-henkan-mode 'active) (skk-get-prefix skk-current-rule-tree) (not skk-comp-stack)) (skk-set-marker skk-dcomp-start-point nil) (skk-set-marker skk-dcomp-end-point nil)) ((skk-dcomp-marked-p) (skk-dcomp-face-off) (unless (member (this-command-keys) skk-dcomp-keep-completion-keys) (skk-dcomp-delete-completion)))) ad-do-it (when (and skk-j-mode (not (skk-get-prefix skk-current-rule-tree))) (skk-dcomp-do-completion (point))))))) around nil ad-activate skk-set-henkan-point-subr (skk-dcomp-ad nil t (advice lambda nil (cond (skk-dcomp-activate (let ((henkan-mode skk-henkan-mode)) ad-do-it (unless (or henkan-mode (char-after (point))) (skk-dcomp-do-completion (point))))) (t ad-do-it)))) skk-kakutei (skk-dcomp-ad nil t (advice lambda nil (skk-dcomp-before-kakutei) ad-do-it (skk-dcomp-after-kakutei))) keyboard-quit (skk-dcomp-ad nil t (advice lambda nil (skk-dcomp-before-kakutei) ad-do-it (skk-dcomp-after-kakutei))) skk-start-henkan (skk-dcomp-ad nil t (advice lambda nil (skk-dcomp-cleanup-buffer))) before skk-process-prefix-or-suffix (skk-dcomp-ad nil t (advice lambda nil (when skk-henkan-mode (skk-dcomp-cleanup-buffer)))) skk-comp (skk-dcomp-ad nil t (advice lambda nil (cond ((and skk-dcomp-activate (skk-dcomp-marked-p)) (goto-char skk-dcomp-end-point) (setq this-command 'skk-comp-do) (skk-dcomp-face-off) (skk-set-marker skk-dcomp-start-point nil) (skk-set-marker skk-dcomp-end-point nil)) (t ad-do-it)))) skk-delete-backward-char (skk-dcomp-ad nil t (advice lambda nil (skk-dcomp-after-delete-backward-char))) after viper-del-backward-char-in-insert (skk-dcomp-ad nil t (advice lambda nil (skk-dcomp-after-delete-backward-char))) vip-del-backward-char-in-insert (skk-dcomp-ad nil t (advice lambda nil (skk-dcomp-after-delete-backward-char))) require skk-version put provide skk-dcomp product-find-by-name "Daredevil SKK" product-run-checkers (12 2 0) product-add-feature product-version vector "Sone" "12.2.0"] 12)