diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2020-04-08 12:50:57 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2020-04-08 12:50:57 +0300 |
| commit | 4e109d1529624d028a3312715e9c7b3cc8ebefb3 (patch) | |
| tree | 5f69e6af0af10a50bd7d55b2d86ceddd6a411563 /lisp/language/korean.el | |
| parent | c36792bd79f3a97f292ab0612aa5c3ab1b4d9e70 (diff) | |
| download | emacs-4e109d1529624d028a3312715e9c7b3cc8ebefb3.tar.gz | |
Support character composition for Hangul jamo
* lisp/language/korean.el: Add composition rules for conjoining
Hangul jamo. (Bug#40502)
Diffstat (limited to 'lisp/language/korean.el')
| -rw-r--r-- | lisp/language/korean.el | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/lisp/language/korean.el b/lisp/language/korean.el index 210d0fabaf7..7e758159a48 100644 --- a/lisp/language/korean.el +++ b/lisp/language/korean.el @@ -84,6 +84,18 @@ and the following key bindings are available within Korean input methods: F9, Hangul_Hanja: hangul-to-hanja-conversion") )) +;; For auto-composing conjoining jamo. +(let* ((choseong "[\u1100-\u115F\uA960-\uA97C]") + (jungseong "[\u1160-\u11A7\uD7B0-\uD7C6]") + (jongseong "[\u11A8-\u11FF\uD7CB-\uD7FB]?") + (pattern (concat choseong jungseong jongseong))) + (set-char-table-range composition-function-table + '(#x1100 . #x115F) + (list (vector pattern 0 'font-shape-gstring))) + (set-char-table-range composition-function-table + '(#xA960 . #xA97C) + (list (vector pattern 0 'font-shape-gstring)))) + (provide 'korean) ;;; korean.el ends here |