[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 4e109d1: Support character composition for Hangul jamo
From: |
Eli Zaretskii |
Subject: |
master 4e109d1: Support character composition for Hangul jamo |
Date: |
Wed, 8 Apr 2020 05:51:55 -0400 (EDT) |
branch: master
commit 4e109d1529624d028a3312715e9c7b3cc8ebefb3
Author: Eli Zaretskii <address@hidden>
Commit: Eli Zaretskii <address@hidden>
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 210d0fa..7e75815 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 4e109d1: Support character composition for Hangul jamo,
Eli Zaretskii <=