;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



#@101 The kind of Korean keyboard for Korean (Hangul) input method.
"" for 2, "3" for 3, and "3f" for 3f.
(defvar default-korean-keyboard (byte-code "\300\301\302\303\304!\206\n\305\"\203\302\202\305!\207" [purecopy string-search "3" getenv "HANGUL_KEYBOARD_TYPE" ""] 5) (#$ . 85))
#@146 Turn on or off a Korean text input method for the current buffer.
The keyboard layout variation used is determined by
`default-korean-keyboard'.
(defalias 'toggle-korean-input-method #[0 "\203\302 \207\303\304	P!\207" [current-input-method default-korean-keyboard deactivate-input-method activate-input-method "korean-hangul"] 3 (#$ . 373) nil])
#@137 Switch to/from Korean symbol package.
The keyboard layout variation used is determined by
`default-korean-keyboard'.

(fn &rest IGNORE)
(defalias 'quail-hangul-switch-symbol-ksc #[128 "\205\302\230\203\303\304	P!\207\303\302!\207" [current-input-method default-korean-keyboard "korean-symbol" activate-input-method "korean-hangul"] 4 (#$ . 729) "i"])
#@136 Switch to/from Korean hanja package.
The keyboard layout variation used is determined by
`default-korean-keyboard'.

(fn &rest IGNORE)
(defalias 'quail-hangul-switch-hanja #[128 "\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"] 4 (#$ . 1093) "i"])
(defalias 'isearch-toggle-korean-input-method #[0 "\303\304 \210)	\305\301!\210\303\306 \207" [overriding-terminal-local-map input-method-function isearch-input-method-function nil toggle-korean-input-method make-local-variable isearch-update] 2 nil nil])
(defalias 'isearch-hangul-switch-symbol-ksc #[0 "\303\304 \210)	\305\301!\210\303\306 \207" [overriding-terminal-local-map input-method-function isearch-input-method-function nil quail-hangul-switch-symbol-ksc make-local-variable isearch-update] 2 nil nil])
(defalias 'isearch-hangul-switch-hanja #[0 "\303\304 \210)	\305\301!\210\303\306 \207" [overriding-terminal-local-map input-method-function isearch-input-method-function nil quail-hangul-switch-hanja make-local-variable isearch-update] 2 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 #[0 "\301\302!\210\211\205B\211@\211A@\3038\304@\305=\203&\306!\262
\307\"\210\2024\310@\"\262
\311@#\210\312\233
\240\266\211A\262
\202\207" [korean-key-bindings use-cjk-char-width-table ko_KR 2 nil global global-key-binding global-set-key lookup-key define-key 3] 9])
#@35 Exit Korean language environment.
(defalias 'exit-korean-environment #[0 "\301 \210\211\205E\211@\211A@\3028\3038@\304=\203+\305!=\203<\306\"\266\202>\307@\"=\203<\310@#\210\266\211A\262
\202\207" [korean-key-bindings use-default-char-width-table 2 3 global global-key-binding global-set-key lookup-key define-key] 9 (#$ . 3128)])
(provide 'korea-util)