;ELC ;;; Compiled by dan@wayne.mit.edu on Wed Apr 21 21:02:05 2004 ;;; from file /usr/pkgsrc-current/inputmethod/skk/work.bondage/ddskk-12.2.0/skk-isearch.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-isearch.el' was compiled for Emacs 20 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\207" [require skk skk-vars] 2) #@20 Turn off skk mode. (defalias 'skk-isearch-turn-off-skk-mode #[nil "\300\301!\207" [skk-mode 0] 2 (#$ . 714)]) (put 'skk-isearch-turn-off-skk-mode 'byte-optimizer 'byte-compile-inline-expand) #@19 Turn on skk mode. (defalias 'skk-isearch-turn-on-skk-mode #[nil "\300\301!\207" [skk-mode 1] 2 (#$ . 911)]) (put 'skk-isearch-turn-on-skk-mode 'byte-optimizer 'byte-compile-inline-expand) #@38 Non-nil if skk conversion is active. (defalias 'skk-isearch-conversion-active-p #[nil "\207" [skk-henkan-mode] 1 (#$ . 1105)]) (put 'skk-isearch-conversion-active-p 'byte-optimizer 'byte-compile-inline-expand) #@56 Point where conversion is start. Includes skk marker. (defalias 'skk-isearch-conversion-start #[nil "S\207" [skk-henkan-start-point] 1 (#$ . 1322)]) (put 'skk-isearch-conversion-start 'byte-optimizer 'byte-compile-inline-expand) #@18 Perform kakutei. (defalias 'skk-isearch-skk-kakutei #[nil "\300 \207" [skk-kakutei] 1 (#$ . 1559)]) (put 'skk-isearch-skk-kakutei 'byte-optimizer 'byte-compile-inline-expand) #@40 Non-nil if skk is hiragana input mode. (defalias 'skk-isearch-skk-hiragana-mode-p #[nil "?\205 \207" [skk-katakana skk-j-mode] 1 (#$ . 1740)]) (put 'skk-isearch-skk-hiragana-mode-p 'byte-optimizer 'byte-compile-inline-expand) #@46 Set current skk mode to hiragana input mode. (defalias 'skk-isearch-skk-turn-on-hiragana-mode #[nil "\306\307\306\306\307\306\306\f \310 \210\311 \203\300\202 \312!\210\313 )\207" [katakana skk-mode skk-abbrev-mode skk-latin-mode skk-j-mode skk-jisx0208-latin-mode nil t skk-setup-keymap skk-update-modeline hiragana skk-cursor-set skk-jisx0201-mode skk-katakana] 2 (#$ . 1975)]) (put 'skk-isearch-skk-turn-on-hiragana-mode 'byte-optimizer 'byte-compile-inline-expand) #@40 Non-nil if skk is katakana input mode. (defalias 'skk-isearch-skk-katakana-mode-p #[nil "\205 \207" [skk-j-mode skk-katakana] 1 (#$ . 2463)]) (put 'skk-isearch-skk-katakana-mode-p 'byte-optimizer 'byte-compile-inline-expand) #@46 Set current skk mode to katakana input mode. (defalias 'skk-isearch-skk-turn-on-katakana-mode #[nil "\300\306\307\307\306\307\307\f \310 \210\311 \203\300\202 \312!\210\313 )\207" [katakana skk-mode skk-abbrev-mode skk-latin-mode skk-j-mode skk-jisx0208-latin-mode t nil skk-setup-keymap skk-update-modeline hiragana skk-cursor-set skk-jisx0201-mode skk-katakana] 2 (#$ . 2697)]) (put 'skk-isearch-skk-turn-on-katakana-mode 'byte-optimizer 'byte-compile-inline-expand) #@56 Non-nil if skk is jisx0208 latin (zenkaku) input mode. (defalias 'skk-isearch-skk-jisx0208-latin-mode-p #[nil "\207" [skk-jisx0208-latin-mode] 1 (#$ . 3185)]) (put 'skk-isearch-skk-jisx0208-latin-mode-p 'byte-optimizer 'byte-compile-inline-expand) #@32 Non-nil if skk is Abbrev mode. (defalias 'skk-isearch-skk-abbrev-mode-p #[nil "\207" [skk-abbrev-mode] 1 (#$ . 3440)]) (put 'skk-isearch-skk-abbrev-mode-p 'byte-optimizer 'byte-compile-inline-expand) #@62 Set current skk mode to jisx0208 latin (zenkaku) input mode. (defalias 'skk-isearch-skk-turn-on-jix0208-latin-mode #[nil "\306\307\307\307\306\307\307\f\310 \210\311\312!\210\313 \207" [skk-mode skk-abbrev-mode skk-latin-mode skk-j-mode skk-jisx0208-latin-mode skk-jisx0201-mode t nil skk-setup-keymap skk-update-modeline jisx0208-latin skk-cursor-set skk-katakana] 2 (#$ . 3647)]) (put 'skk-isearch-skk-turn-on-jix0208-latin-mode 'byte-optimizer 'byte-compile-inline-expand) #@50 Set current skk mode to normal latin input mode. (defalias 'skk-isearch-skk-turn-on-latin-mode #[nil "\306\307\306\307\307\307\307\f\310 \210\311\312!\210\313 \207" [skk-mode skk-abbrev-mode skk-latin-mode skk-j-mode skk-jisx0208-latin-mode skk-jisx0201-mode t nil skk-setup-keymap skk-update-modeline latin skk-cursor-set skk-katakana] 2 (#$ . 4136)]) (put 'skk-isearch-skk-turn-on-latin-mode 'byte-optimizer 'byte-compile-inline-expand) #@23 Show isearch message. (defalias 'skk-isearch-message #[nil "\302\303\230\203 \304 !\202!\207" [skk-prefix last-command-char skk-isearch-incomplete-message "" char-to-string] 3 (#$ . 4588)]) #@58 Return the symbolic current mode of skk for skk-isearch. (defalias 'skk-isearch-current-mode #[nil "\204\305\207 \203\n\203\306\207\n\204 \203\307\207 \203 \310\207\f\203&\311\207\312\207" [skk-mode skk-j-mode skk-katakana skk-jisx0208-latin-mode skk-abbrev-mode nil katakana hiragana jisx0208-latin abbrev latin] 1 (#$ . 4789)]) #@94 Set up the initial condition according to given symbolic MODE. The MODE should be canonical. (defalias 'skk-isearch-set-initial-mode #[(mode) "\306=\203-\307\310\307\307\310\307\307 \311 \210\312\203&\301\202'\306!\210\313 )\207\301=\203Z\301\310\307\307\310\307\307 \311 \210\312\203S\301\202T\306!\210\313 )\207\314=\203{\310\307\307\307\310\307\307\311 \210\312\314!\210\313 \207\315=\203\234\310\307\310\307\307\307\307\311 \210\312\315!\210\313 \207\302\316!\207" [mode katakana skk-mode skk-abbrev-mode skk-latin-mode skk-j-mode hiragana nil t skk-setup-keymap skk-update-modeline skk-cursor-set jisx0208-latin latin 0 skk-jisx0208-latin-mode skk-jisx0201-mode skk-katakana] 2 (#$ . 5138)]) #@60 Return symbolic skk isearch mode for given numerical MODE. (defalias 'skk-isearch-symbolic-mode #[(mode) "\302 \"@\207" [mode skk-isearch-mode-canonical-alist rassq] 3 (#$ . 5899)]) #@60 Return numerical skk isearch mode for given symbolic MODE. (defalias 'skk-isearch-numerical-mode #[(mode) " \236A\207" [mode skk-isearch-mode-canonical-alist] 2 (#$ . 6088)]) #@51 Return the current skk mode string for prompting. (defalias 'skk-isearch-mode-string #[nil "r\302!q\210\303 \236A)\207" [skk-isearch-working-buffer skk-isearch-mode-string-alist get-buffer-create skk-isearch-current-mode] 2 (#$ . 6270)]) #@87 Return the symbolic skk isearch mode according to the current skk internal condition. (defalias 'skk-isearch-current-numerical-mode #[nil "\300\301 \206\302!\207" [skk-isearch-numerical-mode skk-isearch-current-mode latin] 2 (#$ . 6516)]) #@45 Canonicalize the symbolic skk isearch MODE. (defalias 'skk-isearch-canonical-start-mode #[(mode) "\302 \"A\206 \236A\206\303!\203\207\304\305\"\207" [mode skk-isearch-mode-alias-alist rassq skk-isearch-numerical-mode error "Unknown skk-isearch-start-mode: %s"] 3 (#$ . 6763)]) #@81 Return the symbolic mode name of skk-isearch used to initialize working buffer. (defalias 'skk-isearch-initial-mode #[nil "\203\f \203\f\305 !\207\n\203\306\n!\207 \203 \207\307 \206 \f\207" [skk-isearch-use-previous-mode skk-isearch-mode skk-isearch-start-mode skk-isearch-state skk-isearch-initial-mode-when-skk-mode-disabled skk-isearch-symbolic-mode skk-isearch-canonical-start-mode skk-isearch-current-mode] 2 (#$ . 7057)]) #@172 Initialize the current buffer as working buffer for skk isearch. More precicely, turn on skk-mode, put into kana mode, make sure kakutei'ed and erase the buffer contents. (defalias 'skk-isearch-initialize-working-buffer #[nil "\301\302!\210\303 \210\304\300!\210\305\306 \207" [skk-dcomp-activate skk-mode 1 skk-kakutei make-local-variable nil erase-buffer] 2 (#$ . 7501)]) #@46 hook function called when skk isearch begin. (defalias 'skk-isearch-mode-setup #[nil "\306 r\307 !q\210\302 \203(\f\203( \310\230\204(\311\f!\211\203'\312\313\314\217\210)\n\2031\310\312)\315 \210\316!\210*\317!\204I\320\321B!L\210\203\201\322\323\"\203\201\211 \324\230\203j\325\202k\326!r\307 !q\210\204\200!\" +\327#\312$p%\310\310&\330 \210\331 \207" [initial skk-isearch-working-buffer clean skk-echo skk-kana-start-point skk-prefix skk-isearch-initial-mode get-buffer-create "" 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))) skk-isearch-initialize-working-buffer skk-isearch-set-initial-mode keymapp skk-isearch-setup-keymap keymap string-match "^japanese-skk" "japanese-skk" skk-inactivate skk-auto-fill-inactivate t skk-isearch-mode-message skk-isearch-incomplete-message start skk-current-rule-tree skk-isearch-mode-map isearch-mode-map skk-isearch-overriding-local-map current-input-method method func inactivate-current-input-method-function skk-isearch-switch skk-isearch-in-editing skk-isearch-current-buffer skk-isearch-message] 4 (#$ . 7882)]) #@48 Hook function called when skk isearch is done. (defalias 'skk-isearch-mode-cleanup #[nil "\203\306\202% \203\307\202%\n\203\310\202% \203 \311\202%\f\205%\312 \2037r\313!!q\210\314 )\"#\315L\210\315$\316%\316& \312=\203u\315 \317'\315\315\317\315\315( \320 \210\321 \203k\311\202l\312!\210\322 \210)\202  \311=\203\245\317 \317'\315\315\317\315\315( \320 \210\321 \203\233\311\202\234\312!\210\322 \210)\202  \306=\203\306\317'\317\315\315\315\315(\320 \210\321\306!\210\322 \210\202  \307=\203\351\317'\315\317\315\315\315(\315\320 \210\321\307!\210\322 \210\202  \310=\203 \317'\315\315\315\317\315(\315\320 \210\321\310!\210\322 \210)\323\324\325\326)\"\"\203 r\313!!q\210\327 \210)\315*+\204+\315,\315-\330\331\332\333#\210\334\335\336\337#\207" [skk-abbrev-mode skk-latin-mode skk-jisx0208-latin-mode skk-katakana skk-j-mode mode abbrev latin jisx0208-latin katakana hiragana get-buffer-create skk-isearch-current-numerical-mode nil "" t skk-setup-keymap skk-update-modeline skk-cursor-set string-match "^japanese-skk" format "%s" inactivate-input-method remove-hook pre-command-hook skk-pre-command local skk-remove-minibuffer-setup-hook skk-j-mode-on skk-setup-minibuffer #[nil "\300\301\302\303\304$\207" [add-hook pre-command-hook skk-pre-command nil local] 5] skk-isearch-use-previous-mode skk-isearch-working-buffer skk-isearch-mode skk-isearch-overriding-local-map skk-isearch-message skk-isearch-last-mode-string skk-isearch-last-mode-regexp skk-mode skk-jisx0201-mode default-input-method skk-isearch-switch skk-isearch-in-editing skk-isearch-state skk-isearch-current-buffer] 5 (#$ . 9280)]) #@104 Show message when kana kanji conversion is in progress. Optional argument PREFIX is appended if given. (defalias 'skk-isearch-incomplete-message #[(&optional prefix) " \nQ\300 )\207" [isearch-message skk-isearch-incomplete-message prefix] 3 (#$ . 10975)]) (defalias 'skk-isearch-find-keys-define #[(map commands command) "\306 \306\211\203[ @\307\n\310 \"\306\211\203S @\211G\311U\203=\f\312H\235\204=\313\314\f\312H!\315 #\210\f\312HB\fG\311X\203L\313\f#\210 A\211\204* A\211\204\n+\306\207" [prefs commands c #1=#:--dolist-temp--36116 key #2=#:--dolist-temp--36117 nil where-is-internal current-global-map 2 0 define-key vector make-sparse-keymap map command] 7]) (defalias 'skk-isearch-setup-keymap #[(map) "\306\306\307Y\204\310 \311!\312#\210T\211\202)\310 \313\314#\210\310 \n\315#\210\310 \316\317#\210\320 !\2038\310 \311 !\312#\210\310 \321\322 #\210\310 \323\324#\210\325\326\327\330\331 \"\"\203U\332\fB\333 \f\334#\210)\335\333 \f\336#\210) \207" [c map skk-kakutei-key skk-previous-candidate-char commands default-input-method 32 127 define-key char-to-string skk-isearch-wrapper "" skk-isearch-keyboard-quit skk-isearch-newline " " skk-isearch-exit characterp "" make-sparse-keymap [24 t] isearch-other-control-char (skk-mode skk-auto-fill-mode) string-match "^japanese-skk" format "%s" toggle-input-method skk-isearch-find-keys-define skk-isearch-skk-mode (backward-delete-char-untabify backward-delete-char backward-or-forward-delete-char delete-backward-char) skk-isearch-delete-char] 5]) #@63 Execute the command of given key sequence in skk environment. (defalias 'skk-isearch-redo-function #[nil "J\305\216\306L\210r\307\n!q\210\310\311 G\312U\203 C\202\311 \306\"\313\314\315\217\210)\316 *\207" [skk-isearch-overriding-local-map local-map skk-isearch-working-buffer last-command-event unread-command-events ((set skk-isearch-overriding-local-map local-map)) nil get-buffer-create append this-command-keys 0 error (byte-code "\303\304!\305!\211GSH\306 !\210*\304\207" [keys this-command last-command-event read-key-sequence nil key-binding command-execute] 2) (((quit error) (byte-code "\301@A\"\207" [error signal] 3))) skk-isearch-mode-message] 3 (#$ . 12530)]) #@109 Return the string to be searched. If the conversion is in progress and no string is fixed, just return nil. (defalias 'skk-isearch-search-string #[nil "r\306!q\210 \203\nS\211\307V\205\307 {\307 |\210)\2025\f\310\230\204(\311\2025\312\313 !?\2055\314 \315 \210\314 \305 \210)\207" [skk-isearch-working-buffer skk-henkan-mode skk-henkan-start-point start skk-prefix skk-isearch-incomplete-message get-buffer-create 1 "" nil zerop buffer-size buffer-string erase-buffer] 4 (#$ . 13226)]) (defalias 'skk-isearch-last-char #[(string) "\301\302\"\205\303\304\224\305O!\207" [string string-match ".\\'" string-to-char 0 nil] 4]) (defalias 'skk-isearch-breakable-p #[(char) "\205 !\207" [char skk-isearch-breakable-character-p-function] 2]) (defalias 'skk-isearch-search-string-regexp #[(string) "\2037\306 !\307\310\n! \2034\311 !\203$\311 @!\203$\f P @\f\312 @!P A\202\f+\207\n\207" [isearch-regexp isearch-string string chars result prev skk-isearch-last-char "" string-to-char-list skk-isearch-breakable-p char-to-string skk-isearch-whitespace-regexp] 4]) #@124 Prepend the skk isearch mode string to `isearch-message'. If the current mode is different from previous, remove it first. (defalias 'skk-isearch-mode-message #[nil "\304 \211 \230?\205$\305\n \"\203 \306\225\307O\310\311!P P\211)\207" [mode-string skk-isearch-last-mode-string skk-isearch-last-mode-regexp isearch-message skk-isearch-mode-string string-match 0 nil "^" regexp-quote] 4 (#$ . 14320)]) (defalias 'skk-isearch-process-search-string #[(string) "\301\302!\"\207" [string isearch-process-search-string skk-isearch-search-string-regexp] 3]) (defalias 'skk-isearch-delete-char #[(&rest args) "r\306!q\210 \205\240\307\212\310\311\312\217\210\n`Y)\203#\313\314 \210\315 \210\202\240 \316=\203O\f\203O\314 \210\317\320!\210 \321 P\322 \323\324 \325#P \326 \210\327 \210\330 \210\202\240 \316=\203[\331 \210\202\231$\325\230\203i\317\320!\210\202\231\332%\203\215&\203\215$\325\230\204\215\333&!\211'\203\214\334\335\336\217\210)\203\230\325$\334()\321 \337 \210)?\205')A@\322 *\211+\203$\340\341\342*!P+\211,A@)\"\204$-\334./.\204/\203/A\340\341\342/\211,@A)!P+\211,A@)\"\205\377+\211,A@)\313\225\334O./\202\315+*.\206+\211,A@)P+\211,AA)B\241*\210*\343 \207" [skk-isearch-working-buffer skk-henkan-mode skk-henkan-start-point skk-henkan-count skk-delete-implies-kakutei isearch-string get-buffer-create t #1=#:G36118 (byte-code "db\207" [] 1) ((error)) 0 skk-kakutei isearch-message active delete-backward-char 1 buffer-string skk-isearch-mode-string mapconcat isearch-text-char-description "" isearch-push-state isearch-update erase-buffer skk-previous-candidate clean 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))) skk-isearch-incomplete-message string-match "^" regexp-quote isearch-delete-char skk-prefix skk-echo skk-kana-start-point start skk-current-rule-tree isearch-cmds prompt cmd x skk-isearch-mode-string-alist msg alist] 7 nil "P"]) #@45 Special wrapper for skk-kakutei or newline. (defalias 'skk-isearch-kakutei #[(isearch-function) "r\303!q\210 \205\304\305 \210)\203\306\307 !\207\n \207" [skk-isearch-working-buffer skk-henkan-mode isearch-function get-buffer-create t skk-kakutei skk-isearch-process-search-string skk-isearch-search-string] 2 (#$ . 16546)]) (defalias 'skk-isearch-exit #[(&rest args) "\300\301!\207" [skk-isearch-kakutei isearch-exit] 2 nil "P"]) (defalias 'skk-isearch-newline #[(&rest args) "r\302!q\210\303 \304>\205\305\306\307!\210\310 \210)\203\311 \207\312 !\203&\313\314!\207\310 \210\311 \207" [skk-isearch-working-buffer last-command-event get-buffer-create skk-isearch-current-mode (latin jisx0208-latin nil) t skk-mode 1 skk-isearch-mode-message isearch-message event-to-character skk-isearch-kakutei isearch-printing-char] 3 nil "P"]) (defalias 'skk-isearch-skk-mode #[(&rest args) "\300 \210\301 \207" [skk-isearch-redo-function isearch-message] 1 nil "P"]) (defalias 'skk-isearch-keyboard-quit #[(&rest args) "\300\301\302\217\207" [nil (byte-code "\300 \210\301 \207" [skk-isearch-redo-function skk-isearch-search-string] 1) ((quit (isearch-abort)))] 3 nil "P"]) (defalias 'skk-isearch-wrapper #[(&rest args) "\306 \210\307 \211\2055 Jp\310\216 \fL\210\311!\312 !\204%\313!\2024\314\315!\2031\313!\2024\316 !,)\207" [string skk-isearch-overriding-local-map current-buffer local-map isearch-mode-map command skk-isearch-redo-function skk-isearch-search-string ((byte-code "q\210 \nL\207" [current-buffer skk-isearch-overriding-local-map local-map] 2)) key-binding commandp skk-isearch-process-search-string fboundp isearch-process-search-multibyte-characters command-execute] 3 nil "P"]) (byte-code "\304\305\306\307\310$\210\311\305\312\"\210\304\313\314\315\310$\210\311\313\312\"\210\304\316\317\315\310$\210\311\316\312\"\210\301B\320\321\322!\204W\323\n\324\325#\210\321\326!\203F\327\330\325\331N\236\236\204W\332\333!\203R \210\202W\334\335 \"\210\336\337\340\312#\210\336\341\340\312#\210\336\342\340\312#\210\336\343\340\312#\210\336\344\340\312#\210\336\345\340\312#\210\336\346\340\312#\210\347\303!\210\347\350!\210\336\351\352!\303\353\354!\355 \356\"\210\357 \351\352!\"\210\360 !\356\232\203\252 \202\265\361\354\310\356\362\310\211\211\363&)#\210\351\352!\207" [current-load-list skk-isearch-really-early-advice isearch-mode-map product ad-add-advice isearch-repeat (skk-isearch-ad nil t (advice lambda nil "`isearch-message' ’¤ò’Ŭ’ÀÚ’¤Ë’Àß’Äê’¤¹’¤ë’¡£" (when skk-isearch-switch (unless (string-match (concat "^" (regexp-quote (skk-isearch-mode-string))) isearch-message) (setq isearch-message (concat (skk-isearch-mode-string) (mapconcat #'isearch-text-char-description isearch-string ""))) (setq isearch-cmds (cdr isearch-cmds)) (isearch-push-state) (isearch-update)) (when isearch-regexp (let ((regexp (regexp-quote (mapconcat 'isearch-text-char-description skk-isearch-whitespace-regexp "")))) (when (string-match regexp isearch-message) (setq isearch-message (with-temp-buffer (insert isearch-message) (goto-char (point-min)) (replace-regexp regexp "") (buffer-substring (point-min) (point-max)))) (setq isearch-cmds (cdr isearch-cmds)) (isearch-push-state) (isearch-update))))))) after nil ad-activate t isearch-edit-string (skk-isearch-ad nil t (advice lambda nil "`isearch-message' ’¤ò’Ŭ’ÀÚ’¤Ë’Àß’Äê’¤¹’¤ë’¡£" (when skk-isearch-switch (with-current-buffer (get-buffer-create skk-isearch-working-buffer) (setq skk-isearch-state (skk-isearch-current-mode)) (setq skk-isearch-in-editing t)) (when (string-match (concat "^" (regexp-quote (skk-isearch-mode-string))) isearch-message) (setq isearch-message (substring isearch-message (match-end 0))))))) before isearch-search (skk-isearch-ad nil t (advice lambda nil "`isearch-message' ’¤ò’Ŭ’ÀÚ’¤Ë’Àß’Äê’¤¹’¤ë’¡£" (when skk-isearch-switch (unless (or isearch-nonincremental (string-match (concat "^" (regexp-quote (skk-isearch-mode-string))) isearch-message)) (setq isearch-message (concat (skk-isearch-mode-string) (mapconcat 'isearch-text-char-description isearch-string ""))))))) #[nil "\300\301\302\303\304$\210\305\301\304\"\210\300\306\307\303\304$\210\305\306\304\"\210\306\207" [ad-add-advice isearch-message-prefix (skk-isearch-ad nil t (advice lambda nil (let ((current-input-method (unless (and (boundp 'skk-isearch-switch) skk-isearch-switch) current-input-method))) ad-do-it))) around nil ad-activate isearch-toggle-input-method (skk-isearch-ad nil t (advice lambda nil (cond ((string-match "^japanese-skk" (format "%s" default-input-method)) (let ((skk-isearch-initial-mode-when-skk-mode-disabled 'latin)) (skk-isearch-mode-setup) (skk-isearch-skk-mode))) ((null default-input-method) ad-do-it (when (string-match "^japanese-skk" (format "%s" default-input-method)) (let ((skk-isearch-initial-mode-when-skk-mode-disabled 'latin)) (skk-isearch-mode-setup)) (inactivate-input-method))) (t ad-do-it))))] 5] featurep xemacs define-key [(control \\)] isearch-toggle-input-method advice skk-isearch-ad around ad-advice-info locate-library "advice" add-hook before-init-hook put skk-isearch-wrapper isearch-command skk-isearch-keyboard-quit skk-isearch-newline skk-isearch-exit skk-isearch-delete-char isearch-other-control-char skk-isearch-skk-mode require skk-version provide skk-isearch product-find-by-name "Daredevil SKK" product-run-checkers (12 2 0) product-add-feature product-version vector "Sone" "12.2.0"] 12)