Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/language/korea-util.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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) (#$ . 408))
#@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 (#$ . 669) 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 (#$ . 947) "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 (#$ . 1222) "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 (#$ . 3228)])
(provide 'korea-util)