;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:47:09 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/language/korea-util.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.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 "`korea-util.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@76 *The kind of Korean keyboard for Korean input method. "" for 2, "3" for 3. (defvar default-korean-keyboard (byte-code "\300\301\302\303!\206 \304\"\203\301\207\304\207" [string-match "3" getenv "HANGUL_KEYBOARD_TYPE" ""] 4) (#$ . -631)) #@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 inactivate-input-method activate-input-method "korean-hangul"] 3 (#$ . 877) 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 (#$ . 1155) "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 (#$ . 1431) "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]) (byte-code "\302B\303\302!\204\304\305\306 \307B \310B \311B\257\302\207" [current-load-list isearch-mode-map korean-key-bindings boundp (global [33554464] toggle-korean-input-method nil) (global [C-f9] quail-hangul-switch-symbol-ksc nil) (global [f9] quail-hangul-switch-hanja nil) ([33554464] isearch-toggle-korean-input-method nil) ([C-f9] isearch-hangul-switch-symbol-ksc nil) ([f9] isearch-hangul-switch-hanja nil)] 7) (defalias 'setup-korean-environment-internal #[nil "\211\205B @\211A@\306\n8\307\n@\310=\203&\311 !\312 \f\"\210\2023\313\n@ \"\314\n@ \f#\210\315\n\233 \240\210, A\211\204\307)\207" [korean-key-bindings key-bindings this key new-def old-def 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 "\211\205F @\211A@\306\n8\307\n8\n@\310=\203,\311 !\f=\203=\312 \"\210\202=\313\n@ \"\f=\203=\314\n@ #\210, A\211\204\315)\207" [korean-key-bindings key-bindings this key new-def old-def 2 3 global global-key-binding global-set-key lookup-key define-key nil] 5 (#$ . 3265)]) (provide 'korea-util)