diff options
| -rw-r--r-- | etc/HELLO | 1 | ||||
| -rw-r--r-- | etc/NEWS | 9 | ||||
| -rw-r--r-- | lisp/international/fontset.el | 2 | ||||
| -rw-r--r-- | lisp/language/misc-lang.el | 22 | ||||
| -rw-r--r-- | lisp/leim/quail/misc-lang.el | 97 |
5 files changed, 126 insertions, 5 deletions
diff --git a/etc/HELLO b/etc/HELLO index d73465318ca..18c5ee5e540 100644 --- a/etc/HELLO +++ b/etc/HELLO @@ -24,6 +24,7 @@ Non-ASCII examples: LANGUAGE (NATIVE NAME) HELLO ---------------------- ----- +Adlam (๐ค๐คฃ๐คค๐คข๐คฅ) ๐ค
๐คข๐คค๐คข๐ฅ๐คฅ Amharic (แ แแญแ) แ แแ Arabic (ุงูุนุฑุจููุฉ) ุงูุณููุงู
ุนูููู
Armenian (ีฐีกีตีฅึีฅีถ) ิฒีกึึ ีฑีฅีฆ @@ -1229,10 +1229,10 @@ to edit such sequences by allowing point to "enter" the sequence. *** Support for many old scripts and writing systems. Emacs now supports and has language-environments and input methods for several dozens of old scripts that were used in the past for various -languages in South and South-East Asia. For each such script Emacs -now has font-selection and character composition rules, a language -environment, and an input method. The newly-added scripts and the -corresponding language environments are: +languages. For each such script Emacs now has font-selection and +character composition rules, a language environment, and an input +method. The newly-added scripts and the corresponding language +environments are: Tai Tham script and the Northern Thai language environment Brahmi script and language environment @@ -1259,6 +1259,7 @@ Grantha script and language environment Kharoshthi script and language environment Lepcha script and language environment Meetei Mayek script and language environment +Adlam 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 ff2411eb869..3cd7765ef81 100644 --- a/lisp/international/fontset.el +++ b/lisp/international/fontset.el @@ -295,7 +295,7 @@ (wancho #x1e2c0) (nag-mundari #x1E4D0 #x1E4EB #x1E4F0) (mende-kikakui #x1E810) - (adlam #x1E900) + (adlam #x1E900 #x1E943) (indic-siyaq-number #x1ec71) (ottoman-siyaq-number #x1ed01) (mahjong-tile #x1F000) diff --git a/lisp/language/misc-lang.el b/lisp/language/misc-lang.el index 3d5b68f84be..bd1edb91853 100644 --- a/lisp/language/misc-lang.el +++ b/lisp/language/misc-lang.el @@ -269,6 +269,28 @@ using the Kharoแนฃแนญhฤซ script."))) modifier "*") 1 'font-shape-gstring)))) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; Adlam +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +(set-language-info-alist + "Adlam" '((charset unicode) + (coding-system utf-8) + (coding-priority utf-8) + (input-method . "adlam") + (sample-text . "Adlam (๐ค๐คฃ๐คค๐คข๐คฅ) ๐ค
๐คข๐คค๐คข๐ฅ๐คฅ") + (documentation . "\ +Fulani language and its script Adlam are supported +in this language environment."))) + +;; Adlam composition rules +(set-char-table-range + composition-function-table + '(#x1E900 . #x1E95F) + (list (vector + "[\x1E900-\x1E95F]+" + 0 'font-shape-gstring))) + (provide 'misc-lang) ;;; misc-lang.el ends here diff --git a/lisp/leim/quail/misc-lang.el b/lisp/leim/quail/misc-lang.el index 0c4a0d4ce40..6bafa6b5fb3 100644 --- a/lisp/leim/quail/misc-lang.el +++ b/lisp/leim/quail/misc-lang.el @@ -1180,5 +1180,102 @@ (".||" ?๐ฉ) (".=" ?๐ฉ)) +(quail-define-package + "adlam" "Adlam" "๐ค" t "Adlam 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" ?๐ฅ) + ("`!" ?๐ฅ) + ("2" ?๐ฅ) + ("3" ?๐ฅ) + ("4" ?๐ฅ) + ("5" ?๐ฅ) + ("6" ?๐ฅ) + ("7" ?๐ฅ) + ("8" ?๐ฅ) + ("9" ?๐ฅ) + ("0" ?๐ฅ) + ("q" ?๐คน) + ("Q" ?๐ค) + ("`q" ?๐ฅ) + ("w" ?๐คฑ) + ("W" ?๐ค) + ("`w" ?๐ฅ) + ("`W" ?๐ฅ) + ("e" ?๐คซ) + ("E" ?๐ค) + ("`e" ?๐ฅ
) + ("r" ?๐คช) + ("R" ?๐ค) + ("t" ?๐คผ) + ("T" ?๐ค) + ("y" ?๐คด) + ("Y" ?๐ค) + ("`y" ?๐คฐ) + ("`Y" ?๐ค) + ("u" ?๐คต) + ("U" ?๐ค) + ("i" ?๐คญ) + ("I" ?๐ค) + ("o" ?๐คฎ) + ("O" ?๐ค) + ("p" ?๐คจ) + ("P" ?๐ค) + ("a" ?๐คข) + ("A" ?๐ค) + ("`a" ?๐ฅ) + ("s" ?๐คง) + ("S" ?๐ค
) + ("`s" ?๐ฅ) + ("`S" ?๐คก) + ("d" ?๐คฃ) + ("D" ?๐ค) + ("`d" ?๐คฏ) + ("`D" ?๐ค) + ("f" ?๐คฌ) + ("F" ?๐ค) + ("g" ?๐คบ) + ("G" ?๐ค) + ("`g" ?๐ฅ) + ("`G" ?๐ค) + ("h" ?๐คธ) + ("H" ?๐ค) + ("`h" ?๐ฅ) + ("j" ?๐คถ) + ("J" ?๐ค) + ("k" ?๐คณ) + ("K" ?๐ค) + ("`k" ?๐คฟ) + ("`K" ?๐ค) + ("l" ?๐คค) + ("L" ?๐ค) + ("z" ?๐ฅ) + ("Z" ?๐ค) + ("`z" ?๐ฅ) + ("`Z" ?๐ค ) + ("x" ?๐คฝ) + ("X" ?๐ค) + ("c" ?๐คท) + ("C" ?๐ค) + ("`c" #x200C) ; ZWNJ + ("v" ?๐คพ) + ("V" ?๐ค) + ("`v" ?๐ฅ) + ("b" ?๐คฆ) + ("B" ?๐ค) + ("`b" ?๐คฉ) + ("`B" ?๐ค) + ("n" ?๐คฒ) + ("N" ?๐ค) + ("`n" ?๐คป) + ("`N" ?๐ค) + ("m" ?๐คฅ) + ("M" ?๐ค) + ("`m" ?๐ฅ) + ("`/" ?๐ฅ)) + (provide 'misc-lang) ;;; misc-lang.el ends here |