Linux server.edchosting.com 4.18.0-553.79.1.lve.el7h.x86_64 #1 SMP Wed Oct 15 16:34:46 UTC 2025 x86_64
LiteSpeed
Server IP : 75.98.162.185 & Your IP : 216.73.216.163
Domains :
Cant Read [ /etc/named.conf ]
User : goons4good
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
emacs /
24.3 /
lisp /
international /
Delete
Unzip
Name
Size
Permission
Date
Action
README
2.63
KB
-rw-r--r--
2012-04-13 21:33
ccl.elc
38.3
KB
-rw-r--r--
2023-06-07 04:04
characters.elc
34.51
KB
-rw-r--r--
2023-06-07 04:18
charprop.el
3.58
KB
-rw-r--r--
2012-04-13 21:33
cp51932.el
9.36
KB
-rw-r--r--
2012-04-13 21:33
eucjp-ms.el
38.97
KB
-rw-r--r--
2012-11-02 03:00
fontset.elc
29.15
KB
-rw-r--r--
2023-06-07 04:19
isearch-x.elc
2.8
KB
-rw-r--r--
2023-06-07 04:04
iso-ascii.elc
5.38
KB
-rw-r--r--
2023-06-07 04:04
iso-cvt.elc
18.65
KB
-rw-r--r--
2023-06-07 04:04
iso-transl.elc
4.69
KB
-rw-r--r--
2023-06-07 04:04
ja-dic-cnv.elc
11.48
KB
-rw-r--r--
2023-06-07 04:04
ja-dic-utl.elc
5.24
KB
-rw-r--r--
2023-06-07 04:04
kinsoku.elc
3.31
KB
-rw-r--r--
2023-06-07 04:04
kkc.elc
14.5
KB
-rw-r--r--
2023-06-07 04:04
latexenc.elc
4.38
KB
-rw-r--r--
2023-06-07 04:04
latin1-disp.elc
44.09
KB
-rw-r--r--
2023-06-07 04:04
mule-cmds.elc
86.78
KB
-rw-r--r--
2023-06-07 04:18
mule-conf.elc
35.84
KB
-rw-r--r--
2023-06-07 04:18
mule-diag.elc
36.19
KB
-rw-r--r--
2023-06-07 04:04
mule-util.elc
9.51
KB
-rw-r--r--
2023-06-07 04:04
mule.elc
70.54
KB
-rw-r--r--
2023-06-07 04:18
ogonek.elc
16.32
KB
-rw-r--r--
2023-06-07 04:04
quail.elc
80.26
KB
-rw-r--r--
2023-06-07 04:04
robin.elc
8.61
KB
-rw-r--r--
2023-06-07 04:04
titdic-cnv.elc
34.39
KB
-rw-r--r--
2023-06-07 04:04
ucs-normalize.elc
208.71
KB
-rw-r--r--
2023-06-07 04:04
uni-bidi.el
7.93
KB
-rw-r--r--
2012-11-02 03:00
uni-category.el
12.82
KB
-rw-r--r--
2012-11-02 03:00
uni-combining.el
6.26
KB
-rw-r--r--
2012-11-02 03:00
uni-comment.el
2.33
KB
-rw-r--r--
2012-04-13 21:33
uni-decimal.el
2.71
KB
-rw-r--r--
2012-11-02 03:00
uni-decomposition.el
28.64
KB
-rw-r--r--
2012-11-02 03:00
uni-digit.el
3.02
KB
-rw-r--r--
2012-11-02 03:00
uni-lowercase.el
6.29
KB
-rw-r--r--
2012-11-02 03:00
uni-mirrored.el
9.2
KB
-rw-r--r--
2012-11-02 03:00
uni-name.el
158.51
KB
-rw-r--r--
2012-11-02 03:00
uni-numeric.el
4.5
KB
-rw-r--r--
2012-11-02 03:00
uni-old-name.el
19.3
KB
-rw-r--r--
2012-04-13 21:33
uni-titlecase.el
6.33
KB
-rw-r--r--
2012-11-02 03:00
uni-uppercase.el
6.33
KB
-rw-r--r--
2012-11-02 03:00
utf-7.elc
2.29
KB
-rw-r--r--
2023-06-07 04:04
Save
Rename
;ELC ;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun 7 08:04:18 2023 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/international/kkc.el ;;; in Emacs version 24.3.1 ;;; 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 "漢" (#$ . 578)) #@66 Name of a file which contains user's initial setup code for KKC. (defvar kkc-init-file-name (convert-standard-filename "~/.kkcrc") (#$ . 729)) (defvar kkc-init-file-flag nil) (defvar kkc-lookup-cache nil) (defconst kkc-lookup-cache-tag 'kkc-lookup-cache-2) #@77 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 (#$ . 992)]) (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 (#$ . 1410) 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) (#$ . 1972)) (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 '(#$ . 3102) :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 \307\314\315\217\210 \211\205& <\205& A<)\2031 @\f=\2046 \fC\301\316 \317\306%\211 @:\203V \307@\211\202\231 \320 $\211\203\206 \307\321B\203\202 \322 $\210\301\306\202\231 \321U\205\231 \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 (load-file kkc-init-file-name) ((kkc-error kkc-init-file-name)) 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]) (put 'kkc-error 'error-conditions '(kkc-error error)) (defalias 'kkc-error #[(&rest args) "\301\302\303\304\"\"\207" [args signal kkc-error apply format] 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 (#$ . 4645)) #@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 !)\211'G(\320)\321\216*\311\322 \312 + , - .\323(\311+#\204u (S(\311+\202` b\210\324\325!\210\326/\3200/1Y\203\225 2G\327Y\203\225 \330 \210\331 \210\3123\332\311!\2103\203\341 \333,!\2104 5\311 6\334\311! 7\33547\" 8\3368!\203\314 \337\340\341\217\210\202\335 \342\343 \342 \311\")9\"9\344 \210,\202\237 \331 \210\345\f!b\210\346 !Z-\207" [from to kkc-original-kana kkc-overlay-head kkc-overlay-tail string overlayp move-overlay make-overlay nil t overlay-put face highlight underline vconcat 0 ((byte-code "\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 err (byte-code "\303=\203 T\304\202 \305=\203 \nT\304\202 \304\211\306!\207" [cmd kkc-next-count kkc-prev-count kkc-next 0 kkc-prev call-interactively] 3) ((kkc-error (byte-code "\301\302A\"\210\303 \207" [err message "%s" beep] 3))) append this-single-command-raw-keys kkc-terminate overlay-end overlay-start kkc-current-key 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 unread-input-method-events] 7 (#$ . 5039) "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 (#$ . 7099) 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 (#$ . 7328) 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 (#$ . 7581) 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 (#$ . 7819) nil]) #@46 Select the previous candidate of conversion. (defalias 'kkc-prev #[nil "@S\211\306W\203 GS \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 (#$ . 8290) 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= \n H\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 (#$ . 8748) nil]) #@22 Convert to Katakana. (defalias 'kkc-katakana #[nil "\301\240\210\302\303!\207" [kkc-current-conversions -1 kkc-update-conversion all] 2 (#$ . 9291) nil]) #@22 Convert to hiragana. (defalias 'kkc-hiragana #[nil "\301\240\210\302 \207" [kkc-current-conversions 0 kkc-update-conversion] 2 (#$ . 9452) 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 (#$ . 9604) 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 (#$ . 9907) 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 (#$ . 10174) 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 (#$ . 10460) 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\207 S\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 (#$ . 10725) 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\210 A 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 (#$ . 11715) 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 (#$ . 12314) 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\f G\312 ! \" # $ \nX\203\227 !\" H\\#X\203\200 \fZ W\203\200 !\" H\\!\202\212 \" H! T A \202T \307\fI\210 $W\203\323 !\" H\\#X\203\323 \fZ W\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 \311 I\210.\n\307V\203p\322 G % &\323\307 G\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\211 W\203 \f\nHc\210\nT\211\202 )\202K @\310U\203E \307\211 W\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 ((byte-code "\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)