HOME

Mini Shell 1.0
DIR:/usr/share/emacs/26.1/lisp/leim/quail/
Current File : //usr/share/emacs/26.1/lisp/leim/quail/hangul.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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.

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


(byte-code "\300\301!\210\300\302!\207" [require quail hanja-util] 2)
(defconst hangul-djamo-table '((cho (1 . [1]) (7 . [7]) (18 . [18]) (21 . [21]) (24 . [24])) (jung (39 . [31 32 51]) (44 . [35 36 51]) (49 . [51])) (jong (1 . [1 21]) (4 . [24 30]) (9 . [1 17 18 21 28 29 30]) (18 . [18 21]) (21 . [21]))))
(defconst hangul2-keymap [17 48 26 23 7 9 30 39 33 35 31 51 49 44 32 36 18 1 4 21 37 29 24 28 43 27])
(defconst hangul3-keymap [2 183 24 15 14 8220 120 39 126 8221 43 44 41 46 74 119 30 22 18 78 83 68 73 85 79 52 110 44 62 46 33 10 7 63 27 12 5 11 69 48 55 49 50 51 34 45 56 57 29 16 6 13 54 3 28 20 53 26 40 58 60 61 59 42 23 79 71 86 72 66 84 96 109 115 93 116 122 113 118 121 21 67 4 70 99 74 9 1 101 17 37 92 47 8251])
(defconst hangul390-keymap [24 34 35 36 37 38 120 40 41 42 43 44 45 46 73 119 30 22 18 77 82 67 72 84 78 58 110 50 61 51 63 64 7 33 11 10 27 2 47 39 56 52 53 54 49 48 57 62 29 68 6 59 55 16 28 20 60 26 91 92 93 94 95 96 23 78 70 85 71 65 83 90 109 115 87 116 122 113 118 121 21 66 4 69 99 73 9 1 101 17 123 124 125 126])
#@68 Keymap for Hangul method.  It is used by all Hangul input methods.
(defvar hangul-im-keymap (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\306#\210)\207" [map make-sparse-keymap define-key "" hangul-delete-backward-char [f9] hangul-to-hanja-conversion [Hangul_Hanja]] 4) (#$ . 1461))
(defvar hangul-queue (make-vector 6 0))
(defalias 'notzerop #[(number) "\301U?\207" [number 0] 2])
(put 'notzerop 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'alphabetp #[(char) "\301Y\203\f\302X\206\303Y\205\304X\207" [char 65 90 97 122] 2])
(put 'alphabetp 'byte-optimizer 'byte-compile-inline-expand)
#@207 Convert CHO, JUNG, JONG to the precomposed `Hangul Syllables' character.
CHO, JUNG, JONG are relative indices in `Hangul Compatibility Jamo' of Unicode.
Return a zero-length string if the conversion fails.
(defalias 'hangul-character #[(cho jung jong) "\303\304\305U\204g	\305U\204g\306\307\211\310W\203\311\202:\312W\203%\313\202:\314W\203/\315\202:\316W\2039\317\202:\320Z\321_	\322Z\323_\n\211\324W\203M\305\202b\n\325W\203W\311\202b\n\326W\203a\313\202b\310Z$\202\205\327\305U\204r\202\204	\305U\204|	\202\204\n\305U?\205\204\n\\\"\206\212\330\207" [cho jung jong decode-char ucs 0 + 44032 3 1 5 2 10 4 20 11 12 588 31 28 8 19 25 12592 ""] 9 (#$ . 2096)])
#@135 Insert characters generated from QUEUES.
Each queue has the same form as `hangul-queue'.
Setup `quail-overlay' to the last character.
(defalias 'hangul-insert-character #[(&rest queues) "\203	\203\306 \307 |\210\310 \210\311\n!\203\311\n!\312\n!|\210@\313\f\314H\315\316\f\314H\f\317H#\\\f\320H\315\321\f\320H\f\322H#\\\f\323H\315\324\f\323H\f\325H#\\#c\210)\326\n\311\n!`#\210A\327\211\205\242@\313
\314H\315\316
\314H
\317H#\\
\320H\315\321
\320H
\322H#\\
\323H\315\324
\323H
\325H#\\#c\210\326\n\311\n!T`#\210A\211\204`\327*\207" [mark-active transient-mark-mode quail-overlay queues first queue region-beginning region-end deactivate-mark overlay-start overlay-end hangul-character 0 hangul-djamo cho 1 2 jung 3 4 jong 5 move-overlay nil --dolist-tail--] 10 (#$ . 2794)])
#@210 Return the double Jamo index calculated from the arguments.
JAMO is a type of Hangul Jamo; `cho', `jung', or `jong'.
CHAR1 and CHAR2 are Hangul Jamo indices.
Return nil if CHAR1 and CHAR2 can not be combined.
(defalias 'hangul-djamo #[(jamo char1 char2) "\305	\"A\305\n\"A\211\203;\nG\30623\307V\2052\f\nSHU\203+\310\306\"\210S\211\2020\2067\307)\202<\307*\207" [jamo hangul-djamo-table char1 i char2 assoc found 0 throw] 4 (#$ . 3599)])
#@411 Store Hangul Jamo indice CHAR in `hangul-queue'.
It is a Hangul 2-Bulsik Jaum.
This function processes a Hangul 2-Bulsik Jaum.
The Hangul 2-Bulsik is composed of a Jaum and a Moum.
The Jaum can be located in a Choseong position and a Jongseong position.
Unless the function inserts CHAR to `hangul-queue',
commit current `hangul-queue' and then set a new `hangul-queue',
and insert CHAR to new `hangul-queue'.
(defalias 'hangul2-input-method-jaum #[(char) "\303H\303U\203\303	I\202\310\304H\303U\2035\305H\303U\2035\306\307\303H	#\211\303U)\2045\304	I\202\310\310H\303U\203\202\305H\211\303U)\204\202	\311U\204\202	\312U\204\202	\313U\204\202\314\303H\306\307\303H\304H#\\\305H\306\315\305H\316H#\\	#\247\203\202\310	I\202\310\317H\303U\203\317\306\320\310H	#\211\303U)\204\317\314\303H\306\307\303H\304H#\\\305H\306\315\305H\316H#\\\310H\306\320\310H	#\\#\247\203\317\317	I\203\317\321!\207\321\322	\303\211\211\211\211&\211\"\207" [hangul-queue char number 0 1 2 hangul-djamo cho 4 8 19 25 hangul-character jung 3 5 jong hangul-insert-character vector] 10 (#$ . 4062)])
(put 'hangul2-input-method-jaum 'byte-optimizer 'byte-compile-inline-expand)
#@236 Store Hangul Jamo indice CHAR in `hangul-queue'.
It is a Hangul 2-Bulsik Moum.
This function processes a Hangul 2-Bulsik Moum.
The Moum can be located in a Jungseong position.
Other parts are the same as a `hangul2-input-method-jaum'.
(defalias 'hangul2-input-method-moum #[(char) "\304H\305U\203\304	I\2022\306H\305U\2039\307H\305U\2039\310\311\304H	#\211\305U)\2049\306	I\2039\312!\207\313\305\211	\305\211\211&\314H\211\305U)\204]\305\314HI\210\314\305I\210\202t\307H\211\305U)\204t\305\307HI\210\307\305I\210\312\211\")\207" [hangul-queue char number next-char 2 0 3 4 hangul-djamo jung hangul-insert-character vector 5] 8 (#$ . 5269)])
(put 'hangul2-input-method-moum 'byte-optimizer 'byte-compile-inline-expand)
#@323 Store Hangul Jamo indice CHAR in `hangul-queue'.
It is a Hangul 3-Bulsik Choseong.
This function processes a Hangul 3-Bulsik Choseong.
The Hangul 3-Bulsik is composed of a Choseong, a Jungseong and a Jongseong.
The Choseong can be located in a Choseong position.
Other parts are the same as a `hangul2-input-method-jaum'.
(defalias 'hangul3-input-method-cho #[(char) "\303H\303U\203\304H\303U\203\303	I\202:\305H\303U\203A\306H\303U\203A\307\310\303H	#\211\303U)\204A\305	I\203A\311!\207\311\312	\303\211\211\211\211&\211\"\207" [hangul-queue char number 0 4 1 2 hangul-djamo cho hangul-insert-character vector] 10 (#$ . 6027)])
(put 'hangul3-input-method-cho 'byte-optimizer 'byte-compile-inline-expand)
#@250 Store Hangul Jamo indice CHAR in `hangul-queue'.
It is a Hangul 3-Bulsik Jungseong.
This function processes a Hangul 3-Bulsik Jungseong.
The Jungseong can be located in a Jungseong position.
Other parts are the same as a `hangul3-input-method-cho'.
(defalias 'hangul3-input-method-jung #[(char) "\303H\304U\203\305H\304U\203\303	I\2022\306H\304U\2039\307\310\303H	#\211\304U)\2049\306	I\2039\311!\207\311\312\304\211	\304\211\211&\211\"\207" [hangul-queue char number 2 0 4 3 hangul-djamo jung hangul-insert-character vector] 10 (#$ . 6760)])
(put 'hangul3-input-method-jung 'byte-optimizer 'byte-compile-inline-expand)
#@250 Store Hangul Jamo indice CHAR in `hangul-queue'.
It is a Hangul 3-Bulsik Jongseong.
This function processes a Hangul 3-Bulsik Jongseong.
The Jongseong can be located in a Jongseong position.
Other parts are the same as a `hangul3-input-method-cho'.
(defalias 'hangul3-input-method-jong #[(char) "\303H\304U\203F\304H\211\304U)\204F\305H\211\304U)\204F\306\304H\307\310\304H\311H#\\\305H\307\312\305H\313H#\\\n#\247\203F\303\nI\202\214\314H\304U\203\223\307\315\303H\n#\211\304U)\204\223\306\304H\307\310\304H\311H#\\\305H\307\312\305H\313H#\\\303H\307\315\303H\n#\\#\247\203\223\314\nI\203\223\316!\207\317\320\321\322\"\"\304U\203\255\316\323\304\211\211\211\n\304&\211!\207\316\323\304\211\211\211\n\304&\211\"\207" [hangul-queue number char 4 0 2 hangul-character hangul-djamo cho 1 jung 3 5 jong hangul-insert-character apply + append nil vector] 10 (#$ . 7406)])
(put 'hangul3-input-method-jong 'byte-optimizer 'byte-compile-inline-expand)
#@53 Delete the previous hangul character by Jaso units.
(defalias 'hangul-delete-backward-char #[nil "\303\211\304V\203	H\304U\203S\211\202	\304I\210)\305\306\307	\310\"\"\211\304U)\2040\311	!\207\312\313!\207" [i hangul-queue number 5 0 apply + append nil hangul-insert-character delete-char -1] 6 (#$ . 8398) nil])
#@152 Convert the previous hangul character to the corresponding hanja character.
When a Korean input method is off, convert the following hangul character.
(defalias 'hangul-to-hanja-conversion #[nil "\305\306\211\307!\203\310!\203\311h!\312\202!\311g!\313\205A	 \210c\210\314\315\305\"\307!\205A\310!\205A\316``#+\207" [hanja-character delete-func echo-keystrokes quail-overlay hangul-queue 0 nil overlayp overlay-start hangul-to-hanja-char #[nil "\300\301!\207" [delete-char -1] 2] #[nil "\300\301!\207" [delete-char 1] 2] make-vector 6 move-overlay] 4 (#$ . 8731) nil])
(defalias 'hangul2-input-method-internal #[(key) "	\306\246SH	\307U\204	\310U\203\311\2029	\312U\2044	\313U\2044	\314U\2044	\315U\2044	\316U\2038\317\2029\320\\\211\321W\203&\n\320H\320U\203R\320\nI\202\317H\320U\203x\311H\320U\203x\322\323\320H\n#\211\320U)\204x\317\nI\202\324H\320U\203\305\311H\211\320U)\204\305\n\325U\204\305\n\326U\204\305\n\327U\204\305\330\320H\322\323\320H\317H#\\\311H\322\331\311H\332H#\\\n#\247\203\305\324\nI\202\333H\320U\203\322\334\324H\n#\211\320U)\204\330\320H\322\323\320H\317H#\\\311H\322\331\311H\332H#\\\324H\322\334\324H\n#\\#\247\203\333\nI\203\335!\202\"\335\336\n\320\211\211\211\211&\211\")\202\246\n\311H\320U\2037\311\nI\202Z\332H\320U\203c\324H\320U\203c\322\331\311H\n#\211\320U)\204c\332\nI\203c\335!\202\245\336\320\211\n\320\211\211&\333H\211\320U)\204\207
\320\333HI\210\333\320I\210\202\236\324H\211\320U)\204\236
\320\324HI\210\324\320I\210\335
\211\")))\207" [hangul2-keymap key char hangul-queue number next-char 32 79 80 2 69 81 82 84 87 1 0 31 hangul-djamo cho 4 8 19 25 hangul-character jung 3 5 jong hangul-insert-character vector] 10])
#@24 2-Bulsik input method.
(defalias 'hangul2-input-method #[(key) "\204	\211\306Y\203\n\307X\206\n\310Y\205\n\311X)\204\"	C\207\312\313!\210\313\314\313\315\316\314\"\317	!\210\320\216\3212\245\322\313!\323\"\313;\203\204G\324U\203\204\314H\211\203\204	\211\306Y\203p\n\307X\206y\n\310Y\205y\n\311X)\203\204\317	!\210\202\241\325!\203\223\326!\210\202\241\327!\244\330\321\313\"\210+\202<,\207" [buffer-read-only key char help-char echo-keystrokes input-method-function 65 90 97 122 quail-setup-overlays nil 0 make-vector 6 hangul2-input-method-internal #[nil "\300 \207" [quail-delete-overlays] 1] exit-input-loop read-key-sequence lookup-key 1 commandp call-interactively listify-key-sequence throw hangul-queue seq hangul-im-keymap cmd unread-command-events] 4 (#$ . 10530)])
(defalias 'hangul3-input-method-internal #[(key) "	\306ZH\211\307V\203k\n\310W\203k\n\307Z\311H\311U\203-\312H\311U\203-\311\nI\202P\313H\311U\203Y\314H\311U\203Y\315\316\311H\n#\211\311U)\204Y\313\nI\203Y\317!\202g\317\320\n\311\211\211\211\211&\211\")\202\243\n\321V\203\310\n\322W\203\310\n\323Z\314H\311U\203\222\312H\311U\203\222\314\nI\202\255\324H\311U\203\266\315\325\314H\n#\211\311U)\204\266\324\nI\203\266\317!\202\304\317\320\311\211\n\311\211\211&\211\")\202\243\n\326W\203\223\n\312H\311U\203\311H\211\311U)\204\314H\211\311U)\204\327\311H\315\316\311H\313H#\\\314H\315\325\314H\324H#\\\n#\247\203\312\nI\202\\\330H\311U\203e\315\331\312H\n#\211\311U)\204e\327\311H\315\316\311H\313H#\\\314H\315\325\314H\324H#\\\312H\315\331\312H\n#\\#\247\203e\330\nI\203e\317!\202\217\332\333\334\335\"\"\311U\203\201\317\320\311\211\211\211\n\311&\211!\202\217\317\320\311\211\211\211\n\311&\211\")\202\243\336\337\311\"\340\341\n\"c\210\342
``#)\207" [hangul3-keymap key char hangul-queue number quail-overlay 33 92 123 0 4 1 2 hangul-djamo cho hangul-insert-character vector 65 87 35 3 jung 31 hangul-character 5 jong apply + append nil make-vector 6 decode-char ucs move-overlay] 10])
#@30 3-Bulsik final input method.
(defalias 'hangul3-input-method #[(key) "\204	\306W\204	\307Y\203	C\207\310\311!\210\311\312\311\313\314\312\"\315	!\210\316\216\3172\206\320\311!\321\"\311;\203eG\322U\203e\312H\211\203e	\306Y\203e	\307W\203e\315	!\210\202\202\323!\203t\324!\210\202\202\325!\244\326\317\311\"\210+\202,,\207" [buffer-read-only key help-char echo-keystrokes input-method-function hangul-queue 33 127 quail-setup-overlays nil 0 make-vector 6 hangul3-input-method-internal #[nil "\300 \207" [quail-delete-overlays] 1] exit-input-loop read-key-sequence lookup-key 1 commandp call-interactively listify-key-sequence throw seq hangul-im-keymap cmd unread-command-events] 3 (#$ . 12655)])
(defalias 'hangul390-input-method-internal #[(key) "	\306ZH\211\307V\203\n\310W\204\n\311V\203\201\n\312W\203\201\n\211\313W\203)\307\202*\314Z\315H\315U\203C\316H\315U\203C\315\nI\202f\317H\315U\203o\320H\315U\203o\321\322\315H\n#\211\315U)\204o\317\nI\203o\323!\202}\323\324\n\315\211\211\211\211&\211\")\202\271\n\325V\203\336\n\307W\203\336\n\326Z\320H\315U\203\250\316H\315U\203\250\320\nI\202\303\327H\315U\203\314\321\330\320H\n#\211\315U)\204\314\327\nI\203\314\323!\202\332\323\324\315\211\n\315\211\211&\211\")\202\271\n\331W\203\251\n\316H\315U\203,\315H\211\315U)\204,\320H\211\315U)\204,\332\315H\321\322\315H\317H#\\\320H\321\330\320H\327H#\\\n#\247\203,\316\nI\202r\333H\315U\203{\321\334\316H\n#\211\315U)\204{\332\315H\321\322\315H\317H#\\\320H\321\330\320H\327H#\\\316H\321\334\316H\n#\\#\247\203{\333\nI\203{\323!\202\245\335\336\337\340\"\"\315U\203\227\323\324\315\211\211\211\n\315&\211!\202\245\323\324\315\211\211\211\n\315&\211\")\202\271\341\342\315\"\343\344\n\"c\210\345
``#)\207" [hangul390-keymap key char hangul-queue number quail-overlay 33 86 91 96 123 97 92 0 4 1 2 hangul-djamo cho hangul-insert-character vector 64 34 3 jung 31 hangul-character 5 jong apply + append nil make-vector 6 decode-char ucs move-overlay] 10])
#@28 3-Bulsik 390 input method.
(defalias 'hangul390-input-method #[(key) "\204	\306W\204	\307Y\203	C\207\310\311!\210\311\312\311\313\314\312\"\315	!\210\316\216\3172\206\320\311!\321\"\311;\203eG\322U\203e\312H\211\203e	\306Y\203e	\307W\203e\315	!\210\202\202\323!\203t\324!\210\202\202\325!\244\326\317\311\"\210+\202,,\207" [buffer-read-only key help-char echo-keystrokes input-method-function hangul-queue 33 127 quail-setup-overlays nil 0 make-vector 6 hangul390-input-method-internal #[nil "\300 \207" [quail-delete-overlays] 1] exit-input-loop read-key-sequence lookup-key 1 commandp call-interactively listify-key-sequence throw seq hangul-im-keymap cmd unread-command-events] 3 (#$ . 14761)])
(defvar hangul-input-method-help-text nil)
(make-variable-buffer-local 'hangul-input-method-help-text)
#@144 Activate Hangul input method INPUT-METHOD.
FUNC is a function to handle input key.
HELP-TEXT is a text set in `hangul-input-method-help-text'.
(defalias 'hangul-input-method-activate #[(input-method func help-text &rest args) "\306\307\n\310 \210\311 \312 =\203\313\314\315\"\210\316\305!\210\f\211\207" [deactivate-current-input-method-function describe-current-input-method-function help-text hangul-input-method-help-text func input-method-function hangul-input-method-deactivate hangul-input-method-help quail-delete-overlays selected-window minibuffer-window add-hook minibuffer-exit-hook quail-exit-from-minibuffer make-local-variable] 3 (#$ . 15616)])
#@45 Deactivate the current Hangul input method.
(defalias 'hangul-input-method-deactivate #[nil "\301\216\302 \210\303 \210\304\211)\207" [describe-current-input-method-function #[nil "\300\301!\207" [kill-local-variable input-method-function] 2] quail-hide-guidance quail-delete-overlays nil] 2 (#$ . 16287) nil])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias hangul-input-method-inactivate hangul-input-method-deactivate nil make-obsolete "24.3"] 4)
#@43 Describe the current Hangul input method.
(defalias 'hangul-input-method-help #[nil "r\306\307!q\210p\310 \210	\311\211\312\211\312\313 \210\314\315!\210+\211\316!\317!\210+\207" [default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks get-buffer-create "*Help*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ internal-temp-output-buffer-show inhibit-read-only #2=#:buf standard-output hangul-input-method-help-text] 4 (#$ . 16762) nil])
(provide 'hangul)