From 4e109d1529624d028a3312715e9c7b3cc8ebefb3 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Wed, 8 Apr 2020 12:50:57 +0300 Subject: [PATCH] Support character composition for Hangul jamo * lisp/language/korean.el: Add composition rules for conjoining Hangul jamo. (Bug#40502) --- lisp/language/korean.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) 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 -- 2.39.5