ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/language/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/language/korea-util.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@75 The kind of Korean keyboard for Korean input method.
"" for 2, "3" for 3.
(defvar default-korean-keyboard (byte-code "\300\301\302\303\304!\206\n \305\"\203 \302\202 \305!\207" [purecopy string-match "3" getenv "HANGUL_KEYBOARD_TYPE" ""] 5) (#$ . 410))
#@67 Turn on or off a Korean text input method for the current buffer.
(defalias 'toggle-korean-input-method #[nil "\203 \302 \207\303\304 P!\207" [current-input-method default-korean-keyboard deactivate-input-method activate-input-method "korean-hangul"] 3 (#$ . 671) nil])
#@38 Swith to/from Korean symbol package.
(defalias 'quail-hangul-switch-symbol-ksc #[(&rest ignore) "\205 \302\230\203 \303\304 P!\207\303\302!\207" [current-input-method default-korean-keyboard "korean-symbol" activate-input-method "korean-hangul"] 3 (#$ . 949) "i"])
#@37 Swith to/from Korean hanja package.
(defalias 'quail-hangul-switch-hanja #[(&rest ignore) "\205 \302\303\"\203 \304\305 P!\207\304\303 P!\207" [current-input-method default-korean-keyboard string-match "korean-hanja" activate-input-method "korean-hangul"] 3 (#$ . 1224) "i"])
(defalias 'isearch-toggle-korean-input-method #[nil "\304\305 \210) \306\304\307 \207" [overriding-terminal-local-map input-method-function isearch-input-method-function isearch-input-method-local-p nil toggle-korean-input-method t isearch-update] 1 nil nil])
(defalias 'isearch-hangul-switch-symbol-ksc #[nil "\304\305 \210) \306\304\307 \207" [overriding-terminal-local-map input-method-function isearch-input-method-function isearch-input-method-local-p nil quail-hangul-switch-symbol-ksc t isearch-update] 1 nil nil])
(defalias 'isearch-hangul-switch-hanja #[nil "\304\305 \210) \306\304\307 \207" [overriding-terminal-local-map input-method-function isearch-input-method-function isearch-input-method-local-p nil quail-hangul-switch-hanja t isearch-update] 1 nil nil])
(defvar korean-key-bindings (byte-code "\301\302\303\304\305\306B\307B\310B\311B\257 \207" [isearch-mode-map (global [33554464] toggle-korean-input-method nil) (global [Hangul] toggle-korean-input-method nil) (global [C-f9] quail-hangul-switch-symbol-ksc nil) (global [f9] hangul-to-hanja-conversion nil) (global [Hangul_Hanja] hangul-to-hanja-conversion nil) ([33554464] isearch-toggle-korean-input-method nil) ([Hangul] isearch-toggle-korean-input-method nil) ([C-f9] isearch-hangul-switch-symbol-ksc nil) ([f9] isearch-hangul-switch-hanja nil)] 10))
(defalias 'setup-korean-environment-internal #[nil "\306\307!\210\211\205F @\211A@\310\n8 \311 \n@\312=\203* \313 !\314 \f\"\210\2027 \315\n@ \"\316\n@ \f#\210\317\n\233
\240\210, A\211\204\n \311)\207" [korean-key-bindings key-bindings this key new-def old-def use-cjk-char-width-table ko_KR 2 nil global global-key-binding global-set-key lookup-key define-key 3] 5])
#@35 Exit Korean language environment.
(defalias 'exit-korean-environment #[nil "\306 \210\211\205I @\211A@\307\n8 \310\n8 \n@\311=\203/ \312 !\f=\203@ \313
\"\210\202@ \314\n@ \"\f=\203@ \315\n@
#\210, A\211\204 \316)\207" [korean-key-bindings key-bindings this key new-def old-def use-default-char-width-table 2 3 global global-key-binding global-set-key lookup-key define-key nil] 5 (#$ . 3230)])
(provide 'korea-util)
Kontol Shell Bypass