Add support for the Wancho script (bug#58159)

* lisp/language/indian.el ("Wancho"): New language environment.
Add sample text and input method.
* lisp/international/fontset.el (script-representative-chars)
(setup-default-fontset): Support Wancho.
* lisp/leim/quail/indian.el ("wancho"): New input method.

* etc/HELLO: Add a Wancho greeting.
* etc/NEWS: Announce the new language environment.

diff --git a/etc/HELLO b/etc/HELLO
index 7e0e8475210af1cfcfd25126354b968917d25723..1899b087e0d290e7f21f00cfc0130a2c0c2ef432 100644 (file)
--- a/etc/HELLO
+++ b/etc/HELLO
@@ -116,6 +116,7 @@ Turkish (Türkçe)  Merhaba
 Ukrainian (українська)       Вітаю
 Vietnamese (tiếng Việt)    Chào bạn
 
+Wancho (𞋒𞋀𞋉𞋃𞋕)          𞋂𞋈𞋛
 
 
 <x-charset><param>japanese-jisx0208</param>Japanese (日本語)        こんにちは</x-charset> <x-charset><param>katakana-jisx0201</param>/ ｺﾝﾆﾁﾊ

diff --git a/etc/NEWS b/etc/NEWS
index 97eac058f1e1664a49e5c1a9a889ebdfe6fc29dd..4bab95da5122fd5492edf7fdf1ba4183b7ec4c26 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -1261,6 +1261,7 @@ Lepcha script and language environment
 Meetei Mayek script and language environment
 Adlam script and language environment
 Mende Kikakui script and language environment
+Wancho script and language environment
 
 ---
 *** The "Oriya" language environment was renamed to "Odia".

diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el
index 0028c454af27751c8caff050498598fcd408419b..ec505a0903293bb123b55c0ffbd894b79e7f1bd0 100644 (file)
--- a/lisp/international/fontset.el
+++ b/lisp/international/fontset.el
@@ -292,7 +292,7 @@
        (counting-rod-numeral #x1D360)
        (nyiakeng-puachue-hmong #x1e100)
        (toto #x1E290)
-       (wancho #x1e2c0)
+       (wancho #x1E2C0 #x1E2E8 #x1E2EF)
         (nag-mundari #x1E4D0 #x1E4EB #x1E4F0)
        (mende-kikakui #x1E810 #x1E8A6)
        (adlam #x1E900 #x1E943)
@@ -832,6 +832,7 @@
                    tai-xuan-jing-symbol
                    counting-rod-numeral
                     toto
+                    wancho
                     nag-mundari
                     mende-kikakui
                    adlam

diff --git a/lisp/language/indian.el b/lisp/language/indian.el
index 81b7cbd99bf5dc49822810b5ea52fbb1c3305b3a..bc8f5328573670ec3efcee92cc1660f9738fc29b 100644 (file)
--- a/lisp/language/indian.el
+++ b/lisp/language/indian.el
@@ -266,6 +266,17 @@ Meetei language and its script Meetei Mayek are supported in this
 language environment."))
  '("Indian"))
 
+(set-language-info-alist
+ "Wancho" '((charset unicode)
+            (coding-system utf-8)
+            (coding-priority utf-8)
+            (input-method . "wancho")
+            (sample-text . "Wancho (𞋒𞋀𞋉𞋃𞋕)      𞋂𞋈𞋛")
+            (documentation . "\
+Wancho language and its script are supported in this language
+environment."))
+ '("Indian"))
+
 ;; Replace mnemonic characters in REGEXP according to TABLE.  TABLE is
 ;; an alist of (MNEMONIC-STRING . REPLACEMENT-STRING).
 

diff --git a/lisp/leim/quail/indian.el b/lisp/leim/quail/indian.el
index 431d8369c1e3d66b754cfba728f83ac0ba929411..443488c18d9bb1db26cb11893a12a19bd1d0647e 100644 (file)
--- a/lisp/leim/quail/indian.el
+++ b/lisp/leim/quail/indian.el
@@ -2134,5 +2134,82 @@ is."
  ("`m" ?ꫲ)
  ("`?" ?꫱))
 
+(quail-define-package
+ "wancho" "Wancho" "𞋒" t "Wancho phonetic input method.
+
+ `\\=`' is used to switch levels instead of Alt-Gr."
+ nil t t t t nil nil nil nil nil t)
+
+(quail-define-rules
+ ("``" ?𞋿)
+ ("1"  ?𞋱)
+ ("`1" ?1)
+ ("2"  ?𞋲)
+ ("`2" ?2)
+ ("3"  ?𞋳)
+ ("`3" ?3)
+ ("4"  ?𞋴)
+ ("`4" ?4)
+ ("5"  ?𞋵)
+ ("`5" ?5)
+ ("6"  ?𞋶)
+ ("`6" ?6)
+ ("7"  ?𞋷)
+ ("`7" ?7)
+ ("8"  ?𞋸)
+ ("`8" ?8)
+ ("9"  ?𞋹)
+ ("`9" ?9)
+ ("0"  ?𞋰)
+ ("`0" ?0)
+ ("q"  ?𞋠)
+ ("Q"  ?𞋡)
+ ("w"  ?𞋒)
+ ("e"  ?𞋛)
+ ("E"  ?𞋧)
+ ("r"  ?𞋗)
+ ("t"  ?𞋋)
+ ("T"  ?𞋌)
+ ("y"  ?𞋆)
+ ("Y"  ?𞋫)
+ ("u"  ?𞋞)
+ ("U"  ?𞋪)
+ ("i"  ?𞋜)
+ ("I"  ?𞋥)
+ ("o"  ?𞋕)
+ ("O"  ?𞋖)
+ ("`o" ?𞋢)
+ ("`O" ?𞋦)
+ ("p"  ?𞋊)
+ ("P"  ?𞋇)
+ ("a"  ?𞋁)
+ ("A"  ?𞋀)
+ ("`a" ?𞋤)
+ ("`A" ?𞋣)
+ ("s"  ?𞋎)
+ ("S"  ?𞋏)
+ ("d"  ?𞋄)
+ ("f"  ?𞋍)
+ ("g"  ?𞋅)
+ ("h"  ?𞋚)
+ ("j"  ?𞋐)
+ ("k"  ?𞋔)
+ ("K"  ?𞋙)
+ ("l"  ?𞋈)
+ ("L"  ?𞋟)
+ ("z"  ?𞋑)
+ ("x"  ?𞋩)
+ ("X"  ?𞋝)
+ ("c"  ?𞋃)
+ ("C"  ?𞋬)
+ ("v"  ?𞋓)
+ ("V"  ?𞋭)
+ ("b"  ?𞋂)
+ ("B"  ?𞋮)
+ ("n"  ?𞋉)
+ ("N"  ?𞋯)
+ ("m"  ?𞋘)
+ ("M"  ?𞋨))
+
 (provide 'indian)
 ;;; indian.el ends here