diff options
| -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 |