....................................../////.===Shadow-Here===./////................................................ > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < > < ------------------------------------------------------------------------------------------------------------------- /////////////////////////////////////////////////////////////////////////////////////////////////////////////////// RIFF¤ WEBPVP8 ˜ ðÑ *ôô>‘HŸK¥¤"§£±¨àð enü¹%½_F‘åè¿2ºQú³íªú`N¿­3ÿƒügµJžaÿ¯ÿ°~¼ÎùnúîÞÖô•òíôÁÉß®Sm¥Ü/ ‡ó˜f£Ùà<˜„xëJ¢Ù€SO3x<ªÔ©4¿+ç¶A`q@Ì“Úñè™ÍÿJÌ´ª-˜ÆtÊÛL]Ïq*‘Ý”ì#ŸÌÏãY]@ê`¿ /ªfkØB4·®£ó z—Üw¥Pxù–ÞLШKÇN¾AkÙTf½è'‰g gÆv›Øuh~ a˜Z— ïj*á¥t d£“uÒ ¨`K˜¹ßþ]b>˜]_ÏÔ6W—è2r4x•íÖ…"ƒÖNîä!¦å Ú}ýxGøÌ —@ ;ÆÚŠ=ɾ1ý8lªË¥ô ^yf®Œ¢u&2©nÙÇ›ñÂñŒ³ aPo['½»øFùà­+4ê“$!lövlüÞ=;N®3ð‚õ›DÉKòÞ>ÄÍ ¥ˆuߤ#ˆ$6ù™¥îŠ‡y’ÍB¼ çxÛ;X"WL£R÷͝*ó-¶Zu}º.s¸sšXqù–DþÿvªhüïwyŸ ¯é³lÀ:KCûÄ£Ëá\…­ ~—ýóî ¼ûûÜTÓüÇy…ŽÆvc»¾×U ñ¸žþоP÷¦ó:Ò¨¨5;Ð#&#ÖúñläÿÁœ GxÉ­/ñ‡áQðìYÉtÒwŽ¼GÔ´zàÒò ð*ëzƒ•4~H]Ø‹f ñÓÈñ`NåWçs'ÆÏW^ø¹!XžµmQ5ÃËoLœÎ: ÞËÍ¥J ù…î èo£ßPÎñ¶ž8.Œ]ʵ~5›ÙË-ù*8ÙÖß±~ ©¹rÓê‚j¶d¸{^Q'˜±Crß ÚH—#¥¥QlÀ×ëã‡DÜ«èî þ&Çæžî;ŽÏºò6ÒLÃXy&ZŒ'j‚¢Ù€IßÚù+–MGi‰*jE€‘JcÜ ÓÌ EÏÚj]o˜ Þr <¾U ûŪæÍ/šÝH¥˜b”¼ ÁñßX GP›ï2›4WŠÏà×£…íÓk†¦H·ÅíMh–*nó÷à]ÁjCº€b7<ب‹¨5車bp2:Á[UªM„QŒçiNMa#<5›áËó¸HýÊ"…×Éw¹¦ì2º–x<›»a±¸3Weü®FÝ⑱ö–î–³|LPÈ~çð~Çå‡|º kD¢µÏàÆAI %1À% ¹Ò – ”ϝS¦‰4&¶£°à Öý”û_Ò Áw°A«Å€?mÇÛgHÉ/8)á¾ÛìáöŽP í¨PŸNÙµº¦‡§Ùš"ÿ«>+ªÕ`Ê÷‡‚ß Õû˜þãÇ-PÍ.¾XV‘€ dÜ"þ4¹ ±Oú‘©t¥¦FªÄÃÄ•b‚znýu½—#cDs˜ÃiÑOˆñ×QO=*IAÊ,¶ŽZƒ;‡wøXè%EÐk:F±Ú” .Ѽ+Áu&Ç`."pÈÉw o&¿dE6‘’EqTuK@Ì¥ã™À(Êk(h‰,H}RÀIXÛš3µ1©_OqÚÒJAñ$ÊÙÜ;D3çŒ[þùœh¬Ã³™ö6ç†NY".Ú‰ï[ªŸŒ '²Ð öø_¨ÂÉ9u鶳ÒŠõTàîMØ#û¯gN‡bÙ놚X„ö …ÉeüÌ^J ‹€.œ$Æ)βÄeæW#óüßĺŸ€ ÀzwV 9oä»f4V*uB «Ë†¹ì¯žR霓æHXa=&“I4K;¯ç‹h×·"UŠ~<•â•ªVêª&ÍSÃÆÅ?ÔqÎ*mTM ˜›µwêd#[C¡©§‘D<©àb†–ÁœøvH/,í:¯( ²£|4-„Æövv„Yͼ™^Á$ˆ„¢Û[6yB.åH*V¨æ?$=˜Ñ€•î¦ñ·­(VlŸ‘ nÀt8W÷´Bûba?q9ú¶Xƒl«ÿ\ù¶’þòUÐj/õ¢Ìµ³g$ƒÎR!¸»|Oߍë’BhîÚÑ¢ñåŒJ„®„£2Ð3•ô02Nt…!£Í]Ïc½Qÿ?ˆ<&ÃA¾Ú,JˆijÌ#5yz„‰Î|ÊŽ5QÏ:‹ÐaóVÔxW—CpeÏzÐïíçôÿÅ_[hãsÐ_/ŽTÝ?BîˆííV$<¿i>²F¬_Eß¿ †bÊŒº­ÿ®Z H“C}”¬,Mp ý/Bá£w>˜YV°aƒúh+cŠ- r/[%|üUMHäQ°X»|û/@|°¥Ð !BÔ Ç¢Ä©š+Õì D«7ìN¶ŽðÔ " ƶ’ÖçtA‰Û×}{tþz­¾GÍ›k¹OEJR$ Â׃ «ëÁ"oÉôž$oUK(Ä)Ãz³Ê-‹êN[Ò3Œñbï8P 4ƒ×q¢bo|?<ÛX¬òÄÍ°L–±›(™ûG?ýË©ÚÄ–ÂDØÐ_Ç¡ô ¾–ÄÏø ×e8Ë©$ÄF¹Å‹ì[©óìl:F¾f´‹‹Xì²ï®\¬ôùƒ ÿat¥óèÒùHß0äe‚;ü×h:ÆWðHž=Ã8骣"kœ'Y?³}Tûè€>?0l›e1Lòñ„aæKÆw…hÖŠùW…ÈÆÄ0ši·›[pcwËþñiêíY/~-Á5˜!¿†A›™Mÿþ(±“t@â“ö2­´TG5yé]çå僳 .·ÍïçÝ7UÚ±Ð/Nè»,_Ï ùdj7\ï Wì4›„»c¸àešg#ÒÊ⥭áØo5‘?ÌdÝô¯ ¹kzsƒ=´#ëÉK›Ø´±-¥eW?‡çßtòTã…$Ý+qÿ±ƒ÷_3Ô¥í÷:æ–ž<·Ö‡‰Å¢ š‡%Ô—utÌÈìðžgÖÀz²À—ï÷Óîäõ{K'´È÷³yaÏÁjƒô}ž§®æÊydÕÈë5¯èˆõvÕ©ã*çD„ “z„Ó‡^^xÂ3M§A´JG‚öï 3W'ˆ.OvXè¡ÊÕª?5º7†˜(˜Ç¶#çê’¶!ÌdZK§æ 0fãaN]òY³RV ™î$®K2R¨`W!1Ôó\;Ý ýB%qæK•&ÓÈe9È0êI±žeŸß -ú@žQr¦ ö4»M¼Áè¹µmw 9 EÆE_°2ó„ŸXKWÁ×Hóì^´²GѝF©óäR†¦‰ç"V»eØ<3ùd3ÿÚ¤Žú“Gi" —‘_ÙËÎ~Üö¯¥½Î»üŸEÚŽåmÞþí ;ÞólËΦMzA"Âf(´òá;Éï(/7½ûñÌ­cïÕçлþÝz¾-ÍvÑ“pH­–ðÓj$¸Äû¤‚‘ãUBË-n“2åPkS5&‹Â|+g^œ®Ì͆d!OïäîU«c;{Û!ÅŽ«ëZ9Ókóˆ]¯ƒ›né `ÇÒ+tÆš (ØKá¾—=3œ®•vuMñg²\ï Ec€ 05±d™‡×iÇ×›UúvÌ¢£Èþ¡ÕØô¶ßÎA"ß±#Ö²ˆÊŸ¦*Ä~ij|àø.-¼'»Ú¥£h ofº¦‡VsR=N½„Î v˜Z*SÌ{=jÑB‹tê…;’HžH¯8–îDù8ñ¢|Q•bÛçš–‹m³“ê¨ åÏ^m¬Žãþ©ïêO‡½6] µÆ„Ooòü ²x}N¦Ë3ïé¿»€›HA˜m%çÞ/¿í7Fø“‹léUk)É°Œµ8Q8›:ÀŠeT*šõ~ôڝG6 ¢}`ùH­–”¡k ‰P1>š†®9z11!X wKfmÁ¦xÑ,N1Q”–æB¶M…ÒÃv6SMˆhU¬ÊPŽï‘öj=·CŒ¯u¹ƒVIЃsx4’ömÛýc塶7ßŠß 57^\wÒÐÆ k§h,Œý î«q^R½3]J¸ÇðN ‚çU¬ôº^Áì} ³f©Õœ§ˆã:FÄÈ‚é(€™?àýÓüè1Gô£¼éj‚OÅñ  #>×—ßtà 0G¥Åa뀐kßhc™À_ÉñÞ#±)GD" YîäË-ÿÙ̪ ¹™a¯´¢E\ÝÒö‚;™„ë]_ p8‰o¡ñ+^÷ 3‘'dT4œŽ ðVë½° :¬víÑ«£tßÚS-3¶“þ2 †üüʨòrš¹M{É_¤`Û¨0ìjœøJ‡:÷ÃáZ˜†@GP&œÑDGÏs¡þ¦þDGú‘1Yá9Ôþ¼ ûø…§÷8&–ÜÑnÄ_m®^üÆ`;ÉVÁJ£?â€-ßê}suÍ2sõA NÌúA磸‘îÿÚ»ƒìö·á¿±tÑÐ"Tÿü˜[@/äj¬€uüªìù¥Ý˜á8Ý´sõj 8@rˆð äþZÇD®ÿUÏ2ùôõrBzÆÏÞž>Ì™xœ“ wiÎ×7_… ¸ \#€MɁV¶¥üÕÿPÔ9Z‡ø§É8#H:ƒ5ÀÝå9ÍIŒ5åKÙŠ÷qÄ>1AÈøžj"µÂд/ªnÀ qªã}"iŸBå˜ÓÛŽ¦…&ݧ;G@—³b¯“•"´4í¨ôM¨åñC‹ïùÉó¯ÓsSH2Ý@ßáM‡ˆKÀªÛUeø/4\gnm¥‹ŸŒ qÄ b9ÞwÒNÏ_4Ég³ú=܆‚´ •â¥õeíþkjz>éÚyU«Íӝ݃6"8/ø{=Ô¢»G¥ äUw°W«,ô—¿ãㆅү¢³xŠUû™yŒ (øSópÐ 9\åTâ»—*oG$/×ÍT†Y¿1¤Þ¢_‡ ¼ „±ÍçèSaÓ 3ÛMÁBkxs‰’R/¡¤ˆÙçª(*õ„üXÌ´ƒ E§´¬EF"Ù”R/ÐNyÆÂ^°?™6¡œïJ·±$§?º>ÖüœcNÌù¯G ‹ñ2ŠBB„^·úìaz¨k:#¨Æ¨8LÎõލ£^§S&cŒÐU€ü(‡F±Š¼&P>8ÙÁ ‰ p5?0ÊƃZl¸aô š¼¡}gÿ¶zÆC²¹¬ÎÖG*HB¡O<º2#ñŒAƒ–¡B˜´É$¥›É:FÀÔx¾u?XÜÏÓvN©RS{2ʈãk9rmP¼Qq̳ è¼ÐFׄ^¡Öì fE“F4A…!ì/…¦Lƒ… … $%´¾yã@CI¬ á—3PþBÏNÿ<ý°4Ü ËÃ#ØÍ~âW«rEñw‹eùMMHß²`¬Öó½íf³:‹k˜¯÷}Z!ã¿<¥,\#öµÀ¯aÒNÆIé,Ћ–lŽ#Àæ9ÀÒS·I’½-Ïp Äz¤Š Â* ­íÄ9­< h>׍3ZkËU¹§˜ŒŠ±f­’¤º³Q ÏB?‹#µíÃ¥®@(Gs«†vI¥Mµ‹Á©e~2ú³ÁP4ìÕi‚²Ê^ö@-DþÓàlÜOÍ]n"µã:žpsŽ¢:! Aõ.ç~ÓBûH÷JCÌ]õVƒd «ú´QÙEA–¯¯Œ!.ˆˆëQ±ù œ·Ì!Õâ )ùL„ÅÀlÚè5@B…o´Æ¸XÓ&Û…O«˜”_#‡ƒ„ûÈt!¤ÁÏ›ÎÝŠ?c9 â\>lÓÁVÄÑ™£eØY]:fÝ–—ù+p{™ðè û³”g±OƒÚSù£áÁÊ„ä,ï7š²G ÕÌBk)~ÑiCµ|h#u¤¶îK¨² #²vݯGãeÖ϶ú…¾múÀ¶þÔñ‚Š9'^($¤§ò “š½{éúp÷J›ušS¹áªCÂubÃH9™D™/ZöØÁ‡¦ÝÙŸ·kð*_”.C‹{áXó€‡c¡c€§/šò/&éš÷,àéJþ‰X›fµ“C¨œ®r¬"kL‰Â_q…Z–.ÉL~O µ›zn‚¹À¦Öª7\àHµšÖ %»ÇníV[¥*Õ;ƒ#½¾HK-ÖIÊdÏEÚ#=o÷Óò³´Š: Ç?{¾+9›–‘OEáU·S€˜j"ÄaÜ ŒÛWt› á–c#a»pÔZÞdŽtWê=9éöÊ¢µ~ ë ;Öe‡Œ®:bî3±ýê¢wà¼îpêñ¹¾4 zc¾ðÖÿzdêŒÑÒŝÀ‰s6¤í³ÎÙB¿OZ”+F¤á‡3@Ñëäg©·Ž ˆèª<ù@É{&S„œÕúÀA)‰h:YÀ5^ÂÓŒ°õäU\ ùËÍû#²?Xe¬tu‰^zÒÔãë¼ÛWtEtû …‚g¶Úüâî*moGè¨7%u!]PhÏd™Ý%Îx: VÒ¦ôÊD3ÀŽKÛËãvÆî…N¯ä>Eró–ð`5 Œ%u5XkñÌ*NU%¶áœÊ:Qÿú»“úzyÏ6å-၇¾ ´ ÒÊ]y žO‘w2Äøæ…H’²f±ÎÇ.ª|¥'gîV•Ü .̘¯€šòü¤U~Ù†*¢!?ò wý,}´°ÔÞnïoKq5µb!áÓ3"vAßH¡³¡·G(ÐÎ0Îò¼MG!/ài®@—¬04*`…«é8ªøøló“ˆÊ”èù¤…ßÊoÿé'ËuÌÖ5×È¡§ˆˆfŽë9}hìâ_!!¯  B&Ëö¶‰ÀAÙNVŸ Wh›¸®XÑJì¨ú“¿÷3uj²˜¨ÍÎìë±aúŠÝå¯ð*Ó¨ôJ“yºØ)m°WýOè68†ŸÏ2—‰Ïüꪫٚ¥‹l1 ø ÏÄFjêµvÌbü¦èÝx:X±¢H=MÐß—,ˆÉÇ´(9ú¾^ÅÚ4¿m‡$âX‘å%(AlZo@½¨UOÌÕ”1ø¸jÎÀÃÃ_ µ‘Ü.œº¦Ut: Æï’!=¯uwû#,“pþÇúŒø(é@?³ü¥‘Mo §—s@Œ#)§ŒùkL}NOÆêA›¸~r½¼ÙA—HJ«eˆÖ´*¡ÓpÌŸö.m<-"³ûÈ$¬_6­åf£ïÚâj1y§ÕJ½@dÞÁr&Í\Z%D£Íñ·AZ Û³øüd/ªAi†/Й~  ‡âĮҮÏh§°b—›Û«mJžòG'[ÈYýŒ¦9psl ýÁ ®±f¦x,‰½tN ‚Xª9 ÙÖH.«Lo0×?͹m¡å†Ѽ+›2ƒF ±Ê8 7Hցϓ²Æ–m9…òŸï]Â1äN†VLâCˆU .ÿ‰Ts +ÅÎx(%¦u]6AF Š ØF鈄‘ |¢¶c±soŒ/t[a¾–û:s·`i햍ê›ËchÈ…8ßÀUÜewŒðNOƒõD%q#éû\9¤x¹&UE×G¥ Í—™$ð E6-‡¼!ýpãÔM˜ Âsìe¯ñµK¢Ç¡ùôléœ4Ö£”À Š®Ðc ^¨À}ÙËŸ§›ºê{ÊuÉC ×Sr€¤’fÉ*j!úÓ’Gsùìoîßîn%ò· àc Wp÷$¨˜)û»H ×8ŽÒ€Zj¤3ÀÙºY'Ql¦py{-6íÔCeiØp‘‡XÊîÆUߢ܂ž£Xé¼Y8þ©ëgñß}é.ÎógÒ„ÃØËø¯»™§Xýy M%@NŠ À(~áÐvu7&•,Ù˜ó€uP‡^^®=_E„jt’ 403WebShell
403Webshell
Server IP : 66.235.200.170  /  Your IP : 3.145.83.240
Web Server : Apache
System : Linux gator4410.hostgator.com 5.14.0-162.23.1.9991722448259.nf.el9.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Jul 31 18:11:45 UTC 2024 x86_64
User : bmgxafte ( 1214)
PHP Version : 8.2.28
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : OFF  |  Sudo : ON  |  Pkexec : ON
Directory :  /usr/share/emacs/27.2/lisp/international/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :

