Gecko [ 122.154.134.11 ]

Name	Size	Permission
README	2.63 KB	-rw-r--r--
ccl.elc	38.69 KB	-rw-r--r--
characters.elc	87.76 KB	-rw-r--r--
charprop.el	2.85 KB	-rw-r--r--
cp51932.el	9.41 KB	-rw-r--r--
encoded-kb.elc	9.76 KB	-rw-r--r--
eucjp-ms.el	39.02 KB	-rw-r--r--
fontset.elc	26.34 KB	-rw-r--r--
isearch-x.elc	2.86 KB	-rw-r--r--
iso-ascii.elc	4.85 KB	-rw-r--r--
iso-cvt.elc	18.84 KB	-rw-r--r--
iso-transl.elc	4.98 KB	-rw-r--r--
ja-dic-cnv.elc	12.52 KB	-rw-r--r--
ja-dic-utl.elc	5.04 KB	-rw-r--r--
kinsoku.elc	3.37 KB	-rw-r--r--
kkc.elc	15.03 KB	-rw-r--r--
latexenc.elc	4.42 KB	-rw-r--r--
latin1-disp.elc	44.11 KB	-rw-r--r--
mule-cmds.elc	84.67 KB	-rw-r--r--
mule-conf.el	43.44 KB	-rw-r--r--
mule-diag.elc	31.42 KB	-rw-r--r--
mule-util.elc	10.07 KB	-rw-r--r--
mule.elc	68.68 KB	-rw-r--r--
ogonek.elc	16.89 KB	-rw-r--r--
quail.elc	79.28 KB	-rw-r--r--
robin.elc	8.22 KB	-rw-r--r--
titdic-cnv.elc	35.29 KB	-rw-r--r--
uni-bidi.el	7.93 KB	-rw-r--r--
uni-category.el	10.79 KB	-rw-r--r--
uni-combining.el	7.65 KB	-rw-r--r--
uni-comment.el	7.73 KB	-rw-r--r--
uni-decimal.el	2.28 KB	-rw-r--r--
uni-decomposition.el	26.45 KB	-rw-r--r--
uni-digit.el	2.47 KB	-rw-r--r--
uni-lowercase.el	5.18 KB	-rw-r--r--
uni-mirrored.el	6.8 KB	-rw-r--r--
uni-name.el	117.05 KB	-rw-r--r--
uni-numeric.el	3.74 KB	-rw-r--r--
uni-old-name.el	18.88 KB	-rw-r--r--
uni-titlecase.el	5.28 KB	-rw-r--r--
uni-uppercase.el	5.27 KB	-rw-r--r--
utf-7.elc	2.36 KB	-rw-r--r--

