From: Eli Zaretskii <eliz@gnu.org>
Date: Wed, 8 Apr 2020 09:50:57 +0000 (+0300)
Subject: Support character composition for Hangul jamo
X-Git-Tag: emacs-28.0.90~7629
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4e109d1529624d028a3312715e9c7b3cc8ebefb3;p=emacs.git

Support character composition for Hangul jamo

* lisp/language/korean.el: Add composition rules for conjoining
Hangul jamo.  (Bug#40502)
---

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