;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-macs.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-macs.el' was compiled for Emacs 20 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\302\303!\210\304\305\306\307=?#\210\310\305!\204!\305\311M\210\305 B\304\305\306\312#\210\304\313\314\315#\210\304\313\306\316=#\210\304\317\314\315#\210\304\317\306\316=#\207" [skk-emacs-type current-load-list require skk-vars put ignore-errors defmacro-maybe xemacs fboundp (macro . #[(&rest body) "\301\302\303B\304BBB\207" [body condition-case nil progn ((error nil))] 4 "Execute FORMS; if an error occurs, return nil.\nOtherwise, return result of last FORM."]) t dolist lisp-indent-function 1 mule4 dotimes] 5) #@201 Defines a piece of advice for FUNCTION (a symbol). This is like `defadvice', but warns if FUNCTION is a subr command and advice doesn't give arguments of `interactive'. See `interactive' for details. (defalias 'skk-defadvice '(macro . #[(function &rest everything-else) "\305!\205!\306N\203\301\306N\236A\305 !\205 K)\202!K\307\211\203\310 !\203\311>\204\fA@;\203J\312\f8\242\302=\203J\312\f8\202V\fA@\242\302=\205V\fA@\313 !\203j\n\204j\314\315\316#\210\202\313 !\204\n\203\317\n\f\"\314\320\211#\210\321\f*BB\207" [function origname interactive origfunc everything-else fboundp ad-advice-info nil subrp (abort-recursive-edit bury-buffer delete-frame delete-window exit-minibuffer) 2 commandp message "%s" "*** WARNING: Adding advice to subr %s without mirroring its interactive spec ***" delq "*** WARNING: Deleted interactive call from %s advice as %s is not a subr command ***" defadvice] 5 (#$ . 1178)])) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put skk-defadvice lisp-indent-function defun edebug-form-spec defadvice] 4) (defalias 'skk-save-point '(macro . #[(&rest body) "\301\302\303\304B\305BBE\207" [body let ((skk-save-point (point-marker))) unwind-protect progn ((goto-char skk-save-point) (skk-set-marker skk-save-point nil))] 5])) (put 'skk-save-point 'edebug-form-spec t) #@250 ’¥á’¥Ã’¥»’¡¼’¥¸’¤ò’ɽ’¼¨’¤¹’¤ë’¡£ `skk-japanese-message-and-error' ’¤¬ non-nil ’¤À’¤Ã’¤¿’¤é JAPANESE ’¤ò nil ’¤Ç’¤¢’¤ì’¤Ð ENGLISH ’¤ò’¥¨’¥³’¡¼’¥¨’¥ê’¥¢’¤Ë’ɽ’¼¨’¤¹’¤ë’¡£ARG ’¤Ï `message' ’´Ø’¿ô’¤Î’Âè’£²’°ú’¿ô’°Ê’¹ß’¤Î’°ú’¿ô’¤È ’¤·’¤Æ’ÅÏ’¤µ’¤ì’¤ë’¡£ (defalias 'skk-message '(macro . #[(japanese english &rest arg) "\303\203\304\305\306 \nFD\202\304\307\305\306 \nFE\"\207" [arg japanese english append message if skk-japanese-message-and-error "%s"] 7 (#$ . 2526)])) #@306 ’¥á’¥Ã’¥»’¡¼’¥¸’¤ò’ɽ’¼¨’¤·’¤Æ’¡¢’¥¨’¥é’¡¼’¤ò’ȯ’À¸’¤µ’¤»’¤ë’¡£ `skk-japanese-message-and-error' ’¤¬ non-nil ’¤À’¤Ã’¤¿’¤é JAPANESE ’¤ò nil ’¤Ç’¤¢’¤ì’¤Ð ENGLISH ’¤ò’¥¨’¥³’¡¼’¥¨’¥ê’¥¢’¤Ë’ɽ’¼¨’¤·’¡¢’¥¨’¥é’¡¼’¤ò’ȯ’À¸’¤µ’¤»’¤ë’¡£ ARG ’¤Ï `error' ’´Ø’¿ô’¤Î’Âè ’£²’°ú’¿ô’°Ê’¹ß’¤Î’°ú’¿ô’¤È’¤·’¤Æ’ÅÏ’¤µ’¤ì’¤ë’¡£ (defalias 'skk-error '(macro . #[(japanese english &rest arg) "\303\203\304\305\306 \nFD\202\304\307\305\306 \nFE\"\207" [arg japanese english append error if skk-japanese-message-and-error "%s"] 7 (#$ . 3005)])) #@463 ’¥æ’¡¼’¥¶’¤Ë yes-or-no ’¤Î’¼Á’Ìä’¤ò’¤·’¡¢’Åú’¤¨’¤¬ yes ’¤À’¤Ã’¤¿’¤é t ’¤ò’ÊÖ’¤¹’¡£ `skk-japanese-message-and-error' ’¤¬ non-nil ’¤Ç’¤¢’¤ì’¤Ð JAPANESE ’¤ò nil ’¤Ç’¤¢’¤ì ’¤Ð ENGLISH ’¤ò’¥×’¥í’¥ó’¥×’¥È’¤È’¤·’¤Æ `yes-or-no-p' ’¤ò’¼Â’¹Ô’¤¹’¤ë’¡£ `yes-or-no-p' ’¤Î’°ú’¿ô’¤Î’¥×’¥í’¥ó’¥×’¥È’¤¬’Ê£’»¨’¤Ë’Æþ’¤ì’¹þ’¤ó’¤Ç’¤¤’¤ë’¾ì’¹ç’¤Ï’¤³’¤Î’¥Þ’¥¯’¥í’¤ò’»È’¤¦ ’¤è’¤ê’¥ª’¥ê’¥¸’¥Ê’¥ë’¤Î `yes-or-no-p' ’¤ò’»È’ÍÑ’¤·’¤¿’Êý’¤¬’¥³’¡¼’¥É’¤¬’Ê£’»¨’¤Ë’¤Ê’¤é’¤Ê’¤¤’¾ì’¹ç’¤¬’¤¢ ’¤ë’¡£ (defalias 'skk-yes-or-no-p '(macro . #[(japanese english) "\302\303\304 FD\207" [japanese english yes-or-no-p if skk-japanese-message-and-error] 5 (#$ . 3536)])) #@237 ’¥æ’¡¼’¥¶’¤Ë "y or n" ’¤Î’¼Á’Ìä’¤ò’¤·’¡¢’Åú’¤¨’¤¬ y" ’¤À’¤Ã’¤¿’¤é t ’¤ò’ÊÖ’¤¹’¡£ `skk-japanese-message-and-error' ’¤¬ non-nil ’¤Ç’¤¢’¤ì’¤Ð JAPANESE ’¤ò nil ’¤Ç’¤¢’¤ì ’¤Ð ENGLISH ’¤ò’¥×’¥í’¥ó’¥×’¥È’¤È’¤·’¤Æ `y-or-n-p' ’¤ò’¼Â’¹Ô’¤¹’¤ë’¡£ (defalias 'skk-y-or-n-p '(macro . #[(japanese english) "\302\303\304 FD\207" [japanese english y-or-n-p if skk-japanese-message-and-error] 5 (#$ . 4168)])) #@208 ’¥Þ’¡¼’¥« MARKER ’¤ò BUFFER ’¤Î POSITION ’¤Ë’°Ü’Æ°’¤¹’¤ë’¡£ BUFFER ’¤Î’¥Ç’¥£’¥Õ’¥©’¥ë’¥È’ÃÍ’¤Ï’¥«’¥ì’¥ó’¥È’¥Ð’¥Ã’¥Õ’¥¡’¤Ç’¤¢’¤ë’¡£ MARKER ’¤¬ nil ’¤À’¤Ã’¤¿’¤é’¡¢’¿·’µ¬’¥Þ’¡¼’¥«’¡¼’¤ò’ºî’¤Ã’¤Æ’Âå’Æþ’¤¹’¤ë’¡£ (defalias 'skk-set-marker '(macro . #[(marker position &optional buffer) "\303\304\305D\306\307CEE\310 \nFE\207" [marker position buffer progn if not setq make-marker set-marker] 6 (#$ . 4568)])) (put 'skk-deflocalvar 'lisp-indent-function 'defun) #@113 SYMBOL ’¤Ë’¤Ä’¤¤’¤Æ INITVALUE ’¤ò’ÃÍ’¤Ë’»ý’¤Ä’ÊÑ’¿ô’¤È’¤·’¤Æ’Àë’¸À’¤·’¡¢’¥Ð’¥Ã’¥Õ’¥¡’¥í’¡¼’¥«’¥ë’ÃÍ’¤Ë’¤¹’¤ë’¡£ (defalias 'skk-deflocalvar '(macro . #[(symbol initvalue &optional docstring) "\303\304 \305\306\n\"F\307\310DDE\207" [symbol initvalue docstring progn defvar format "%s\n(buffer local)" make-variable-buffer-local quote] 7 (#$ . 5033)])) #@89 ’¥Ý’¥¤’¥ó’¥È’¤ò’°Ü’Æ°’¤¹’¤ë’¤¬’¥Õ’¥Ã’¥¯’¤ò’¼Â’¹Ô’¤·’¤Æ’¤Û’¤·’¤¯’¤Ê’¤¤’¾ì’¹ç’¤Ë’»È’¤¦’¡£ (defalias 'skk-with-point-move '(macro . #[(&rest form) "\301\302B\303BB\207" [form unwind-protect progn ((setq skk-previous-point (point)))] 3 (#$ . 5391)])) (put 'skk-with-point-move 'edebug-form-spec t) (defalias 'skk-face-on '(macro . #[(object start end face &optional priority) "\305\306\307\310\311DD\312\313\314 \nEE\315 \316\317 FE\316\320\fFF\321 \nFFE\207" [object start end priority face let ((inhibit-quit t)) if not overlayp progn setq make-overlay when overlay-put 'priority 'face move-overlay] 12])) (defalias 'skk-cannot-be-undone '(macro . #[(&rest body) "\301\302\303\304B\305BBE\207" [body let ((buffer-undo-list t) (modified (buffer-modified-p))) unwind-protect progn ((set-buffer-modified-p modified))] 5])) (put 'skk-loop-for-buffers 'lisp-indent-function 1) #@79 BUFFERS ’¤¬’»Ø’Äê’¤¹’¤ë’³Æ’¥Ð’¥Ã’¥Õ’¥¡’¤Ë’°Ü’Æ°’¤·’¤Æ BODY ’¤ò’¼Â’¹Ô’¤¹’¤ë’¡£ (defalias 'skk-loop-for-buffers '(macro . #[(buffers &rest body) "\302\303\304D\305\306\307 BBBED\207" [buffers body save-current-buffer dolist buf when (buffer-live-p buf) (set-buffer buf)] 7 (#$ . 6274)])) #@57 `sit-for' ’¤Î Emacsen ’¤Ë’¤è’¤ë’°ã’¤¤’¤ò’µÛ’¼ý’¤¹’¤ë’¡£ (defalias 'skk-sit-for #[(seconds &optional nodisplay) "\302\303 #\207" [seconds nodisplay sit-for nil] 4 (#$ . 6567)]) (put 'skk-sit-for 'byte-optimizer 'byte-compile-inline-expand) #@54 `ding' ’¤Î Emacsen ’¤Ë’¤è’¤ë’°ã’¤¤’¤ò’µÛ’¼ý’¤¹’¤ë’¡£ (defalias 'skk-ding #[(&optional arg sound device) "\301!\207" [arg ding] 2 (#$ . 6813)]) (put 'skk-ding 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-color-display-p #[nil "\205\301 \207" [window-system x-display-color-p] 1]) (put 'skk-color-display-p 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-char-to-string #[(char) "\300\301\302\217\207" [#1=#:G36122 (char-to-string char) ((error))] 3]) (put 'skk-char-to-string 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-ascii-char-p #[(char) "\301!\302=\207" [char char-charset ascii] 2]) (put 'skk-ascii-char-p 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-jisx0208-p #[(char) "\301!\302=\207" [char char-charset japanese-jisx0208] 2]) (put 'skk-jisx0208-p 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-jisx0213-p #[(char) "\301\302!\205 \303!\304>\207" [char featurep jisx0213 char-charset (japanese-jisx0213-1 japanese-jisx0213-2)] 2]) (put 'skk-jisx0213-p 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-char-octet #[(ch &optional n) "\302 \"\207" [ch n char-octet] 3]) (put 'skk-char-octet 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-charsetp #[(object) "\2119\205\f\301\302N!)\207" [object vectorp charset] 4]) (put 'skk-charsetp 'byte-optimizer 'byte-compile-inline-expand) #@86 SKK ’¥¤’¥ó’¥¸’¥±’¡¼’¥¿’·¿’¥ª’¥Ö’¥¸’¥§’¥¯’¥È INDICATOR ’¤ò’ʸ’»ú’Îó’¤Ë’ÊÑ’´¹’¤¹’¤ë’¡£ (defalias 'skk-indicator-to-string #[(indicator &optional no-properties) "\203\303\304\305!!\306\216r q\210\nc\210\307ed\"+\207\n\207" [no-properties #1=#:temp-buffer indicator get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) buffer-substring-no-properties] 3 (#$ . 8211)]) (put 'skk-indicator-to-string 'byte-optimizer 'byte-compile-inline-expand) #@84 ’ʸ’»ú’Îó STRING ’¤ò SKK ’¥¤’¥ó’¥¸’¥±’¡¼’¥¿’·¿’¥ª’¥Ö’¥¸’¥§’¥¯’¥È’¤Ë’ÊÑ’´¹’¤¹’¤ë’¡£ (defalias 'skk-mode-string-to-indicator #[(mode string) "\203 \304=\204\305\306\n \236A#\207\n\207" [window-system mode string skk-e21-property-alist default apply propertize] 5 (#$ . 8739)]) (put 'skk-mode-string-to-indicator 'byte-optimizer 'byte-compile-inline-expand) #@98 Non-nil if VARIABLE has a local binding in buffer BUFFER. BUFFER defaults to the current buffer. (defalias 'skk-local-variable-p #[(variable &optional buffer afterset) "\302 \206p\"\207" [variable buffer local-variable-p] 3 (#$ . 9106)]) (put 'skk-local-variable-p 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-face-proportional-p #[(face) "\300\207" [nil] 1]) (put 'skk-face-proportional-p 'byte-optimizer 'byte-compile-inline-expand) #@69 ’¥¤’¥Ù’¥ó’¥È EVENT ’¤ò’ȯ’À¸’¤·’¤¿’Æþ’ÎÏ’¤Î’¾ð’Êó’¤ò’¼è’ÆÀ’¤¹’¤ë’¡£ (defalias 'skk-event-key #[(event) "\303!\304\211\203\305\n!\202\306 \305 \211GSH!*\207" [event keys char event-to-character nil vector recent-keys] 4 (#$ . 9565)]) (put 'skk-event-key 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-cursor-set #[(&optional color force) "\204 \205 \303\n!\207" [skk-use-color-cursor force color skk-cursor-set-1] 2]) (put 'skk-cursor-set 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-cursor-off #[nil "\205\301 \207" [skk-use-color-cursor skk-cursor-off-1] 1]) (put 'skk-cursor-off 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-modify-indicator-alist #[(mode string) " \236\n\n \203\305=\204\306\307\n\f\236A#\202\n*B\241\207" [mode skk-indicator-alist string window-system skk-e21-property-alist default apply propertize] 7]) (put 'skk-modify-indicator-alist 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-update-modeline #[(&optional mode string) "\204\306 \2031 \211\n\236   \203+\306=\204+\307\310 \f\236A#\202, *B\241\210*\n\236A \311=\203B A\202D @\f\312 )\207" [mode string skk-indicator-alist window-system skk-e21-property-alist indicator default apply propertize left force-mode-line-update skk-status-indicator skk-modeline-input-mode] 8]) (put 'skk-update-modeline 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-make-rule-tree #[(char prefix nextstate kana branch-list) " \n\305\230?\205\n\n \f\257\207" [char prefix nextstate kana branch-list ""] 5]) (put 'skk-make-rule-tree 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-get-prefix #[(tree) "A@\207" [tree] 1]) (put 'skk-get-prefix 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-get-nextstate #[(tree) "\3018\207" [tree 2] 2]) (put 'skk-get-nextstate 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-set-nextstate #[(tree nextstate) "\302\230\203\303 AA\240\207" [nextstate tree "" nil] 2]) (put 'skk-set-nextstate 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-get-kana #[(tree) "\3018\207" [tree 3] 2]) (put 'skk-get-kana 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-set-kana #[(tree kana) "\302\233 \240\207" [tree kana 3] 2]) (put 'skk-set-kana 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-get-branch-list #[(tree) "\3018\207" [tree 4] 2]) (put 'skk-get-branch-list 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-set-branch-list #[(tree branch-list) "\302\233 \240\207" [tree branch-list 4] 2]) (put 'skk-set-branch-list 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-add-branch #[(tree branch) " \3038)B\303\233\n\240*\207" [tree branch branch-list 4] 4]) (put 'skk-add-branch 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-select-branch #[(tree char) " \302 8)\236\207" [char tree 4] 3]) (put 'skk-select-branch 'byte-optimizer 'byte-compile-inline-expand) #@261 `skk-echo' ’¤¬’Èó nil ’¤Ç’¤¢’¤ì’¤Ð’¸½’ºß’¤Î’¥Ð’¥Ã’¥Õ’¥¡’¤Ë’ÁÞ’Æþ’¤µ’¤ì’¤¿ `skk-prefix' ’¤ò’¾Ã’¤¹’¡£ ’¥ª’¥×’¥·’¥ç’¥ó’°ú’¿ô’¤Î CLEAN ’¤¬’»Ø’Äê’¤µ’¤ì’¤ë’¤È’¡¢’ÊÑ’¿ô’¤È’¤·’¤Æ’¤Î `skk-prefix' ’¤ò’¶õ’ʸ’»ú’¤Ë’¡¢ `skk-current-rule-tree' ’¤ò nil ’¤Ë’½é’´ü’²½’¤¹’¤ë’¡£ (defalias 'skk-erase-prefix #[(&optional clean) "\203 \203\n\306\230\204\307 !\211\203\310\311\312\217\210)\f\205%\306\310\211\207" [skk-echo skk-kana-start-point skk-prefix start clean skk-current-rule-tree "" marker-position nil (byte-code "\304\305 \306\216\n\211 G\\|\210+\304\207" [modified buffer-undo-list start skk-prefix t buffer-modified-p ((set-buffer-modified-p modified))] 3) ((error (byte-code "\204\303 \304\211\223\210\305\304\304\207" [skk-kana-start-point skk-prefix skk-current-rule-tree make-marker nil ""] 3)))] 4 (#$ . 12558)]) (put 'skk-erase-prefix 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-kana-cleanup #[(&optional force) "\203\306 8)\204\307 8)\202\n\205\n @\310 \204(\f\205\220\311 \203L\203L\312\230\204L\313!\211\203K\310\314\315\217\210) \203V\312\310)\316\f!\203c\f\310!\202d\f\211:\203w\203t @\202v A ;\203\200\317 !\210\204\211\320 \310\211\223\210\321*\207" [skk-current-rule-tree tree skk-kana-input-search-function kana data force 2 3 nil clean "" marker-position (byte-code "\304\305 \306\216\n\211 G\\|\210+\304\207" [modified buffer-undo-list start skk-prefix t buffer-modified-p ((set-buffer-modified-p modified))] 3) ((error (byte-code "\204\303 \304\211\223\210\305\304\304\207" [skk-kana-start-point skk-prefix skk-current-rule-tree make-marker nil ""] 3))) functionp skk-insert-str make-marker t skk-echo skk-kana-start-point skk-prefix start skk-katakana] 5]) (put 'skk-kana-cleanup 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-numeric-p #[nil "\205 \302\303!\205 \207" [skk-use-numeric-conversion skk-num-list require skk-num] 2]) (put 'skk-numeric-p 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-file-exists-and-writable-p #[(file) "\301!\211\205\302!\205\303!\207" [file expand-file-name file-exists-p file-writable-p] 2]) (put 'skk-file-exists-and-writable-p 'byte-optimizer 'byte-compile-inline-expand) #@72 CHAR ’¤¬’¾®’ʸ’»ú’¤Î’¥¢’¥ë’¥Õ’¥¡’¥Ù’¥Ã’¥È’¤Ç’¤¢’¤ì’¤Ð’¡¢t ’¤ò’ÊÖ’¤¹’¡£ (defalias 'skk-lower-case-p #[(char) "\301X\205 \302Y\207" [char 97 122] 2 (#$ . 14822)]) (put 'skk-lower-case-p 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-downcase #[(char) " \236A\206 \227\207" [char skk-downcase-alist] 2]) (put 'skk-downcase 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-mode-off #[nil "\306\306\306\306\306\306\306\306\211\211\204\307\203X\211\236\203Q\307=\204Q\310\311\236A#\202S*B\241\210*\236A\312=\203mA\202p@\313 )\210*\203\314 \210\315\316\317\320#\207" [skk-mode skk-abbrev-mode skk-latin-mode skk-j-mode skk-jisx0208-latin-mode skk-jisx0201-mode nil default apply propertize left force-mode-line-update skk-cursor-off-1 remove-hook pre-command-hook skk-pre-command local skk-katakana string mode skk-indicator-alist window-system skk-e21-property-alist indicator skk-status-indicator skk-modeline-input-mode skk-use-color-cursor] 9]) (put 'skk-mode-off 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-j-mode-on #[(&optional katakana) "\306\307\307\306\307\307 \310 \210\203\311\202\312\307\211\204)\313\203e\211\236\203^\313=\204^\314\315\236A#\202`*B\241\210*\236A\316=\203zA\202}@\317 )\210*\307\211\204\224\205\230\320!*\207" [skk-mode skk-abbrev-mode skk-latin-mode skk-j-mode skk-jisx0208-latin-mode skk-jisx0201-mode t nil skk-setup-keymap katakana hiragana default apply propertize left force-mode-line-update skk-cursor-set-1 skk-katakana string mode skk-indicator-alist window-system skk-e21-property-alist indicator skk-status-indicator skk-modeline-input-mode force color skk-use-color-cursor] 9]) (put 'skk-j-mode-on 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-latin-mode-on #[nil "\306\307\306\307\307\307\307\310 \210\311\307\211\204\312\203[\211\236\203T\312=\204T\313\314\236A#\202V*B\241\210*\236A\315=\203pA\202s@\316 )\210*\307\211\204\212\205\216\317!*\207" [skk-mode skk-abbrev-mode skk-latin-mode skk-j-mode skk-jisx0208-latin-mode skk-jisx0201-mode t nil skk-setup-keymap latin default apply propertize left force-mode-line-update skk-cursor-set-1 skk-katakana string mode skk-indicator-alist window-system skk-e21-property-alist indicator skk-status-indicator skk-modeline-input-mode force color skk-use-color-cursor] 9]) (put 'skk-latin-mode-on 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-jisx0208-latin-mode-on #[nil "\306\307\307\307\306\307\307\310 \210\311\307\211\204\312\203[\211\236\203T\312=\204T\313\314\236A#\202V*B\241\210*\236A\315=\203pA\202s@\316 )\210*\307\211\204\212\205\216\317!*\207" [skk-mode skk-abbrev-mode skk-latin-mode skk-j-mode skk-jisx0208-latin-mode skk-jisx0201-mode t nil skk-setup-keymap jisx0208-latin default apply propertize left force-mode-line-update skk-cursor-set-1 skk-katakana string mode skk-indicator-alist window-system skk-e21-property-alist indicator skk-status-indicator skk-modeline-input-mode force color skk-use-color-cursor] 9]) (put 'skk-jisx0208-latin-mode-on 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-abbrev-mode-on #[nil "\306\306\307\307\307\307\310 \210\311\307\211\204\312\203X\211\236\203Q\312=\204Q\313\314\236A#\202S*B\241\210*\236A\315=\203mA\202p@\316 )\210*\307\211\204\207\205\213\317!*\207" [skk-mode skk-abbrev-mode skk-latin-mode skk-j-mode skk-jisx0208-latin-mode skk-jisx0201-mode t nil skk-setup-keymap abbrev default apply propertize left force-mode-line-update skk-cursor-set-1 string mode skk-indicator-alist window-system skk-e21-property-alist indicator skk-status-indicator skk-modeline-input-mode force color skk-use-color-cursor] 9]) (put 'skk-abbrev-mode-on 'byte-optimizer 'byte-compile-inline-expand) #@83 ’¥«’¥ì’¥ó’¥È’¥Ð’¥Ã’¥Õ’¥¡’¤¬’¥ß’¥Ë’¥Ð’¥Ã’¥Õ’¥¡’¤«’¤É’¤¦’¤«’¤ò’¥Á’¥§’¥Ã’¥¯’¤¹’¤ë’¡£ (defalias 'skk-in-minibuffer-p #[nil "p\300\301 !=\207" [window-buffer minibuffer-window] 3 (#$ . 18942)]) (put 'skk-in-minibuffer-p 'byte-optimizer 'byte-compile-inline-expand) #@96 `skk-echo' ’¤¬ non-nil ’¤Ç’¤¢’¤ì’¤Ð’¥«’¥ì’¥ó’¥È’¥Ð’¥Ã’¥Õ’¥¡’¤Ë `skk-prefix' ’¤ò’ÁÞ’Æþ’¤¹’¤ë’¡£ (defalias 'skk-insert-prefix #[(&optional char) "\205\305\306 \307\216\310 \206\f!+\207" [skk-echo modified buffer-undo-list char skk-prefix t buffer-modified-p ((set-buffer-modified-p modified)) insert-and-inherit] 2 (#$ . 19208)]) (put 'skk-insert-prefix 'byte-optimizer 'byte-compile-inline-expand) #@86 STR1 ’¤È STR2 ’¤È’¤ò’Èæ’³Ó’¤·’¤Æ’¡¢string< ’¤« string= ’¤Ç’¤¢’¤ì’¤Ð’¡¢t ’¤ò’ÊÖ’¤¹’¡£ (defalias 'skk-string<= #[(str1 str2) " \231\206  \230\207" [str1 str2] 2 (#$ . 19618)]) (put 'skk-string<= 'byte-optimizer 'byte-compile-inline-expand) #@86 `auto-fill-function' ’¤Ë’ÃÍ’¤¬’Âå’Æþ’¤µ’¤ì’¤Æ’¤¤’¤ì’¤Ð’¡¢’¤½’¤ì’¤ò’¥³’¡¼’¥ë’¤¹’¤ë’¡£ (defalias 'skk-do-auto-fill #[nil "\205 \207" [auto-fill-function] 1 (#$ . 19865)]) (put 'skk-do-auto-fill 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-current-input-mode #[nil "\203\305\207 \203\f\306\207\n\203\307\207 \203\310\207\f\205\311\207" [skk-abbrev-mode skk-latin-mode skk-jisx0208-latin-mode skk-katakana skk-j-mode abbrev latin jisx0208-latin katakana hiragana] 1]) (put 'skk-current-input-mode 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-get-current-candidate-1 #[(&optional count) "\206 \304V\203\305\306\n\203\307\202\310\"\210 8\207" [count skk-henkan-count skk-japanese-message-and-error skk-henkan-list 0 error "%s" "’¸õ’Êä’¤ò’¼è’¤ê’½Ð’¤¹’¤³’¤È’¤¬’¤Ç’¤­’¤Þ’¤»’¤ó" "Cannot get current candidate"] 3]) (put 'skk-get-current-candidate-1 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-make-raw-arg #[(arg) "\301U\203\302\207\303U\203\304\207\247\205C\207" [arg 1 nil -1 -] 2]) (put 'skk-make-raw-arg 'byte-optimizer 'byte-compile-inline-expand) #@22 Unread single EVENT. (defalias 'skk-unread-event #[(event) " C\244\211\207" [unread-command-events event] 2 (#$ . 20996)]) (put 'skk-unread-event 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-get-last-henkan-datum #[(key) " \236A\207" [key skk-last-henkan-data] 2]) (put 'skk-get-last-henkan-datum 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-put-last-henkan-datum #[(key val) " \236\211\203\n \241\202 B B\211)\207" [key skk-last-henkan-data e val] 3]) (put 'skk-put-last-henkan-datum 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-put-last-henkan-data #[(alist) "\305 \305\211\203- @\211@\f\236\211\203\nA\241\210\202&\n@\nAB\fB A\211\204\n+\305\207" [e alist kv #1=#:--dolist-temp--36123 skk-last-henkan-data nil] 3]) (put 'skk-put-last-henkan-data 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-find-coding-system #[(code) "\203*\303\304!\203\304!\204(\303\305!\203*9\203*\304 !\205$ )\203*\207\2039;\2039\306\n\"A\207\306\307\n\"A\207" [code obj skk-coding-system-alist fboundp coding-system-p find-coding-system assoc "euc"] 3]) (put 'skk-find-coding-system 'byte-optimizer 'byte-compile-inline-expand) #@62 STRING ’¤¬ Lisp ’¥×’¥í’¥°’¥é’¥à’¤Ç’¤¢’¤ì’¤Ð’¡¢t ’¤ò’ÊÖ’¤¹’¡£ (defalias 'skk-lisp-prog-p #[(string) "G\211\303V\205$\304H\305=\205$\306H\307\n!)\310=\205$ SH\311=)\207" [string l char 2 0 40 1 char-charset ascii 41] 3 (#$ . 22209)]) (put 'skk-lisp-prog-p 'byte-optimizer 'byte-compile-inline-expand) #@54 Eval STRING as a lisp program and return the result. (defalias 'skk-eval-string #[(string) "\302\303\304\305\217\210 )\207" [func string nil #1=#:G36124 (byte-code "\302!@\211<\203\303 @!\203\304 !\302\207" [string func read-from-string functionp eval] 3) ((error))] 3 (#$ . 22523)]) (put 'skk-eval-string 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-minibuffer-origin #[nil "\300 A@\207" [buffer-list] 1]) (put 'skk-minibuffer-origin 'byte-optimizer 'byte-compile-inline-expand) (defalias 'skk-quote-char-1 #[(word alist) "\301\302\303\304\"\305#\207" [word mapconcat #[(char) " \236A\206\n\302!\207" [char alist char-to-string] 2] append nil ""] 5]) (put 'skk-quote-char-1 'byte-optimizer 'byte-compile-inline-expand) #@329 ’Æþ’ÎÏ KEY ’¤¬’ȯ’Æ°’¤¹’¤ë’¥³’¥Þ’¥ó’¥É’¤¬’¡¢COMMANDS ’¤Ë’´Þ’¤Þ’¤ì’¤ì’¤Ð ’Èó nil ’¤ò’ÊÖ’¤¹’¡£ MAP ’¤Ï’Æþ’ÎÏ’¤¬’½ñ’¤«’¤ì’¤Æ’¤¤’¤ë’¥­’¡¼’¥Þ’¥Ã’¥×’¤ò’»Ø’Äê’¤¹’¤ë’¤¬’¡¢’»Ø’Äê’¤µ’¤ì’¤Ê’¤±’¤ì’¤Ð `skk-j-mode-map' ’¤ò’»²’¾È’¤¹’¤ë’¡£ ’¤³’¤Î’´Ø’¿ô’¤Ï’¡¢’Æþ’ÎÏ KEY ’¤¬ `lookup-key' ’¤Ç’õ’¤»’¤Ê’¤¤’·Á’¼°’¤Ç’¤¢’¤ê’¤¦’¤ë’¾ì’¹ç’¤Ë’ÍÑ’¤¤’¤ë’¡£ (defalias 'skk-key-binding-member #[(key commands &optional map) "\306 \204\n \306\211\203! @\307\f \"\244 A\211\204*\310 !\311\312\"\235)\207" [keys map skk-j-mode-map commands command #1=#:--dolist-temp--36125 nil where-is-internal key-description mapcar #[(k) "\301!\207" [k key-description] 2] key] 5 (#$ . 23277)]) (byte-code "\301\302\303\304#\210\305\300!\210\305\306!\210\301\307\310!\300\311\312!\313\314\"\210\315\307\310!\"\210\316!\314\232\203/\202:\317\312\320\314\321\320\211\211\322&)#\210\307\310!\207" [product put skk-key-binding-member byte-optimizer byte-compile-inline-expand require skk-version provide skk-macs product-find-by-name "Daredevil SKK" product-run-checkers (12 2 0) product-add-feature product-version vector nil "Sone" "12.2.0"] 12)