Code Editor : encoded-kb.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:14 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/international/encoded-kb.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`encoded-kb.el' was compiled for Emacs 19.29 or later"))

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

#@36 Keymap for Encoded-kbd minor mode.
(defconst encoded-kbd-mode-map (make-sparse-keymap) (#$ . 625))
#@51 Keymap for handling ESC code in Encoded-kbd mode.
(defvar encoded-kbd-iso2022-esc-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\306#\210\302\310\306#\210\302\311\306#\210)\207" [map make-sparse-keymap define-key "$" encoded-kbd-iso2022-esc-dollar-prefix "(" encoded-kbd-iso2022-designation-prefix ")" "," "-"] 4) (#$ . 730))
(fset 'encoded-kbd-iso2022-esc-prefix encoded-kbd-iso2022-esc-map)
#@57 Keymap for handling ESC $ sequence in Encoded-kbd mode.
(defvar encoded-kbd-iso2022-esc-dollar-map (byte-code "\301 \302\303\304#\210\302\305\304#\210\302\306\304#\210\302\307\304#\210\302\310\311#\210\302\312\311#\210\302\313\311#\210)\207" [map make-sparse-keymap define-key "(" encoded-kbd-iso2022-designation-prefix ")" "," "-" "@" encoded-kbd-iso2022-designation "A" "B"] 4) (#$ . 1153))
(fset 'encoded-kbd-iso2022-esc-dollar-prefix encoded-kbd-iso2022-esc-dollar-map)
#@71 Keymap for handling ISO2022 designation sequence in Encoded-kbd mode.
(defvar encoded-kbd-iso2022-designation-map (byte-code "\304 \305\n\203%�\306\n@!\211\307V\203�\310\311	!\312#\210\nA\211\204�+\207" [charset-list final-char l map make-sparse-keymap nil charset-iso-final-char 0 define-key char-to-string encoded-kbd-iso2022-designation] 5) (#$ . 1642))
(byte-code "\302M\210\303	B\304\303!\204�\305\303\306\"\210\307\303\310\311#\210\312	B\304\312!\204(�\305\312\306\"\210\307\312\310\311#\207" [encoded-kbd-iso2022-designation-map current-load-list encoded-kbd-iso2022-designation-prefix encoded-kbd-iso2022-designations default-boundp set-default nil put permanent-local t encoded-kbd-iso2022-invocations] 4)
(defalias 'encoded-kbd-last-key #[nil "\301 \211\211GSH)\207" [keys this-single-command-keys] 3])
(put 'encoded-kbd-last-key 'byte-optimizer 'byte-compile-inline-expand)
#@140 Do ISO2022 designation according to the current key in Encoded-kbd mode.
The following key sequence may cause multilingual text insertion.
(defalias 'encoded-kbd-iso2022-designation #[(ignore) "\306 	\307HH\310\211\211\211\211\211\211G\311U\203D�\312H\312\313W\2033�\314\2024�\315\316H\317\311\"\202}�\320H\321U\203\\�\312\314\312H\307\202}�\320H\320\313W\203o�\314\202p�\315\312H\317\311\"
\322\f#I\210.\323\207" [encoded-kbd-iso2022-designations encoded-kbd-iso2022-invocations charset chars dimension reg this-single-command-keys 0 nil 4 2 44 94 96 3 mod 1 36 iso-charset "" final-char intermediate-char prev-g0-charset key-seq] 9 (#$ . 2549)])
(defalias 'encoded-kbd-iso2022-single-shift #[(ignore) "\303 \211\211GSH)\n\304	\305U\203�\304\202�\306I\210)\307\207" [keys char encoded-kbd-iso2022-invocations this-single-command-keys 2 142 3 ""] 4])
(defalias 'encoded-kbd-self-insert-iso2022-7bit #[(ignore) "\305 \211\211GSH)	\n\306H\206�\n\307HH\n\306\310I\210\311\312!\313U\203+�\314\f\"\2021�\314\f\315 #!*\207" [keys encoded-kbd-iso2022-designations encoded-kbd-iso2022-invocations charset char this-single-command-keys 2 0 nil vector charset-dimension 1 make-char read-char-exclusive] 5])
(defalias 'encoded-kbd-self-insert-iso2022-8bit #[(ignore) "\305 \211\211GSH)	\n\306H\206�\n\307HH\n\306\310I\210\311\312!\307U\203+�\313\f\"\2021�\313\f\314 #!*\207" [keys encoded-kbd-iso2022-designations encoded-kbd-iso2022-invocations charset char this-single-command-keys 2 1 nil vector charset-dimension make-char read-char-exclusive] 5])
(defalias 'encoded-kbd-self-insert-sjis #[(ignore) "\302 \211\211GSH)\303	\304W\204�	\305Y\203#�\306\307	\310\"\311 \\!\202'�\312\313	\"!)\207" [keys char this-single-command-keys vector 160 224 decode-sjis-char ash 8 read-char-exclusive make-char katakana-jisx0201] 5])
(defalias 'encoded-kbd-self-insert-big5 #[(ignore) "\302 \211\211GSH)\303\304\305	\306\"\307 \\!!)\207" [keys char this-single-command-keys vector decode-big5-char ash 8 read-char-exclusive] 5])
(defalias 'encoded-kbd-self-insert-ccl #[(ignore) "\306\307 \211\211GSH)!\310\311 \312\"\313\314\315\n\f\316$\211G\317U\203G�\320\317
W\203<�\n
\314I\210
T\211\202*�*\321\322\f\323 #\202�\324	\317H!,\207" [keys result vec ccl str i char-to-string this-single-command-keys coding-system-get keyboard-coding-system :ccl-decoder [nil nil nil nil nil nil nil nil nil] nil ccl-execute-on-string t 0 9 format "%s%c" read-char-exclusive vector --dotimes-limit--] 6])
(defalias 'encoded-kbd-decode-code-list #[(charset code-list) "\305!\306\nGV\203�\307 C\244\210\202�@\n\310U\203&�\311	\"\202o�A\312\313	\314\"@\"\n\315U\203?�\311	\"\202o�A\312\313	\314\"@\"\n\316U\203X�\311	\"\202o�\313	\317\"\312\313@\314\"\211A@)\"B\311	\"*\207" [charset code dimension code-list x charset-dimension nil read-char-exclusive 1 decode-char logior lsh 8 2 3 -8] 6])
(defalias 'encoded-kbd-self-insert-charset #[(ignore) "\306\307 \310\"\311 \211\211GSH)C\312\211\211\203*�	\204*�\313\f@\"\fA\211\204�	\2034�\314	!\202;�A\314@!,\207" [keys char tail code-list charset-list unread-command-events coding-system-get keyboard-coding-system :charset-list this-single-command-keys nil encoded-kbd-decode-code-list vector] 5])
(defalias 'encoded-kbd-self-insert-utf-8 #[(arg) "\306 \211\211GSH)\211\307\211\n\310W\203 �\311\312\n\313\"\202D�\n\314W\2030�\315\312\n\316\"\202D�\n\317W\203@�\320\312\n\321\"\202D�\322\323\323V\203v�\324 \211\325Y\203j�\f\326W\203j�\327\330\n\331\"\f\325Z\"S\211\202E�\f
B	\323\211\202E�\332\n!,\207" [keys lead char len event unread-command-events this-single-command-keys nil 224 1 logand 31 240 2 15 248 3 7 4 0 read-char-exclusive 128 192 logior lsh 6 vector] 5 nil "p"])
(defalias 'encoded-kbd-setup-keymap #[(keymap coding) "\306\307\310#\210\311	!\312=\203(�\313\211\314W\203%�\306\315\n!\316#\210\nT\211\202�)\317\207\311	!\320=\203J�\313\211\314W\203G�\306\315\n!\321#\210\nT\211\2023�)\317\207\311	!\322=\203\221�\323\324\325	\326\"\"\310\211\203\216�
@\211@\313]\fA6\21176X\203\206�\306\3157!\327#\2107T\2117\202n�*
A\211\204`�*\317\207\311	!\330=\203\220\325	\331\"\325	\332\"\"8\3338>?\205\216\334\335\310\"9\334\336\310\":\335\337;\n;W\203\374�\"\nH\203\365�\340\"\nH!\203\341�9\n\"\nHI\210\202\365�\340\"\nH\242!\203\365�9\n\"\nH@I\210\nT\211\202\277�*:\337\211I\2109\341H\203:\341\211I\210\3428>\203#\306\307\343#\210\306\307\343#\210\"\344H\2041\"\336H\203=\306\345\346#\210\306\347\346#\210\"\337H\350=\204d\351\337;\n;W\203c\306\315\352\n\\!\353#\210\nT\211\202L*\3548>\203o\355\202\216\351\337;\n;W\203\214\306\315\356\n\\!\357#\210\nT\211\202u*\317*\207\311	!\335=\203\365\325	\360\"\206\240\361\310\211\211\211<67==\203\362=@=A=\f:\203\313\f@7\fA6\202\321\f\2116776X\203\2557\313Y\203\351\306\3157!\362#\2107T\2117\202\323-\317\207\311	!\363=\203\364\211\314W\203\306\315\n!\365#\210\nT\211\202�)\317\207\310\207" [encoded-kbd-mode-map coding i keymap elt --dolist-tail-- define-key "" nil coding-system-type shift-jis 128 256 vector encoded-kbd-self-insert-sjis 8 big5 encoded-kbd-self-insert-big5 charset mapcar #[(x) "\303!\304\305\"	\nS\306_H	\nS\306_TH*B\207" [x code-space dim charset-dimension get-charset-property :code-space 2] 4] coding-system-get :charset-list encoded-kbd-self-insert-charset iso-2022 :flags :designation locking-shift make-vector 4 3 0 charsetp 1 designation encoded-kbd-iso2022-esc-prefix 2 [142] encoded-kbd-iso2022-single-shift [143] ascii 96 32 encoded-kbd-self-insert-iso2022-7bit 7-bit t 160 encoded-kbd-self-insert-iso2022-8bit :valid ((128 . 255)) encoded-kbd-self-insert-ccl utf-8 192 encoded-kbd-self-insert-utf-8 to from flags encoded-kbd-iso2022-designations encoded-kbd-iso2022-invocations --dotimes-limit-- valid valid-codes] 6])
#@154 Set up a `input-decode-map' for `keyboard-coding-system' on TERMINAL.

TERMINAL may be a terminal id, a frame, or nil for the selected frame's terminal.
(defalias 'encoded-kbd-setup-display #[(terminal) "\306!\203\n�\202�\307!@\211\205\310 p\311\216\312	\313\"\210\f\314 \315 !\203z�\316 !\317\232\204@� \320 ! \202$�\314!\315\320 !\211!!\203b�\316!!\317\232\203b� ! \202C�
\203o�\321
!\"\210\202r�!! )\202$�-\322 \203\344�\322 \323\317!\324 \314\"#$%\321$\320\f!\"\210\321\f$\"\210\325\314\326\"\204\256�\327\314\326\330#8#\210%\205\271�\331$%\"\211\"\203\325�\"\332=\205\340�\330#8\333>\205\340�\334\335!\202\340�\327\314\326\314#\210\336\337%\",\202\325\314\326\"\211&\203\375�\330\324 8&\232\204\375�\334&!\210\327\314\326\314#))\207" [terminal frame #1=#:old-buffer #2=#:old-frame input-decode-map child framep frames-on-display-list selected-frame ((byte-code "\302!\203�\303\304\"\210\305	!\203�	q\210\302\207" [#2# #1# frame-live-p select-frame norecord buffer-live-p] 3)) select-frame norecord nil keymapp keymap-prompt "encoded-kb" keymap-parent set-keymap-parent keyboard-coding-system make-sparse-keymap current-input-mode terminal-parameter encoded-kbd-saved-input-meta-mode set-terminal-parameter 2 encoded-kbd-setup-keymap 8 (t nil) set-input-meta-mode use-8th-bit error "Unsupported coding system in Encoded-kbd mode: %S" m mp result cim keymap coding old] 6 (#$ . 8525)])
(provide 'encoded-kb)

${this.title}

Code Editor : encoded-kb.elc