[ Back ]     

Current File : /usr/share/emacs/27.2/lisp/international/kkc.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.

;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
     (< (aref emacs-version (1- (length emacs-version))) ?A)
     (string-lessp emacs-version "23")
     (error "`%s' was compiled for Emacs 23 or later" #$))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(require 'ja-dic-utl)
#@97 String denoting KKC input method.
This string is shown at mode line when users are in KKC mode.
(defvar kkc-input-method-title "漢" (#$ . 430))
#@66 Name of a file which contains user's initial setup code for KKC.
(defvar kkc-init-file-name (locate-user-emacs-file "kkcrc" ".kkcrc") (#$ . 581))
(defvar kkc-init-file-flag nil)
(defvar kkc-lookup-cache nil)
(defconst kkc-lookup-cache-tag 'kkc-lookup-cache-2)
#@78 Save initial setup code for KKC to a file specified by `kkc-init-file-name'.
(defalias 'kkc-save-init-file #[nil "\205\305=?\205\306\307\310\311\312\"\307\f#*\207" [kkc-init-file-flag print-length coding-system-for-write kkc-lookup-cache kkc-init-file-name t iso-2022-7bit nil write-region format "(setq kkc-lookup-cache '%S)\n"] 4 (#$ . 847)])
(defvar kkc-show-conversion-list-index-chars "1234567890")
#@54 Show key bindings available while converting by KKC.
(defalias 'kkc-help #[nil "r\306\307!q\210p\310 \210	\311\211\312\211\312\313 \210\314\315!\210+\211\316\317\320!!\321!\210+\207" [default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks get-buffer-create "*Help*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ substitute-command-keys "\\{kkc-keymap}" internal-temp-output-buffer-show inhibit-read-only #2=#:buf standard-output] 4 (#$ . 1266) nil])
#@40 Keymap for KKC (Kana Kanji Converter).
(defvar kkc-keymap (byte-code "\304 G\305	\nW\203\306\307	H!\310#\210	T\211\202	\306\311\312#\210\306\313\314#\210\306\315\316#\210\306\317\312#\210\306\320\321#\210\306\322\323#\210\306\324\325#\210\306\326\327#\210\306\330\331#\210\306\332\333#\210\306\334\333#\210\306\335\336#\210\306\337\340#\210\306\341\342#\210\306\343\344#\210\306\345\346#\210\306\347\316#\210\306\350\333#\210\306\351\314#\210\306\352\353#\210+\207" [kkc-show-conversion-list-index-chars i len map make-sparse-keymap 0 define-key char-to-string kkc-select-from-list " " kkc-next "
" kkc-terminate "" kkc-first-char-only "" "" kkc-prev "	" kkc-shorter "" kkc-longer "I" kkc-shorter-conversion "O" kkc-longer-phrase "" kkc-cancel "" "" kkc-next-phrase "K" kkc-katakana "H" kkc-hiragana "l" kkc-show-conversion-list-or-next-group "L" kkc-show-conversion-list-or-prev-group [67108896] [delete] [return] "" kkc-help] 6) (#$ . 1828))
(defvar kkc-original-kana nil)
(defvar kkc-current-key nil)
(defvar kkc-current-conversions nil)
(defvar kkc-current-conversions-width nil)
#@263 Count of successive `kkc-next' or `kkc-prev' to show conversion list.
When you type SPC or C-p successively this count while using the input
method `japanese', the conversion candidates are shown in the echo
area while indicating the current selection by `<N>'.
(custom-declare-variable 'kkc-show-conversion-list-count 4 '(#$ . 2958) :group 'mule :type 'integer)
(defvar kkc-next-count nil)
(defvar kkc-prev-count nil)
(defvar kkc-overlay-head nil)
(defvar kkc-overlay-tail nil)
(defvar kkc-length-head nil)
(defvar kkc-length-converted nil)
(defvar kkc-cursor-type nil)
(defalias 'kkc-lookup-key #[(len &optional postfix prefer-noun) "\204!\306\307\310\311\312\"\210\313\n!\203!\3141\315\n!0\202 \210\n\210	\211\205/<\205/A<)\203:	@\f=\204?\fC\301\316
	\317\306%\211@:\203_\307@\211\202\242\320
$\211\203\217\307\321B\203\213\322
	$\210\301\306\202\242\321U\205\242\321\307\317\307B\211)\207" [kkc-init-file-flag kkc-lookup-cache kkc-init-file-name obj kkc-lookup-cache-tag kkc-current-key t nil add-hook kill-emacs-hook kkc-save-init-file file-readable-p (kkc-error) load-file lookup-nested-alist 0 skkdic-lookup-key 1 set-nested-alist len entry kkc-length-converted kkc-current-conversions-width kkc-current-conversions postfix prefer-noun] 7])
(define-error 'kkc-error nil)
(defalias 'kkc-error #[(&rest args) "\301\302\303\304\"\"\207" [args signal kkc-error apply format-message] 5])
(defvar kkc-converting nil)
#@325 Functions to run after a conversion is selected in `japanese' input method.
With this input method, a user can select a proper conversion from
candidate list.  Each time he changes the selection, functions in this
list are called with two arguments; starting and ending buffer
positions that contains the current selection.
(defvar kkc-after-update-conversion-functions nil (#$ . 4454))
#@375 Convert Kana string in the current region to Kanji-Kana mixed string.
Users can select a desirable conversion interactively.
When called from a program, expects two arguments,
positions FROM and TO (integers or markers) specifying the target region.
When it returns, the point is at the tail of the selected conversion,
and the return value is the length of the conversion.
(defalias 'kkc-region #[(from to) "	{b\210\306!\203\307	#\210\202$\310	\311\211\312%\313\314\315#\210\306\f!\2033\307\f	\211#\210\202A\310	\211\311\211\312%\313\f\314\316#\210\n\317!\262\211G)\320*\321\216+\311\322 \312,-./\323)\311,#\204t)S)\311,\202_	b\210\324\325!\210\3260\320102Y\203\2243G\327Y\203\224\330 \210\331 \210\3124\332\311!\2104\203\333-!\21056\3117\334\311!8\33558\"9\3369!\203\3371\3629\340\267\202\3440T0\3201\202\3521T1\3200\202\352\320\21101\3419!0\202\376:\332\342:A\"\210\343 )\210\202\344\345 \344\311\"\262;\";\346 \210,\202\236\331 \210\347\f!b\210\350!Z-\207" [from to kkc-original-kana kkc-overlay-head kkc-overlay-tail kkc-current-key overlayp move-overlay make-overlay nil t overlay-put face highlight underline vconcat 0 #[nil "\302!\210\302	!\207" [kkc-overlay-head kkc-overlay-tail delete-overlay] 2] buffer-modified-p kkc-lookup-key kkc-update-conversion all 1 3 kkc-show-conversion-list-or-next-group force-mode-line-update message set-buffer-modified-p read-key-sequence lookup-key commandp (kkc-error) #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (kkc-next 206 kkc-prev 217)) call-interactively "%s" beep append this-single-command-raw-keys kkc-terminate overlay-end overlay-start kkc-length-head kkc-length-converted kkc-input-method-title first modified-p input-method-function current-input-method-title kkc-next-count kkc-prev-count kkc-show-conversion-list-count kkc-current-conversions kkc-converting kkc-keymap overriding-terminal-local-map help-char keyseq cmd err unread-input-method-events] 7 (#$ . 4848) "r"])
#@54 Exit from KKC mode by fixing the current conversion.
(defalias 'kkc-terminate #[nil "\303!b\210\304	``#\210\305\211\207" [kkc-overlay-tail kkc-overlay-head kkc-converting overlay-end move-overlay nil] 4 (#$ . 6907) nil])
#@50 Exit from KKC mode by canceling any conversions.
(defalias 'kkc-cancel #[nil "\304!b\210\304!\305	!|\210\nc\210\306\211\207" [kkc-overlay-head kkc-overlay-tail kkc-original-kana kkc-converting overlay-start overlay-end nil] 3 (#$ . 7136) nil])
#@54 Select only the first character currently converted.
(defalias 'kkc-first-char-only #[nil "\302!b\210\303u\210`\304	!|\210\305 \207" [kkc-overlay-head kkc-overlay-tail overlay-start 1 overlay-end kkc-terminate] 3 (#$ . 7389) nil])
#@42 Select the next candidate of conversion.
(defalias 'kkc-next #[nil "@T\211\306W\203\f\307	GY\203\306	\240\210	\307V\203(\310\n\f$\210\303\2045\f
Y\2038\311 \210\312 )\207" [kkc-current-conversions idx kkc-current-key kkc-lookup-cache kkc-length-converted kkc-init-file-flag 0 1 set-nested-alist kkc-show-conversion-list-update kkc-update-conversion kkc-current-conversions-width kkc-next-count kkc-show-conversion-list-count] 6 (#$ . 7627) nil])
#@46 Select the previous candidate of conversion.
(defalias 'kkc-prev #[nil "@S\211\306W\203GS	\240\210	\307V\203!\310\n\f$\210\303\204.\f
Y\2031\311 \210\312 )\207" [kkc-current-conversions idx kkc-current-key kkc-lookup-cache kkc-length-converted kkc-init-file-flag 0 1 set-nested-alist kkc-show-conversion-list-update kkc-update-conversion kkc-current-conversions-width kkc-prev-count kkc-show-conversion-list-count] 6 (#$ . 8098) nil])
#@66 Select one candidate from the list currently shown in echo area.
(defalias 'kkc-select-from-list #[nil "\306	\203>\nG	\307H\310H	\307H\307HZ\307\211\fV\203\f
W\203=\nH\fU\2036
\211\202 T\211\202 +\203U
	\307H\307H\\\240\210\311 \210\312 \202^\fB\313 )\207" [idx kkc-current-conversions-width kkc-show-conversion-list-index-chars i maxlen len nil 0 1 kkc-show-conversion-list-update kkc-update-conversion kkc-terminate last-input-event kkc-current-conversions unread-input-method-events] 5 (#$ . 8556) nil])
#@22 Convert to Katakana.
(defalias 'kkc-katakana #[nil "\301\240\210\302\303!\207" [kkc-current-conversions -1 kkc-update-conversion all] 2 (#$ . 9099) nil])
#@22 Convert to hiragana.
(defalias 'kkc-hiragana #[nil "\301\240\210\302 \207" [kkc-current-conversions 0 kkc-update-conversion] 2 (#$ . 9260) nil])
#@47 Make the Kana string to be converted shorter.
(defalias 'kkc-shorter #[nil "\303X\203\n\304\305!\210S	V\203$\306\307\n!\204#\nS\202)\310\311!\207" [kkc-length-head kkc-length-converted len 1 kkc-error "Can't be shorter" 0 kkc-lookup-key kkc-update-conversion all] 2 (#$ . 9412) nil])
#@46 Make the Kana string to be converted longer.
(defalias 'kkc-longer #[nil "	GY\203\302\303!\210T\304\305\"\210\306\307!\207" [kkc-length-head kkc-current-key kkc-error "Can't be longer" kkc-lookup-key postfix kkc-update-conversion all] 3 (#$ . 9715) nil])
#@47 Make the Kana string to be converted shorter.
(defalias 'kkc-shorter-conversion #[nil "\302X\203\n\303\304!\210S\305\306	!\204	S\202)\307\310!\207" [kkc-length-converted len 1 kkc-error "Can't be shorter" 0 kkc-lookup-key kkc-update-conversion all] 2 (#$ . 9982) nil])
#@74 Make the current phrase (BUNSETSU) longer without looking up dictionary.
(defalias 'kkc-longer-phrase #[nil "	GY\203\302\303!\210T\304\305!\207" [kkc-length-head kkc-current-key kkc-error "Can't be longer" kkc-update-conversion all] 2 (#$ . 10267) nil])
#@77 Fix the currently converted string and try to convert the remaining string.
(defalias 'kkc-next-phrase #[nil "	GY\203\n\306 \207	GZ\307\n!b\210`\307!W\203,\310\311!\203,\312\225b\210S\202\312U\2035\306 \207\313\312\"	GZ\312\314\fW\203k\f	\f\\HI\210\315\fH!P\fT\211\202I\312\316\317
W#\204\207\320V\203\207S\202q`\307!\321\n#\210\321\211#\210*\322\323!,\207" [kkc-length-head kkc-current-key kkc-overlay-head kkc-overlay-tail i len kkc-terminate overlay-end looking-at "\\CH" 0 make-vector "" char-to-string kkc-lookup-key nil 1 move-overlay kkc-update-conversion all idx newkey kkc-original-kana kkc-length-converted tail pos] 6 (#$ . 10532) nil])
(defalias 'kkc-setup-current-conversions-width #[nil "AG\305\306\n\307\"\211\310\311\n\312\307#I\210\205-\f	\313@!\314\\I\210A	T\202+\207" [kkc-current-conversions idx len convs kkc-current-conversions-width 1 make-vector nil 0 vector -2 string-width 4] 7])
#@200 Show list of available conversions in echo area with index numbers.
If the list is already shown, show the next group of conversions,
and change the current conversion to the first one in the group.
(defalias 'kkc-show-conversion-list-or-next-group #[nil "G\303W\203\304\305!\210	\203.	\306H\307H\211	GW\203#\n\240\210\202'\307\240\210\310 \210\311 )\207\312 \210\310 \207" [kkc-current-conversions kkc-current-conversions-width next-idx 3 kkc-error "No alternative" 0 1 kkc-show-conversion-list-update kkc-update-conversion kkc-setup-current-conversions-width] 3 (#$ . 11522) nil])
#@203 Show list of available conversions in echo area with index numbers.
If the list is already shown, show the previous group of conversions,
and change the current conversion to the last one in the group.
(defalias 'kkc-show-conversion-list-or-prev-group #[nil "G\303W\203\304\305!\210	\2030	\306H\306H\211\307V\203#\nS\240\210\202)	GS\240\210\310 \210\311 )\207\312 \210\310 \207" [kkc-current-conversions kkc-current-conversions-width this-idx 3 kkc-error "No alternative" 0 1 kkc-show-conversion-list-update kkc-update-conversion kkc-setup-current-conversions-width] 3 (#$ . 12121) nil])
(defalias 'kkc-show-conversion-list-update #[nil "\204\306 \210	@\307H\211\307H\310H\311H\n\fW\203)\310\312\2024\n
Y\2034
\312\204+	G\313\314 !\307\fG\312 !\"#$ \nX\203\227!\" H\\#X\203\200 \fZW\203\200!\" H\\!\202\212 \" H! T A\202T\307\fI\210 $W\203\323!\" H\\#X\203\323 \fZW\203\323!\" H\\! T A\202\234\310 \211I\210\f	\233\315\316\307H\317@\320\f##\fT A 
W\203#\315\321 \fZH\317@\320 #$ T A\202\371\311I\210.\n\307V\203p\322G%&\323\307G\324$\210\325&\320#\n=\204]\326&\320%$&\202C\327&\326&\320%$\330\331%\210*\312'\332\333\".\207" [kkc-current-conversions-width kkc-current-conversions current-idx first-slot this-idx next-idx kkc-setup-current-conversions-width 0 1 2 nil window-width minibuffer-window format " %c %s" propertize kkc-conversion-index "%s  %c %s" 3 remove-text-properties (face nil) get-text-property next-single-property-change put-text-property face highlight message "%s" msg kkc-show-conversion-list-index-chars l max-items idx width width-table max-width len limit pos message-log-max] 9])
(defalias 'kkc-update-conversion #[(&optional all) "\306!b\210	@\307U\203$\307\211W\203 \f\nHc\210\nT\211\202)\202K	@\310U\203E\307\211W\203A\311\f\nH!c\210\nT\211\202.)\202K	@	8c\210`\306
!|\210\203\256\fG\306
!\312!|\210\nW\203\210	@\310U\203|\311\f\nH!c\210\202\201\f\nHc\210\nT\211\202e`\nW\203\236\f\nHc\210\nT\211\202\214\313\306!#\210`\312
!|\210+\314\216\315\316\306!\312!#)\207" [kkc-overlay-head kkc-current-conversions i kkc-length-converted kkc-current-key kkc-overlay-tail overlay-start 0 -1 japanese-katakana overlay-end move-overlay #[nil "\301!b\207" [kkc-overlay-tail overlay-end] 2] run-hook-with-args kkc-after-update-conversion-functions all len kkc-length-head pos] 6])
(provide 'kkc)

Youez - 2016 - github.com/yon3zu
LinuXploit