;ELC ;;; Compiled by dan@wayne.mit.edu on Wed Apr 21 21:02:04 2004 ;;; from file /usr/pkgsrc-current/inputmethod/skk/work.bondage/ddskk-12.2.0/skk-gadget.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-gadget.el' was compiled for Emacs 20 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@545 `current-time-string' ’¤Î’½Ð’ÎÏ’¤ò’²Ã’¹©’¤·’¡¢’¸½’ºß’¤Î’Æü’»þ (string)’¤ò’ÊÖ’¤¹’¡£ ’¥ª’¥×’¥·’¥ç’¥Ê’¥ë’°ú’¿ô’¤Î PP-FUNCTION ’¤ò’»Ø’Äê’¤¹’¤ë’¤È’¡¢`skk-current-date-1' ’¤Î’ÊÖ’¤ê’ÃÍ’¡¢FORMAT ’¤È AND-TIME ’¤ò’°ú’¿ô’¤Ë’¤·’¤Æ `funcall' ’¤¹’¤ë’¡£ PP-FUNCTION ’¤Î’»Ø’Äê’¤¬’¤Ê’¤¤’¾ì’¹ç’¤Ï `skk-default-current-date-function' ’¤ò `funcall' ’¤¹’¤ë’¡£ FORMAT ’¤Ï `format' ’¤Î’Âè’°ì’°ú’¿ô’¤Î’ÍÍ’¼° (string)’¤Ë’¤è’¤ë’½Ð’ÎÏ’»Ø’Ä꒥ƒ¥ó’¥×’¥ì’¡¼’¥È’¡£ AND-TIME (boolean) ’¤ò’»Ø’Äê’¤¹’¤ë’¤È’»þ’¹ï’¤â’ÊÖ’¤¹’¡£ `skk-today' ’¤È `skk-clock' ’¤Î’¥µ’¥Ö’¥ë’¡¼’¥Á’¥ó’¡£ (defalias 'skk-current-date #[(&optional pp-function format and-time) "\204 \305 \n \f$\207" [pp-function skk-default-current-date-function format skk-date-ad and-time skk-current-date-1] 5 (#$ . 647)]) #@147 `current-time-string' ’¤Î’½Ð’ÎÏ’¤ò’²Ã’¹©’¤·’¡¢’Æü’ÉÕ’¡¦’»þ’¹ï’¾ð’Êó’¤ò’¥ê’¥¹’¥È’¤Ë’¤·’¤Æ’ÊÖ’¤¹’¡£ (year month day day-of-week hour minute second) (defalias 'skk-current-date-1 #[(&optional specified-time) "\303!\211\304\305O\211\306H\307=\203\n\310\311O \312\313O \314\315O\n \306\316O \317\320O \321\322O \323\324O\257*\207" [specified-time str date current-time-string 8 10 0 32 1 nil 20 24 4 7 3 11 13 14 16 17 19] 10 (#$ . 1406)]) #@1668 ’Æü’ÉÕ’¾ð’Êó’¤Î’ɸ’½à’Ū’¤Ê’½Ð’ÎÏ’¤ò’¤¹’¤ë’¾’¡¢’¥æ’¡¼’¥¶’¤Ë’¤¢’¤ë’Äø’ÅÙ’¤Î’¥«’¥¹’¥¿’¥Þ’¥¤’¥º’µ¡’ǽ’¤ò’Ä󒶡’¤¹’¤ë’¡£ ’¤³’¤Î’´Ø’¿ô’¤Î’°ú’¿ô’¤Ç’¥«’¥¹’¥¿’¥Þ’¥¤’¥º’¤Ç’¤­’¤Ê’¤¤’½Ð’ÎÏ’¤ò’´õ’˾’¤¹’¤ë’¾ì’¹ç’¤Ï’¡¢ `skk-default-current-date-function' ’¤Ë’¼«’Á°’¤Î’´Ø’¿ô’¤ò’»Ø’Äê’¤¹’¤ë’¡£ DATE-INFORMATION ’¤Ï `current-time-string' ’¤¬’ÊÖ’¤·’¤¿’ʸ’»ú’Îó’¤ò (year month day day-of-week hour minute second) ’¤Î’·Á’¼°’¤Ç’ÊÑ’´¹’¤·’¤¿’¥ê’¥¹’¥È (’³Æ’Í×’ÁÇ’¤Ï’ʸ’»ú’Îó)’¡£ FORMAT ’¤Ï `format' ’¤Î’Âè’°ì’°ú’¿ô’¤Î’ÍÍ’¼°’¤Ë’¤è’¤ë’½Ð’ÎÏ’·Á’ÂÖ’¤ò’»Ø’Äê’¤¹’¤ë’ʸ’»ú’Îó’¡£ nil ’¤Ç’¤¢’¤ì’¤Ð "%s’ǯ%s’·î%s’Æü(%s)%s’»þ%s’ʬ%s’ÉÃ" (’¤â’¤·’¤¯’¤Ï "%s’ǯ%s’·î%s’Æü(%s)" ’¤¬’»È’¤ï’¤ì’¤ë’¡£ NUM-TYPE (number) ’¤Ï 0 -> ’̵’ÊÑ’´¹, 1 -> ’Á´’³Ñ’¿ô’»ú’¤Ø’ÊÑ’´¹, 2 -> ’´Á’¿ô’»ú’¤Ø’ÊÑ’´¹ (’°Ì’¼è’¤ê’¤Ê’¤·), 3 -> ’´Á’¿ô’»ú’¤Ø’ÊÑ’´¹ (’°Ì’¼è’¤ê’¤ò’¤¹’¤ë), 4 -> ’¤½’¤Î’¿ô’»ú’¤½’¤Î’¤â’¤Î’¤ò’¥­’¡¼’¤Ë’¤·’¤Æ’¼­’½ñ’¤ò’ºÆ’¸¡’º÷, 5 -> ’´Á’¿ô’»ú (’¼ê’·Á’¤Ê’¤É’¤Ç’»È’ÍÑ’¤¹’¤ë’ʸ’»ú’¤ò’»È’ÍÑ)’¤Ø’ÊÑ’´¹ (’°Ì’¼è’¤ê’¤ò’¤¹’¤ë), 9 -> ’¾­’´ý’¤Ç’»È’ÍÑ’¤¹’¤ë’¿ô’»ú ("’£³’»Í" ’¤Ê’¤É) ’¤Ë’ÊÑ’´¹ GENGO ’¤Ï’¸µ’¹æ’ɽ’¼¨’¤¹’¤ë’¤«’¤É’¤¦’¤« (boolean)’¡£ GENGO-INDEX ’¤Ï `skk-gengo-alist' ’¤Î’³Æ’Í×’ÁÇ’¤Î cadr ’¤ò 0 ’¤È’¤¹’¤ë index (number)’¡£nil ’¤Ç’¤¢’¤ì’¤Ð `current-time-string' ’¤Î’½Ð’ÎÏ’¤Î’¤Þ’¤Þ’̵’ÊÑ’´¹’¡£ MONTH-ALIST-INDEX ’¤Ï `skk-month-alist' ’¤Î’³Æ’Í×’ÁÇ’¤Î cadr ’¤ò 0 ’¤È’¤¹’¤ë index (number)’¡£nil ’¤Ç’¤¢’¤ì’¤Ð `current-time-string' ’¤Î’½Ð’ÎÏ’¤Î’¤Þ’¤Þ’̵’ÊÑ’´¹’¡£ DAYOFWEEK-ALIST-INDEX ’¤Ï `skk-day-of-week-alist' ’¤Î’³Æ’Í×’ÁÇ’¤Î cadr ’¤ò 0 ’¤È’¤¹’¤ë index (number)’¡£nil ’¤Ç’¤¢’¤ì’¤Ð `current-time-string' ’¤Î’½Ð’ÎÏ’¤Î’¤Þ ’¤Þ’̵’ÊÑ’´¹’¡£ AND-TIME ’¤Ï’»þ’¹ï’¤â’ɽ’¼¨’¤¹’¤ë’¤«’¤É’¤¦’¤« (boolean)’¡£ (defalias 'skk-default-current-date #[(date-information format num-type gengo gengo-index month-alist-index dayofweek-alist-index &optional and-time) "@A@\3068\3078\3108\3118\3128\313\203,\314\315!!\203M\203> @8\202A @@\316\317 A!\"P\202S\316\"\203j\316\320\"A8\"\316\"\203\201\320 \"A8\203\230\316\f\"\316 \"\316\n\"\203\263\321\206\244\322 \f \n&\202\302\321\206\272\323 %.\207" [date-information v second minute hour day-of-week 2 3 4 5 6 nil skk-ad-to-gengo-1 string-to-number skk-num-exp number-to-string assoc format "%s’ǯ%s’·î%s’Æü(%s)%s’»þ%s’ʬ%s’ÉÃ" "%s’ǯ%s’·î%s’Æü(%s)" day month year gengo gengo-index num-type month-alist-index skk-month-alist dayofweek-alist-index skk-day-of-week-alist and-time] 9 (#$ . 1856)]) #@253 `current-time-string' ’¤Î’½Ð’ÎÏ’¤ò’²Ã’¹©’¤·’¡¢’¸½’ºß’¤Î’Æü’»þ’¤ò’ɽ’¤¹’ʸ’»ú’Îó’¤ò’ºî’¤ê’¡¢’ÁÞ’Æþ’¤¹’¤ë’¡£ ’¼Â’¼Á’Ū’¤Ë today ’¥¨’¥ó’¥È’¥ê’¤Î’¸Æ’½Ð’¤·’¤Ê’¤Î’¤Ç’¡¢’¸Ä’¿Í’¼­’½ñ’¤Î today ’¥¨’¥ó’¥È’¥ê’¤Ë’¤è’¤ê’¥«’¥¹’¥¿’¥Þ ’¥¤’¥º’¤¹’¤ë’¤³’¤È’¤¬’¤Ç’¤­’¤ë’¡£ (defalias 'skk-today #[(arg) "\204\300\302!\210\303 \210\304c\210\305 !\207" [skk-mode arg 1 skk-set-henkan-point-subr "today" skk-start-henkan] 2 (#$ . 4363) "p"]) #@903 ’¥Ç’¥¸’¥¿’¥ë’»þ’·×’¤ò’¥ß’¥Ë’¥Ð’¥Ã’¥Õ’¥¡’¤Ë’ɽ’¼¨’¤¹’¤ë’¡£ quit ’¤¹’¤ë’¤È’¤½’¤Î’»þ’ÅÀ’¤Î’Æü’»þ’¤ò’¸õ’Ê䒤Ȓ¤·’¤Æ’ÁÞ’Æþ’¤¹’¤ë’¡£ quit ’¤·’¤¿’¤È’¤­’¤Ë’µ¯’Æ°’¤·’¤Æ’¤«’¤é’¤Î’·Ð’²á’»þ’´Ö’¤ò’¥ß’¥Ë’¥Ð’¥Ã’¥Õ’¥¡’¤Ë’ɽ’¼¨’¤¹’¤ë’¡£ interactive ’¤Ë’µ¯’Æ°’¤¹’¤ë’¾’¡¢"clock /(skk-clock)/" ’¤Ê’¤É’¤Î’¥¨’¥ó’¥È’¥ê’¤ò SKK ’¤Î’¼­’½ñ ’¤Ë’²Ã’¤¨’¡¢"/clock"+ SPC ’¤Ç’ÊÑ’´¹’¤¹’¤ë’¤³’¤È’¤Ë’¤è’¤Ã’¤Æ’¤â’µ¯’Æ°’²Ä’¡£C-g ’¤Ç’»ß’¤Þ’¤ë’¡£ ’¼Â’¹Ô’ÊÑ’´¹’¤Ç’µ¯’Æ°’¤·’¤¿’¾ì’¹ç’¤Ï’¡¢C-g ’¤·’¤¿’»þ’ÅÀ’¤Î’»þ’ÅÀ’¤Î’Æü’»þ’¤ò’ÁÞ’Æþ’¤¹’¤ë’¡£ ’¥ª’¥×’¥·’¥ç’¥Ê’¥ë’°ú’¿ô’¤Î KAKUTEI-WHEN-QUIT ’¤¬ non-nil ’¤Ç’¤¢’¤ì’¤Ð C-g ’¤·’¤¿’¤È’¤­’¤Ë’³Î ’Äê’¤¹’¤ë’¡£ ’¥ª’¥×’¥·’¥ç’¥Ê’¥ë’°ú’¿ô’¤Î TIME-SIGNAL ’¤¬ non-nil ’¤Ç’¤¢’¤ì’¤Ð’¡¢NTT ’¤Î’»þ’Êó’É÷’¤Ë ding ’¤¹’¤ë’¡£ ’¤½’¤ì’¤¾’¤ì "clock /(skk-clock nil t)/" ’¤Î’¤è’¤¦’¤Ê’¥¨’¥ó’¥È’¥ê’¤ò’¼­’½ñ’¤Ë’ÁÞ’Æþ’¤¹’¤ì’¤Ð’ÎÉ’¤¤’¡£ skk-date-ad ’¤È skk-number-style ’¤Ë’¤è’¤Ã’¤Æ’ɽ’¼¨’Êý’Ë¡’¤Î’¥«’¥¹’¥¿’¥Þ’¥¤’¥º’¤¬’²Ä’ǽ’¡£ (defalias 'skk-clock #[(&optional kakutei-when-quit time-signal) "\306 \307\211\211\211\211\211\203\310=\203#\311\312\202<\313=\2041\314=\2038\315\316\202<\317\320\321 \322\216\307\323\324\217. \207" [snd sec expr2 expr1 mes end current-time nil 0 "[789]’ÉÃ" "0’ÉÃ" t 1 "[’£·’£¸’£¹]’ÉÃ" "’£°’ÉÃ" "[’¼·’Ȭ’¶å]’ÉÃ" "’¡»’ÉÃ" match-data ((set-match-data save-match-data-internal)) (byte-code "\306\211\211 ?\205\227\307\306\211\310#\311\312\313\f\"\210\203y\314\f\"\2037\306\315\306\316!\210+\202y\314\f\"\203y\203V\306\317\306\316!\210+\202y\316 \210 \320\\\211\321\322\306#*\204v\323 \210\324\325\306\"\210\316 \210\326 Z\321\322\306#*\204\323 \210\324\325\306\"\210\202+\207" [visible-bell inhibit-quit case-fold-search quit-flag mes sec nil skk-current-date t 0 message "%s Hit any key to quit" string-match drum ding clink 0.16 nodisplay sit-for next-command-event signal quit 1 time-signal expr1 device sound arg expr2 snd seconds] 4) ((quit (byte-code "\304 \305\306\211\307# \203\307\310\311\312 \"\"\210\207" [end kakutei-when-quit skk-kakutei-flag start current-time skk-current-date nil t message "’·Ð’²á’»þ’´Ö: %s ’ÉÃ" skk-time-difference] 6))) start skk-number-style save-match-data-internal] 7 (#$ . 4790) "*"]) (defalias 'skk-ad-to-gengo #[(gengo-index &optional divider tail not-gannen) "\306\307@! \" \n@8\f\nA;\204\310\nA!\202\nA R)\207" [skk-num-list not-gannen v gengo-index divider tail skk-ad-to-gengo-1 string-to-number number-to-string] 4]) (defalias 'skk-ad-to-gengo-1 #[(ad &optional not-gannen) "\304Y\203\305\306 \203\307\202\310\"\210\311Y\203$\312Z\313\n\236A\202N\314Y\2035\311Z\315\n\236A\202N\316Y\203F\314Z\317\n\236A\202N\316Z\320\n\236A \203V\202a\321U\203`\322\202aB\207" [ad skk-japanese-message-and-error skk-gengo-alist not-gannen 1866 error "%s" "’ʬ’¤ê’¤Þ’¤»’¤ó" "Unkown year" 1911 1867 meiji 1925 taisho 1988 showa heisei 1 "’¸µ"] 3]) (defalias 'skk-gengo-to-ad #[(&optional head tail) "\306 \307\216\310 @\n\"\205$\311\n\312\211\224O\313 @!\"\211\205#\f\314 ! Q)*\207" [save-match-data-internal skk-num-list skk-henkan-key v head tail match-data ((set-match-data save-match-data-internal)) string-match skk-gengo-to-ad-1 0 string-to-number number-to-string] 5]) (defalias 'skk-gengo-to-ad-1 #[(gengo number) "\211\303=\203\304\305 \203\306\202\307\"\202\211\n\310\235\203 \311\202\211\n\312\235\203?\313V\2030\314\202\211\304\305 \203:\315\202;\316\"\202\211\n\317\235\203^\320V\203O\321\202\211\304\305 \203Y\322\202Z\323\"\202\211\n\324\235\203}\325V\203n\326\202\211\304\305 \203x\327\202y\330\"\202\211\304\305 \203\207\331\202\210\332\"\\\207" [number skk-japanese-message-and-error gengo 0 error "%s" "0 ’ǯ’¤Ï’¤¢’¤ê’ÆÀ’¤Ê’¤¤" "Cannot convert 0 year" ("’¤Ø’¤¤’¤»’¤¤" "’Ê¿’À®") 1988 ("’¤·’¤ç’¤¦’¤ï" "’¾¼’ÏÂ") 64 1925 "’¾¼’ÏÂ’¤Ï 63 ’ǯ’¤Þ’¤Ç’¤Ç’¤¹" "The last year of Showa is 63" ("’¤¿’¤¤’¤·’¤ç’¤¦" "’Âç’Àµ") 15 1911 "’Âç’Àµ’¤Ï 14 ’ǯ’¤Þ’¤Ç’¤Ç’¤¹" "The last year of Taisyo is 14" ("’¤á’¤¤’¤¸" "’ÌÀ’¼£") 45 1867 "’ÌÀ’¼£’¤Ï 44 ’ǯ’¤Þ’¤Ç’¤Ç’¤¹" "The last year of Meiji is 44" "’Ƚ’ÊÌ’ÉԒǽ’¤Ê’¸µ’¹æ’¤Ç’¤¹’¡ª" "Unknown Gengo!"] 4]) (defalias 'skk-calc #[(operator) "\302\303\304\305 \"\"!\207" [operator skk-num-list number-to-string apply mapcar string-to-number] 6]) (defalias 'skk-plus #[nil "\300\301!\207" [skk-calc +] 2]) (defalias 'skk-minus #[nil "\300\301!\207" [skk-calc -] 2]) (defalias 'skk-times #[nil "\300\301!\207" [skk-calc *] 2]) (defalias 'skk-ignore-dic-word #[(&rest no-show-list) "\306\211\307\n 8 \"\f\203\310 \311 \"\202 \203)\312 @ \" A\211\204\n 8\2064\313 \211\204e\n\314V\203I\nS\211 8\202e\203X\314GSO\202Z\315\203e\316\317\320 \"\203z \314\211\224O \314\225\306OB\202{ *\207" [save-okurigana new-word skk-henkan-count skk-henkan-list skk-current-search-prog-list no-show-list nil delq skk-nunion skk-search delete skk-henkan-in-minibuff 0 -1 skk-henkan-face-off-and-remove-itself string-match ";" skk-okuri-char skk-henkan-key skk-use-face skk-insert-new-word-function] 5]) (defalias 'skk-henkan-face-off-and-remove-itself #[nil "\301 \210\302\211\207" [skk-insert-new-word-function skk-henkan-face-off nil] 2]) #@128 `skk-units-alist'’¤ò’»²’¾È’¤·’¡¢’´¹’»»’¤ò’¹Ô’¤Ê’¤¦’¡£ NUMBER ’¤Ë’¤Ä’¤¤’¤Æ UNIT-FROM ’¤«’¤é UNIT-TO ’¤Ø’¤Î’´¹’»»’¤ò’¹Ô’¤Ê’¤¦’¡£ (defalias 'skk-gadget-units-conversion #[(unit-from number unit-to) "\305\305 \n\"A\"\211\205\306\f A_! @P)\207" [unit-to unit-from skk-units-alist v number assoc number-to-string] 6 (#$ . 9995)]) (byte-code "\301\302!\210\303\300!\210\303\304!\210\305\306\307!\300\310\311!\312\313\"\210\314\306\307!\"\210\315!\313\232\203-\2028\316\311\317\313\320\317\211\211\321&)#\210\306\307!\207" [product run-hooks skk-gadget-load-hook require skk-version put provide skk-gadget product-find-by-name "Daredevil SKK" product-run-checkers (12 2 0) product-add-feature product-version vector nil "Sone" "12.2.0"] 12)