;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-jisx0201.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-jisx0201.el' was compiled for Emacs 20 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'japan-util) #@52 *SKK JISX0201 ’„ā’”¼’„ɒ¤Ī’„Ł’”¼’„¹’¤Ī’„ė’”¼’„ė’”£ (defvar skk-jisx0201-base-rule-list '(("a" nil "‰±") ("bb" "b" "‰Æ") ("ba" nil "‰Ź‰Ž") ("be" nil "‰Ķ‰Ž") ("bi" nil "‰Ė‰Ž") ("bo" nil "‰Ī‰Ž") ("bu" nil "‰Ģ‰Ž") ("bya" nil "‰Ė‰Ž‰¬") ("bye" nil "‰Ė‰Ž‰Ŗ") ("byi" nil "‰Ė‰Ž‰Ø") ("byo" nil "‰Ė‰Ž‰®") ("byu" nil "‰Ė‰Ž‰­") ("cc" "c" "‰Æ") ("cha" nil "‰Į‰¬") ("che" nil "‰Į‰Ŗ") ("chi" nil "‰Į") ("cho" nil "‰Į‰®") ("chu" nil "‰Į‰­") ("cya" nil "‰Į‰¬") ("cye" nil "‰Į‰Ŗ") ("cyi" nil "‰Į‰Ø") ("cyo" nil "‰Į‰®") ("cyu" nil "‰Į‰­") ("dd" "d" "‰Æ") ("da" nil "‰Ą‰Ž") ("de" nil "‰Ć‰Ž") ("dha" nil "‰Ć‰Ž‰¬") ("dhe" nil "‰Ć‰Ž‰Ŗ") ("dhi" nil "‰Ć‰Ž‰Ø") ("dho" nil "‰Ć‰Ž‰®") ("dhu" nil "‰Ć‰Ž‰­") ("di" nil "‰Į‰Ž") ("do" nil "‰Ä‰Ž") ("du" nil "‰Ā‰Ž") ("dya" nil "‰Į‰Ž‰¬") ("dye" nil "‰Į‰Ž‰Ŗ") ("dyi" nil "‰Į‰Ž‰Ø") ("dyo" nil "‰Į‰Ž‰®") ("dyu" nil "‰Į‰Ž‰­") ("e" nil "‰“") ("ff" "f" "‰Æ") ("fa" nil "‰Ģ‰§") ("fe" nil "‰Ģ‰Ŗ") ("fi" nil "‰Ģ‰Ø") ("fo" nil "‰Ģ‰«") ("fu" nil "‰Ģ") ("fya" nil "‰Ģ‰¬") ("fye" nil "‰Ģ‰Ŗ") ("fyi" nil "‰Ģ‰Ø") ("fyo" nil "‰Ģ‰®") ("fyu" nil "‰Ģ‰­") ("gg" "g" "‰Æ") ("ga" nil "‰¶‰Ž") ("ge" nil "‰¹‰Ž") ("gi" nil "‰·‰Ž") ("go" nil "‰ŗ‰Ž") ("gu" nil "‰ø‰Ž") ("gya" nil "‰·‰Ž‰¬") ("gye" nil "‰·‰Ž‰Ŗ") ("gyi" nil "‰·‰Ž‰Ø") ("gyo" nil "‰·‰Ž‰®") ("gyu" nil "‰·‰Ž‰­") ("ha" nil "‰Ź") ("he" nil "‰Ķ") ("hi" nil "‰Ė") ("ho" nil "‰Ī") ("hu" nil "‰Ģ") ("hya" nil "‰Ė‰¬") ("hye" nil "‰Ė‰Ŗ") ("hyi" nil "‰Ė‰Ø") ("hyo" nil "‰Ė‰®") ("hyu" nil "‰Ė‰­") ("i" nil "‰²") ("jj" "j" "‰Æ") ("ja" nil "‰¼‰Ž‰¬") ("je" nil "‰¼‰Ž‰Ŗ") ("ji" nil "‰¼‰Ž") ("jo" nil "‰¼‰Ž‰®") ("ju" nil "‰¼‰Ž‰­") ("jya" nil "‰¼‰Ž‰¬") ("jye" nil "‰¼‰Ž‰Ŗ") ("jyi" nil "‰¼‰Ž‰Ø") ("jyo" nil "‰¼‰Ž‰®") ("jyu" nil "‰¼‰Ž‰­") ("kk" "k" "‰Æ") ("ka" nil "‰¶") ("ke" nil "‰¹") ("ki" nil "‰·") ("ko" nil "‰ŗ") ("ku" nil "‰ø") ("kya" nil "‰·‰¬") ("kye" nil "‰·‰Ŗ") ("kyi" nil "‰·‰Ø") ("kyo" nil "‰·‰®") ("kyu" nil "‰·‰­") ("mm" "c" "‰Æ") ("ma" nil "‰Ļ") ("me" nil "‰Ņ") ("mi" nil "‰Š") ("mo" nil "‰Ó") ("mu" nil "‰Ń") ("mya" nil "‰Š‰¬") ("mye" nil "‰Š‰Ŗ") ("myi" nil "‰Š‰Ø") ("myo" nil "‰Š‰®") ("myu" nil "‰Š‰­") ("n" nil "‰Ż") ("n'" nil "‰Ż") ("na" nil "‰Å") ("ne" nil "‰Č") ("ni" nil "‰Ę") ("nn" nil "‰Ż") ("no" nil "‰É") ("nu" nil "‰Ē") ("nya" nil "‰Ę‰¬") ("nye" nil "‰Ę‰Ŗ") ("nyi" nil "‰Ę‰Ø") ("nyo" nil "‰Ę‰®") ("nyu" nil "‰Ę‰­") ("o" nil "‰µ") ("pp" "p" "‰Æ") ("pa" nil "‰Ź‰ß") ("pe" nil "‰Ķ‰ß") ("pi" nil "‰Ė‰ß") ("po" nil "‰Ī‰ß") ("pu" nil "‰Ģ‰ß") ("pya" nil "‰Ė‰ß‰¬") ("pye" nil "‰Ė‰ß‰Ŗ") ("pyi" nil "‰Ė‰ß‰Ø") ("pyo" nil "‰Ė‰ß‰®") ("pyu" nil "‰Ė‰ß‰­") ("rr" "r" "‰Æ") ("ra" nil "‰×") ("re" nil "‰Ś") ("ri" nil "‰Ų") ("ro" nil "‰Ū") ("ru" nil "‰Ł") ("rya" nil "‰Ų‰¬") ("rye" nil "‰Ų‰Ŗ") ("ryi" nil "‰Ų‰Ø") ("ryo" nil "‰Ų‰®") ("ryu" nil "‰Ų‰­") ("ss" "s" "‰Æ") ("sa" nil "‰»") ("se" nil "‰¾") ("sha" nil "‰¼‰¬") ("she" nil "‰¼‰Ŗ") ("shi" nil "‰¼") ("sho" nil "‰¼‰®") ("shu" nil "‰¼‰­") ("si" nil "‰¼") ("so" nil "‰æ") ("su" nil "‰½") ("sya" nil "‰¼‰¬") ("sye" nil "‰¼‰Ŗ") ("syi" nil "‰¼‰Ø") ("syo" nil "‰¼‰®") ("syu" nil "‰¼‰­") ("tt" "t" "‰Æ") ("ta" nil "‰Ą") ("te" nil "‰Ć") ("tha" nil "‰Ć‰§") ("the" nil "‰Ć‰Ŗ") ("thi" nil "‰Ć‰Ø") ("tho" nil "‰Ć‰®") ("thu" nil "‰Ć‰­") ("ti" nil "‰Į") ("to" nil "‰Ä") ("tsu" nil "‰Ā") ("tu" nil "‰Ā") ("tya" nil "‰Į‰¬") ("tye" nil "‰Į‰Ŗ") ("tyi" nil "‰Į‰Ø") ("tyo" nil "‰Į‰®") ("tyu" nil "‰Į‰­") ("u" nil "‰³") ("vv" "v" "‰Æ") ("va" nil "‰³‰Ž‰§") ("ve" nil "‰³‰Ž‰Ŗ") ("vi" nil "‰³‰Ž‰Ø") ("vo" nil "‰³‰Ž‰«") ("vu" nil "‰³‰Ž") ("ww" "w" "‰Æ") ("wa" nil "‰Ü") ("we" nil "‰³‰Ŗ") ("wi" nil "‰³‰Ø") ("wo" nil "‰¦") ("wu" nil "‰³") ("xx" "x" "‰Æ") ("xa" nil "‰§") ("xe" nil "‰Ŗ") ("xi" nil "‰Ø") ("xka" nil "‰¶") ("xke" nil "‰¹") ("xo" nil "‰«") ("xtsu" nil "‰Æ") ("xtu" nil "‰Æ") ("xu" nil "‰©") ("xwa" nil "‰Ü") ("xwe" nil "‰Ŗ") ("xwi" nil "‰Ø") ("xya" nil "‰¬") ("xyo" nil "‰®") ("xyu" nil "‰­") ("yy" "y" "‰Æ") ("ya" nil "‰Ō") ("ye" nil "‰²‰Ŗ") ("yo" nil "‰Ö") ("yu" nil "‰Õ") ("zz" "z" "‰Æ") ("z," nil "’”Å") ("z-" nil "’”Į") ("z." nil "’”Ä") ("z/" nil "‰„") ("z[" nil "’”Ų") ("z]" nil "’”Ł") ("za" nil "‰»‰Ž") ("ze" nil "‰¾‰Ž") ("zh" nil "’¢«") ("zi" nil "‰¼‰Ž") ("zj" nil "’¢­") ("zk" nil "’¢¬") ("zl" nil "’¢Ŗ") ("zo" nil "‰æ‰Ž") ("zu" nil "‰½‰Ž") ("zya" nil "‰¼‰Ž‰¬") ("zye" nil "‰¼‰Ž‰Ŗ") ("zyi" nil "‰¼‰Ž‰Ø") ("zyo" nil "‰¼‰Ž‰®") ("zyu" nil "‰¼‰Ž‰­") ("," nil "‰¤") ("." nil "‰”") ("-" nil "‰°") (":" nil ":") (";" nil ";") ("?" nil "?") ("[" nil "‰¢") ("]" nil "‰£") ("l" nil skk-latin-mode) ("q" nil skk-toggle-katakana) ("L" nil skk-jisx0208-latin-mode) ("Q" nil skk-set-henkan-point-subr) ("X" nil skk-purge-from-jisyo) ("/" nil skk-abbrev-mode) ("$" nil skk-display-code-for-char-at-point) ("@" nil skk-today) ("\\" nil skk-input-by-code-or-menu) (skk-kakutei-key nil skk-kakutei)) (#$ . -672)) #@50 *SKK JISX0201 ’„ā’”¼’„ɒ¤Ī Roman ’¤Ī’„ė’”¼’„ė’”£ (defvar skk-jisx0201-roman-rule-list '(("!" nil "Š”") ("\"" nil "Š¢") ("#" nil "Š£") ("$" nil "Š¤") ("%" nil "Š„") ("&" nil "Š¦") ("'" nil "Š§") ("(" nil "ŠØ") (")" nil "Š©") ("*" nil "ŠŖ") ("+" nil "Š«") ("," nil "Š¬") ("-" nil "Š­") ("." nil "Š®") ("/" nil "ŠÆ") ("0" nil "Š°") ("1" nil "Š±") ("2" nil "Š²") ("3" nil "Š³") ("4" nil "Š“") ("5" nil "Šµ") ("6" nil "Š¶") ("7" nil "Š·") ("8" nil "Šø") ("9" nil "Š¹") (":" nil "Šŗ") (";" nil "Š»") ("<" nil "Š¼") ("=" nil "Š½") (">" nil "Š¾") ("?" nil "Šæ") ("@" nil "ŠĄ") ("A" nil "ŠĮ") ("B" nil "ŠĀ") ("C" nil "ŠĆ") ("D" nil "ŠÄ") ("E" nil "ŠÅ") ("F" nil "ŠĘ") ("G" nil "ŠĒ") ("H" nil "ŠČ") ("I" nil "ŠÉ") ("J" nil "ŠŹ") ("K" nil "ŠĖ") ("L" nil "ŠĢ") ("M" nil "ŠĶ") ("N" nil "ŠĪ") ("O" nil "ŠĻ") ("P" nil "ŠŠ") ("Q" nil "ŠŃ") ("R" nil "ŠŅ") ("S" nil "ŠÓ") ("T" nil "ŠŌ") ("U" nil "ŠÕ") ("V" nil "ŠÖ") ("W" nil "Š×") ("X" nil "ŠŲ") ("Y" nil "ŠŁ") ("Z" nil "ŠŚ") ("[" nil "ŠŪ") ("\\" nil "ŠÜ") ("]" nil "ŠŻ") ("^" nil "ŠŽ") ("_" nil "Šß") ("`" nil "Šą") ("a" nil "Šį") ("b" nil "Šā") ("c" nil "Šć") ("d" nil "Šä") ("e" nil "Šå") ("f" nil "Šę") ("g" nil "Šē") ("h" nil "Šč") ("i" nil "Šé") ("j" nil "Šź") ("k" nil "Šė") ("l" nil "Šģ") ("m" nil "Šķ") ("n" nil "Šī") ("o" nil "Šļ") ("p" nil "Šš") ("q" nil "Šń") ("r" nil "Šņ") ("s" nil "Šó") ("t" nil "Šō") ("u" nil "Šõ") ("v" nil "Šö") ("w" nil "Š÷") ("x" nil "Šų") ("y" nil "Šł") ("z" nil "Šś") ("{" nil "Šū") ("|" nil "Šü") ("}" nil "Šż") ("~" nil "Šž")) (#$ . -5362)) #@49 *SKK JISX0201 ’„ā’”¼’„ɒ¤Ī’Äɒ²Ć’¤Ī’„ė’”¼’„ė’”£ (defvar skk-jisx0201-rule-list '(("(" nil "(") ("{" nil "{")) (#$ . -6883)) (byte-code "\305 \"\305 !\305\207" [skk-jisx0201-base-rule-list skk-jisx0201-rule-list skk-jisx0201-base-rule-tree skk-jisx0201-roman-rule-list skk-jisx0201-roman-rule-tree skk-compile-rule-list] 3) #@53 SKK JIS X 0201 (’„«’„Ź) ’„ā’”¼’„ɒ¤ņ’µÆ’Ę°’¤¹’¤ė’”£ (defalias 'skk-jisx0201-mode-on #[(&optional arg) "\306\307!\210\310\310\n\n\203\f\202 \311\311\311\311\311\312\311\211\2041\313\203=\314\"\210\236A\315=\203RA\202U@\316 \210+\311\211\204k\205o\317!*\207" [skk-mode skk-jisx0201-mode arg skk-jisx0201-roman skk-jisx0201-roman-rule-tree skk-jisx0201-base-rule-tree make-local-variable skk-rule-tree t nil jisx0201 default skk-modify-indicator-alist left force-mode-line-update skk-cursor-set-1 skk-abbrev-mode skk-latin-mode skk-j-mode skk-jisx0208-latin-mode skk-katakana string mode skk-indicator-alist indicator skk-status-indicator skk-modeline-input-mode force color skk-use-color-cursor] 4 (#$ . 7215)]) (byte-code "\300\301\302\303#\210\304\305\306\307\310$\210\311\305\310\"\210\304\312\313\314\310$\210\311\312\310\"\210\304\315\316\307\310$\210\311\315\310\"\210\304\317\320\307\310$\210\311\317\310\"\210\304\321\322\307\310$\210\311\321\310\"\210\304\323\324\314\310$\210\311\323\310\"\210\304\325\326\314\310$\210\311\325\310\"\210\304\327\330\307\310$\210\311\327\310\"\207" [put skk-jisx0201-mode-on byte-optimizer byte-compile-inline-expand ad-add-advice skk-mode (skk-jisx0201-ad nil t (advice lambda nil (setq skk-jisx0201-mode nil) (kill-local-variable 'skk-rule-tree))) before nil ad-activate skk-kakutei (skk-jisx0201-ad nil t (advice lambda nil (let ((jisx0201 skk-jisx0201-mode)) ad-do-it (when jisx0201 (skk-jisx0201-mode-on skk-jisx0201-roman))))) around skk-latin-mode (skk-jisx0201-ad nil t (advice lambda nil (setq skk-jisx0201-mode nil) (kill-local-variable 'skk-rule-tree))) skk-jisx0208-latin-mode (skk-jisx0201-ad nil t (advice lambda nil (setq skk-jisx0201-mode nil) (kill-local-variable 'skk-rule-tree))) skk-abbrev-mode (skk-jisx0201-ad nil t (advice lambda nil (setq skk-jisx0201-mode nil) (kill-local-variable 'skk-rule-tree))) skk-set-okurigana (skk-jisx0201-ad nil t (advice lambda nil "’Č¾’³Ń’„«’„Ź’¤Ī’Į÷’¤ź’²¾’Ģ¾’¤ņ’Ąµ’¤·’¤Æ’¼č’ĘĄ’¤¹’¤ė’”£" (cond (skk-jisx0201-mode (skk-save-point (goto-char skk-okurigana-start-point) (when (eq 42 (following-char)) (delete-char 1)) (skk-jisx0201-zenkaku-region skk-henkan-start-point skk-okurigana-start-point)) (let* ((pt1 (point)) pt2 okuri sokuon) (setq okuri (skk-save-point (backward-char 1) (buffer-substring-no-properties (setq pt2 (point)) pt1))) (cond ((member okuri '("‰Ž" "‰ß")) (setq okuri (concat (skk-save-point (backward-char 2) (buffer-substring-no-properties (point) pt2)) okuri)) (setq sokuon t)) (okuri (setq sokuon (skk-save-point (backward-char 2) (buffer-substring-no-properties (point) pt2))) (unless (member sokuon '("‰Æ")) (setq sokuon nil)))) (when okuri (skk-save-point (backward-char (if sokuon 2 1)) (skk-set-marker skk-okurigana-start-point (point))) (setq skk-okuri-char (skk-okurigana-prefix (skk-katakana-to-hiragana (skk-jisx0201-zenkaku okuri)))) (let ((skk-katakana t)) ad-do-it)))) (t ad-do-it)))) skk-insert (skk-jisx0201-ad nil t (advice lambda nil "SKK JIS X 0201 ’„ā’”¼’„ɒ¤Ī’Źø’»ś’Ęž’ĪĻ’¤ņ’¹Ō’¤Ź’¤¦’”£" (cond (skk-jisx0201-mode (let ((arg (ad-get-arg 0)) (ch last-command-char)) (cond ((or (and (not skk-jisx0201-roman) (memq ch skk-set-henkan-point-key) (or skk-okurigana (not (skk-get-prefix skk-current-rule-tree)) (not (skk-select-branch skk-current-rule-tree ch)))) (and skk-henkan-mode (memq ch skk-special-midashi-char-list))) ad-do-it) ((and skk-henkan-mode (eq ch skk-start-henkan-char)) (skk-kana-cleanup 'force) (unless (or skk-okurigana skk-okuri-char) (let ((jisx0201 (buffer-substring-no-properties skk-henkan-start-point (point))) jisx0208) (when (and jisx0201 (setq jisx0208 (skk-jisx0201-zenkaku jisx0201))) (insert-before-markers jisx0208) (delete-region skk-henkan-start-point (- (point) (length jisx0208)))))) (let ((skk-katakana t)) (skk-start-henkan arg)) (skk-cursor-set)) (skk-jisx0201-roman (let (skk-set-henkan-point-key) ad-do-it)) (t ad-do-it)))) (t ad-do-it)))) skk-search-sagyo-henkaku (skk-jisx0201-set-okuri nil t (advice lambda nil "SKK JIS X 0201 ’„ā’”¼’„ɒ¤Ē’¤Ļ’Į÷’¤ź’²¾’Ģ¾’¤ņ’Č¾’³Ń’„«’„Ź’¤Ė’¤¹’¤ė’”£" (when skk-jisx0201-mode (ad-set-arg 0 '("‰»" "‰¼" "‰½" "‰¾")))))] 5) #@60 SKK ’¤Ī’„ā’”¼’„ɒ¤ņ JIS X 0201 ’„ā’”¼’„ɒ¤Ė’ŹŃ’¹¹’¤¹’¤ė’”£ (defalias 'skk-jisx0201-mode #[(arg) "\306 \210\307\310\311!\210\312\312\203\f\202  \307\307\307\307\307\313\307\211\2046\314\203B\315\"\210\236A\316=\203WA\202Z@\317 \210+\307\211\204p\205t\320!+\207" [arg skk-mode skk-jisx0201-mode skk-jisx0201-roman skk-jisx0201-roman-rule-tree skk-jisx0201-base-rule-tree skk-kakutei nil make-local-variable skk-rule-tree t jisx0201 default skk-modify-indicator-alist left force-mode-line-update skk-cursor-set-1 skk-abbrev-mode skk-latin-mode skk-j-mode skk-jisx0208-latin-mode skk-katakana string mode skk-indicator-alist indicator skk-status-indicator skk-modeline-input-mode force color skk-use-color-cursor] 4 (#$ . 11407) "P"]) #@68 ’Č¾’³Ń’„«’„Ź’„ā’”¼’„ɒ¤Č’„ķ’”¼’„Ž’»ś’„ā’”¼’„ɒ¤ņ’ĄŚ’¤ź’ĀŲ’¤Ø’¤ė’”£ (defalias 'skk-toggle-jisx0201 #[(arg) "\306=\203\n\307 !\207\n\203 \310\211\207 \311\211\207" [skk-henkan-mode arg skk-jisx0201-roman skk-jisx0201-base-rule-tree skk-rule-tree skk-jisx0201-roman-rule-tree on skk-jisx0201-henkan nil t] 2 (#$ . 12207) "P"]) (defalias 'skk-jisx0201-string-conversion #[(str func) "\303\304\305!!\306\216rq\210 c\210\n\307`\"\210\310 +\207" [#1=#:temp-buffer str func get-buffer-create generate-new-buffer-name " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) 1 buffer-string] 3]) #@90 STR ’¤Ī JIS X 0201 ’„«’„Ź’Źø’»ś’¤ņ’ĀŠ’±ž’¤¹’¤ė JIS X 0208 ’¤Ī’Źø’»ś’¤Ē’Ć֒¤­’“¹’¤Ø’¤ė’”£ (defalias 'skk-jisx0201-zenkaku #[(str) "\301\302\"\207" [str skk-jisx0201-string-conversion skk-jisx0201-zenkaku-region] 3 (#$ . 12843)]) #@90 STR ’¤Ī JIS X 0208 ’Źø’»ś’¤ņ’ĀŠ’±ž’¤¹’¤ė JIS X 0201 ’„«’„Ź’¤Ī’Źø’»ś’¤Ē’Ć֒¤­’“¹’¤Ø’¤ė’”£ (defalias 'skk-jisx0201-hankaku #[(str) "\301\302\"\207" [str skk-jisx0201-string-conversion japanese-hankaku-region] 3 (#$ . 13078)]) (defalias 'skk-toggle-katakana #[(arg) "\306=\203\n\307 !\207\n\203E\310=\203\311 \210\312\312\313\312\312\313\312\312 \314 \210\315\203:\303\202;\316!\210\317 \210)\320\321!\207\310=\203N\311 \210\312\322\321!\210\313\313  \203d\202f\312\312\312\312\312\323\312 \211!\204\203\324! \203\217\325! \"\210!\"\236A#$\326=\203\244#A\202\247#@%\327 \210+\312\211&'(\204\275&\205\301\330'!+\207" [skk-henkan-mode arg skk-jisx0201-mode katakana skk-mode skk-abbrev-mode on skk-jisx0201-henkan active skk-kakutei nil t skk-setup-keymap skk-update-modeline hiragana skk-cursor-set kill-local-variable skk-rule-tree make-local-variable jisx0201 default skk-modify-indicator-alist left force-mode-line-update skk-cursor-set-1 skk-latin-mode skk-j-mode skk-jisx0208-latin-mode skk-katakana skk-jisx0201-roman skk-jisx0201-roman-rule-tree skk-jisx0201-base-rule-tree string mode skk-indicator-alist indicator skk-status-indicator skk-modeline-input-mode force color skk-use-color-cursor] 4 nil "P"]) (defalias 'skk-jisx0201-zenkaku-region #[(start end) "\302 \303#\207" [start end japanese-zenkaku-region katakana-only] 4]) #@267 ’¢¦’„ā’”¼’„ɒ¤Ē’¤¢’¤ģ’¤Š’”¢’ĪĪ’°č’¤Ī’¤Ņ’¤é’¤¬’¤Ź/’„«’„æ’„«’„Ź’¤ņ ‰Ź‰Ż‰¶‰ø‰¶‰Ą‰¶‰Å ’¤Ė’ŹŃ’“¹’¤¹’¤ė’”£ ’¢§’„ā’”¼’„ɒ¤Ē’¤Ļ’²æ’¤ā’¤·’¤Ź’¤¤’”£ ’¤½’¤Ī’Ā¾’¤Ī’„ā’”¼’„ɒ¤Ē’¤Ļ’”¢’„Ŗ’„ź’„ø’„Ź’„ė’¤Ī’„­’”¼’³ä’¤ź’ÉՒ¤±’¤Ē’„Š’„¤’„ó’„ɒ¤µ’¤ģ’¤Ę’¤¤’¤ė’„³’„Ž’„ó’„ɒ¤ņ’¼Ā’¹Ō ’¤¹’¤ė’”£ (defalias 'skk-jisx0201-henkan #[(arg) "\301\302\"\207" [arg skk-henkan-skk-region-by-func skk-jisx0201-region] 3 (#$ . 14492) "*P"]) #@142 ’ĪĪ’°č’¤Ī’¤Ņ’¤é’¤¬’¤Ź/’„«’„æ’„«’„Ź’¤ņ ‰Ź‰Ż‰¶‰ø‰¶‰Ą‰¶‰Å ’¤Ė’ŹŃ’“¹’¤¹’¤ė’”£ ’°ś’æō’¤Ī START ’¤Č END ’¤Ļ’æō’»ś’¤Ē’¤ā’„Ž’”¼’„«’”¼’¤Ē’¤ā’Īɒ¤¤’”£ (defalias 'skk-jisx0201-region #[(start end) "\302 \303\223\304 \"\210\305 \"\210\303\211\223\207" [end start make-marker nil skk-hiragana-to-jisx0201-region skk-katakana-to-jisx0201-region] 3 (#$ . 14900) "*r\nP"]) (defalias 'skk-hiragana-to-jisx0201-region #[(start end) "\302 \303\304$\207" [start end skk-search-and-replace "[’¤”-’¤ó’”£’”¢’”¦’”¼’”«’”¬]+" #[(matched) "\302 \303\216\304 !*\207" [save-match-data-internal matched match-data ((set-match-data save-match-data-internal)) skk-jisx0201-hankaku] 2]] 5]) (defalias 'skk-katakana-to-jisx0201-region #[(start end) "\302 \303\304$\207" [start end skk-search-and-replace "[’„”-’„ō’”£’”¢’”¦’”¼’”«’”¬]+" #[(matched) "\302 \303\216\304 !*\207" [save-match-data-internal matched match-data ((set-match-data save-match-data-internal)) skk-jisx0201-hankaku] 2]] 5]) (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-jisx0201 product-find-by-name "Daredevil SKK" product-run-checkers (12 2 0) product-add-feature product-version vector nil "Sone" "12.2.0"] 12)