From 5f7bcac78eca614233388922d0500c255e12d803 Mon Sep 17 00:00:00 2001
From: Kenichi Handa <handa@m17n.org>
Date: Fri, 22 Feb 2008 02:48:41 +0000
Subject: [PATCH] Delete it

---
 lisp/language/devanagari.el |  46 ---
 lisp/language/kannada.el    |  55 ----
 lisp/language/knd-util.el   | 542 ------------------------------------
 lisp/language/malayalam.el  |  52 ----
 lisp/language/mlm-util.el   | 422 ----------------------------
 lisp/language/tamil.el      |  48 ----
 lisp/language/tml-util.el   | 380 -------------------------
 7 files changed, 1545 deletions(-)
 delete mode 100644 lisp/language/devanagari.el
 delete mode 100644 lisp/language/kannada.el
 delete mode 100644 lisp/language/knd-util.el
 delete mode 100644 lisp/language/malayalam.el
 delete mode 100644 lisp/language/mlm-util.el
 delete mode 100644 lisp/language/tamil.el
 delete mode 100644 lisp/language/tml-util.el

diff --git a/lisp/language/devanagari.el b/lisp/language/devanagari.el
deleted file mode 100644
index 4cf95fde994..00000000000
--- a/lisp/language/devanagari.el
+++ /dev/null
@@ -1,46 +0,0 @@
-;;; devanagari.el --- Support for Devanagari -*- coding: iso-2022-7bit; no-byte-compile: t -*-
-
-;; Copyright (C) 1996, 1997, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
-;;   Free Software Foundation, Inc.
-
-;; Maintainer:  KAWABATA, Taichi <kawabata@m17n.org>
-;; Keywords: multilingual, Indian, Devanagari
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-
-;; GNU Emacs is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
-;; Boston, MA 02110-1301, USA.
-
-;;; Commentary:
-
-;; This file defines language-info of Devanagari script, and provides
-;; compatibility support of old implementation of Devanagari script.
-
-;;; Code:
-
-(set-language-info-alist
- "Devanagari" '((charset unicode)
-		(coding-system utf-8)
-		(coding-priority utf-8)
-		(input-method . "dev-aiba")
-		(documentation . "\
-Such languages using Devanagari script as Hindi and Marathi
-are supported in this language environment."))
- '("Indian"))
-
-(provide 'devanagari)
-
-;;; arch-tag: fd13667d-868b-41e8-81ef-79dd28bbfed2
-;;; devanagari.el ends here
diff --git a/lisp/language/kannada.el b/lisp/language/kannada.el
deleted file mode 100644
index f174e6e4d50..00000000000
--- a/lisp/language/kannada.el
+++ /dev/null
@@ -1,55 +0,0 @@
-;;; kannada.el --- Support for Kannada -*- coding: iso-2022-7bit; no-byte-compile: t -*-
-
-;; Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008
-;;   Free Software Foundation, Inc.
-
-;; Maintainer:  CHOWKSEY, Kailash C. <klchxbec@m-net.arbornet.org>
-;; Keywords: multilingual, Indian, Kannada
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-
-;; GNU Emacs is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
-;; Boston, MA 02110-1301, USA.
-
-;;; Commentary:
-
-;; This file defines language-info of Kannada script.
-
-;;; Code:
-
-(set-language-info-alist
- "Kannada" '((charset mule-unicode-0100-24ff indian-is13194
-                         indian-2-column indian-glyph ;; comment out later
-                         )
-		(coding-system mule-utf-8)
-		(coding-priority mule-utf-8)
-		(input-method . "kannada-itrans")
-		(features knd-util)
-		(sample-text
-		 . (kannada-compose-string
-		    (copy-sequence "Kannada ($,1>u?(?M?(?!(B)	$,1?(?.?8?M>u?>?0(B")))
-		(documentation . "\
-Kannada language and script is supported in this language
-environment.")) 
- '("Indian"))
-
-;; For automatic composition.
-(set-char-table-range composition-function-table '(#x0c80 . #x0cff)
-		      '(("[\x0c80-\x0CFF]+" . font-shape-text)))
-
-(provide 'kannada)
-
-;;; arch-tag: 880ba90b-f6f5-4131-bc1d-930705b78416
-;;; kannada.el ends here
diff --git a/lisp/language/knd-util.el b/lisp/language/knd-util.el
deleted file mode 100644
index 25bbad7fe7e..00000000000
--- a/lisp/language/knd-util.el
+++ /dev/null
@@ -1,542 +0,0 @@
-;;; knd-util.el --- Support for composing Kannada characters
-
-;; Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008
-;;   Free Software Foundation, Inc.
-
-;; Maintainer:  Maintainer:  CHOWKSEY, Kailash C. <klchxbec@m-net.arbornet.org>
-;; Keywords: multilingual, Kannada
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-
-;; GNU Emacs is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
-;; Boston, MA 02110-1301, USA.
-
-;; Created: Jul. 14. 2003
-
-;;; Commentary:
-
-;; This file provides character(Unicode) to glyph(CDAC) conversion and
-;; composition of Kannada script characters.
-
-;;; Code:
-
-;;;###autoload
-
-;; Kannada Composable Pattern
-;;    C .. Consonants
-;;    V .. Vowel
-;;    H .. Virama
-;;    M .. Matra
-;;    V .. Vowel
-;;    (N .. Zerowidth Non Joiner)
-;;    (J .. Zerowidth Joiner.  )
-;; 1. vowel
-;;  V(A)?
-;; 2. syllable : maximum of 5 consecutive consonants.  (e.g. kartsnya)
-;;  ((CH)?(CH)?(CH)?CH)?C(H|M?)?
-
-(defconst kannada-consonant
-  "[$,1>u(B-$,1?9(B]")
-
-(defconst kannada-consonant-needs-twirl
-  "[$,1>u>w(B-$,1>{>}(B-$,1>~? (B-$,1?"?$(B-$,1?+?-?0?3(B-$,1?9(B]\\($,1?M(B[$,1>u(B-$,1?9(B]\\)*[$,1?A?B?C?D>b(B]?$")
-
-(defconst kannada-composable-pattern
-  (concat
-   "\\([$,1>b(B-$,1>t?`>l(B]\\)\\|[$,1>c(B]"
-   "\\|\\("
-   "\\(?:\\(?:[$,1>u(B-$,1?9(B]$,1?M(B\\)?\\(?:[$,1>u(B-$,1?9(B]$,1?M(B\\)?\\(?:[$,1>u(B-$,1?9(B]$,1?M(B\\)?[$,1>u(B-$,1?9(B]$,1?M(B\\)?"
-   "[$,1>u(B-$,1?9(B]\\(?:$,1?M(B\\|[$,1?>(B-$,1?M?U?C(B]?\\)?"
-   "\\)")
-  "Regexp matching a composable sequence of Kannada characters.")
-
-;;;###autoload
-(defun kannada-compose-region (from to)
-  (interactive "r")
-  (save-excursion
-    (save-restriction
-      (narrow-to-region from to)
-      (goto-char (point-min))
-      (while (re-search-forward kannada-composable-pattern nil t)
-        (kannada-compose-syllable-region (match-beginning 0)
-                                            (match-end 0))))))
-;;;###autoload
-(defun kannada-compose-string (string)
-  (with-temp-buffer
-    (insert (decompose-string string))
-    (kannada-compose-region (point-min) (point-max))
-    (buffer-string)))
-
-;;;###autoload
-(defun kannada-post-read-conversion (len)
-  (save-excursion
-    (save-restriction
-      (let ((buffer-modified-p (buffer-modified-p)))
-	(narrow-to-region (point) (+ (point) len))
-	(kannada-compose-region (point-min) (point-max))
-	(set-buffer-modified-p buffer-modified-p)
-	(- (point-max) (point-min))))))
-
-(defun kannada-range (from to)
-  "Make the list of the integers of range FROM to TO."
-  (let (result)
-    (while (<= from to) (setq result (cons to result) to (1- to))) result))
-
-(defun kannada-regexp-of-hashtbl-keys (hashtbl)
-  "Return a regular expression that matches all keys in hashtable HASHTBL."
-  (let ((max-specpdl-size 1000))
-    (regexp-opt
-     (sort
-      (let (dummy)
-	(maphash (function (lambda (key val) (setq dummy (cons key dummy)))) hashtbl)
-	dummy)
-      (function (lambda (x y) (> (length x) (length y))))))))
-
-(defun kannada-regexp-of-hashtbl-vals (hashtbl)
-  "Return a regular expression that matches all values in hashtable HASHTBL."
-  (let ((max-specpdl-size 1000))
-    (regexp-opt
-     (sort
-      (let (dummy)
-	(maphash (function (lambda (key val) (setq dummy (cons val dummy)))) hashtbl)
-	dummy)
-      (function (lambda (x y) (> (length x) (length y))))))))
-
-;;;###autoload
-(defun kannada-composition-function (pos &optional string)
-  "Compose Kannada characters after the position POS.
-If STRING is not nil, it is a string, and POS is an index to the string.
-In this case, compose characters after POS of the string."
-  (if string
-      ;; Not yet implemented.
-      nil
-    (goto-char pos)
-    (if (looking-at kannada-composable-pattern)
-	(prog1 (match-end 0)
-	  (kannada-compose-syllable-region pos (match-end 0))))))
-
-;; Notes on conversion steps.
-
-;; 1. chars to glyphs
-;;
-;; Rules will not be applied to the virama appeared at the end of the
-;; text.  Also, the preceding/following "r" will be treated as special case.
-
-;; 2. glyphs reordering.
-;;
-;; The glyphs are split by virama, and each glyph groups are
-;; re-ordered in the following order.
-;;
-;; Note that `consonant-glyph' mentioned here does not contain the
-;; vertical bar (right modifier) attached at the right of the
-;; consonant.
-;;
-;; If the glyph-group contains right modifier,
-;;  (1) consonant-glyphs/vowels
-;;  (2) spacing
-;;  (3) right modifier (may be matra)
-;;  (4) top matra
-;;  (5) preceding "r"
-;;  (7) following "r"
-;;  (8) bottom matra or virama.
-;;
-;; Otherwise,
-;;  (1) consonant-glyph/vowels, with nukta sign
-;;  (3) left matra
-;;  (4) top matra
-;;  (5) preceding "r"
-;;  (7) following "r"
-;;  (8) bottom matra or virama.
-;;  (2) spacing
-
-;; 3. glyph to glyph
-;;
-;; For better display, some glyph display would be tuned.
-
-;; 4. Composition.
-;;
-;; left modifiers will be attached at the left.
-;; others will be attached right.
-
-;; Problem::
-;;  Can we generalize this methods to other Indian scripts?
-
-(defvar knd-char-glyph
-  '(("$,1>e(B" . "$,43@(B")
-    ("$,1>f(B" . "$,43A(B")
-    ("$,1?>(B" . "$,44{(B")
-    ("$,1>g(B" . "$,43B(B")
-    ("$,1??(B" . nil)
-    ("$,1>h(B" . "$,43C(B")
-    ("$,1?@(B" . nil)
-    ("$,1>i(B" . "$,43D(B")
-    ("$,1?A(B" . "\$,44(B")
-    ("$,1>j(B" . "$,43E(B")
-    ("$,1?B(B" . "\$,45 (B")
-    ("$,1>k(B" . "$,43F4(B")
-    ("$,1?C(B" . "\$,45$(B")
-    ("$,1?`(B" . "$,43F5 (B")
-    ("$,1?D(B" . "\$,45%(B")
-    ;;("$,1>l(B" . nil) ; not implemented.
-    ;;("$,1?a(B" . nil)
-    ("$,1>n(B" . "$,43G(B")
-    ("$,1>o(B" . "$,43H(B")
-    ("$,1>p(B" . "$,43I(B")
-    ("$,1?F(B" . "\$,45&(B")
-    ("$,1?G(B" . "\$,45&4~(B")
-    ("$,1?H(B" . "\$,45&5'(B")
-    ("$,1>r(B" . "$,43J(B")
-    ("$,1?J(B" . "$,45&5 (B")
-    ("$,1>s(B" . "$,43K(B")
-    ("$,1?K(B" . "\$,45&5 4~(B")
-    ("$,1>t(B" . "$,43L(B")
-    ("$,1?L(B" . "\$,45((B")
-    ("$,1>b(B" . "$,43M(B")
-    ("$,1>c(B" . "$,43N(B")
-    ("$,1>u?M(B" . "$,43O5)(B") ("$,1>u(B" . "$,43O(B") ("$,1>u??(B" . "$,43P(B") ("$,1>u?@(B" . "$,43P4~(B")
-    ("$,1>v?M(B" . "$,43S5)(B") ("$,1>v(B" .  "$,43S(B") ("$,1>v??(B" . "$,43T(B") ("$,1>v?@(B" . "$,43T4~(B") ("$,1>v?F(B" . "$,43S5&(B") ("$,1>v?G(B" . "$,43S5&4~(B") ("$,1>v?H(B" . "$,43S5&5'(B") ("$,1>v?J(B" .  "$,43S5&5&5 (B") ("$,1>v?K(B" . "$,43S5&5&5 4~(B") ("$,1>v?L(B" . "$,43S5((B")
-    ("$,1>w?M(B" . "$,43V5)(B") ("$,1>w(B" . "$,43V(B") ("$,1>w??(B" . "$,43W(B") ("$,1>w?@(B" . "$,43W4~(B")
-    ("$,1>x?M(B" . "$,43Y5)(B") ("$,1>x(B" . "$,43Y(B") ("$,1>x??(B" . "$,43Z(B") ("$,1>x?@(B" . "$,43Z4~(B")
-    ("$,1>y?M(B" . "$,43\5)(B") ("$,1>y(B" . "$,43\(B")
-    ("$,1>z?M(B" . "$,43^5)(B") ("$,1>z(B" . "$,43^(B") ("$,1>z??(B" . "$,43_(B") ("$,1>z?@(B" . "$,43_4~(B")
-    ("$,1>{?M(B" . "$,43a5)(B") ("$,1>{(B" . "$,43a(B") ("$,1>{??(B" . "$,43b(B") ("$,1>{?@(B" . "$,43b4~(B")
-    ("$,1>|?M(B" . "$,43d5)(B") ("$,1>|(B" . "$,43d(B") ("$,1>|??(B" . "$,43f(B") ("$,1>|?@(B" . "$,43f4~(B") ("$,1>|?F(B" . "$,43e5&(B") ("$,1>|?G(B" . "$,43e5&4~(B") ("$,1>|?H(B" . "$,43e5&5'(B") ("$,1>|?J(B" .  "$,43e5&5&5 (B") ("$,1>|?K(B" . "$,43e5&5&5 4~(B") ("$,1>|?L(B" . "$,43e5((B")
-    ("$,1>}?M(B" . "$,44a4z3h45)(B") ("$,1>}(B" . "$,44a4z3h4(B") ("$,1>}??(B" . "$,44b3h4(B") ("$,1>}?@(B" . "$,44b3h44~(B") ("$,1>}?B(B". "$,44a4z3h5 (B") ("$,1>}?J(B". "$,44a5&3h5 (B") ("$,1>}?K(B". "$,44a5&3h5 4~(B")
-    ("$,1>~?M(B" . "$,43j5)(B") ("$,1>~(B" . "$,43j(B")
-    ("$,1>?M(B" . "$,43m5)(B") ("$,1>(B" . "$,43l(B") ("$,1?#?>(B" . "$,43m4{(B") ("$,1>??(B" . "$,43n(B") ("$,1>?@(B" . "$,43n4~(B") ("$,1>?F(B" . "$,43m5&(B") ("$,1>?G(B" . "$,43m5&4~(B") ("$,1>?H(B" . "$,43m5&5'(B") ("$,1>?J(B" .  "$,43m5&5&5 (B") ("$,1>?K(B" . "$,43m5&5&5 4~(B") ("$,1>?L(B" . "$,43m5((B")
-    ("$,1? ?M(B" . "$,43p5)(B") ("$,1? (B" . "$,43p(B") ("$,1? ??(B" . "$,43q(B") ("$,1? ?@(B" . "$,43q4~(B")
-    ("$,1?!?M(B" . "$,43s5)(B") ("$,1?!(B" . "$,43s(B") ("$,1?!??(B" . "$,43t(B") ("$,1?!?@(B" . "$,43t4~(B")
-    ("$,1?"?M(B" . "$,43v5)(B") ("$,1?"(B" . "$,43v(B") ("$,1?"??(B" . "$,43w(B") ("$,1?"?@(B" . "$,43w4~(B")
-    ("$,1?#?M(B" . "$,43z5)(B") ("$,1?#(B" . "$,43y(B") ("$,1?#?>(B" . "$,43z4{(B") ("$,1?#??(B" . "$,43{(B") ("$,1?#?@(B" . "$,43{4~(B") ("$,1?#?F(B" . "$,43z5&(B") ("$,1?#?G(B" . "$,43z5&4~(B") ("$,1?#?H(B" . "$,43z5&5'(B") ("$,1?#?J(B" .  "$,43z5&5&5 (B") ("$,1?#?K(B" . "$,43z5&5&5 4~(B") ("$,1?#?L(B" . "$,43z5((B")
-    ("$,1?$?M(B" . "$,43}5)(B") ("$,1?$(B" . "$,43}(B") ("$,1?$??(B" . "$,43~(B") ("$,1?$?@(B" . "$,43~4~(B")
-    ("$,1?%?M(B" . "$,44B5)(B") ("$,1?%(B" . "$,44B(B") ("$,1?%??(B" . "$,44C(B") ("$,1?%?@(B" . "$,44C4~(B")
-    ("$,1?&?M(B" . "$,44E5)(B") ("$,1?&(B" . "$,44E(B") ("$,1?&??(B" . "$,44F(B") ("$,1?&?@(B" . "$,44F4~(B")
-    ("$,1?'?M(B" . "$,44H5)(B") ("$,1?'(B" . "$,44H(B") ("$,1?'??(B" . "$,44I(B") ("$,1?'?@(B" . "$,44I4~(B")
-    ("$,1?(?M(B" . "$,44K5)(B") ("$,1?((B" . "$,44K(B") ("$,1?(??(B" . "$,44L(B") ("$,1?(?@(B" . "$,44L4~(B")
-    ("$,1?*?M(B" . "$,44N5)(B") ("$,1?*(B" . "$,44N(B") ("$,1?*??(B" . "$,44O(B") ("$,1?*?@(B" . "$,44O4~(B") ("$,1?*?A(B" . "$,44N5"(B") ("$,1?*?B(B" . "$,44N5#(B") ("$,1?*?J(B" . "$,44N5&5#(B") ("$,1?*?K(B" . "$,44N5&5#4~(B")
-    ("$,1?+?M(B" . "$,44Q5)(B") ("$,1?+(B" . "$,44Q(B") ("$,1?+??(B" . "$,44R(B") ("$,1?+?@(B" . "$,44R4~(B") ("$,1?+?A(B" . "$,44Q5"(B") ("$,1?+?B(B" . "$,44Q5#(B") ("$,1?+?J(B" . "$,44Q5&5#(B") ("$,1?+?K(B" . "$,44Q5&5#4~(B")
-    ("$,1?,?M(B" . "$,44W5)(B") ("$,1?,(B" . "$,44V(B") ("$,1?,?>(B". "$,44W4{(B") ("$,1?,??(B" . "$,44X(B") ("$,1?,?@(B" . "$,44X4~(B") ("$,1?,?F(B" . "$,44W5&(B") ("$,1?,?G(B" . "$,44W5&4~(B") ("$,1?,?H(B" . "$,44W5&5'(B") ("$,1?,?J(B" .  "$,44W5&5&5 (B") ("$,1?,?K(B" . "$,44W5&5&5 4~(B") ("$,1?,?L(B" . "$,44W5((B")
-    ("$,1?-?M(B" . "$,44Z5)(B") ("$,1?-(B" . "$,44Z(B") ("$,1?-??(B" . "$,44[(B") ("$,1?-?@(B" . "$,44[4~(B")
-    ("$,1?.?M(B" . "$,44h5!5)(B") ("$,1?.(B" . "$,44h4z4(B") ("$,1?.?>(B" . "$,44h4z5!4{(B") ("$,1?.??(B" . "$,44i4(B") ("$,1?.?@(B" . "$,44i44~(B") ("$,1?.?J(B". "$,44h5&5 (B") ("$,1?.?K(B". "$,44h5&5 4~(B")
-    ("$,1?/?M(B" . "$,44^4z5!5)(B") ("$,1?/(B" . "$,44^4z4(B") ("$,1?/?>(B" . "$,44^4z5!4{(B")("$,1?/??(B" . "$,44_4(B") ("$,1?/?@(B" . "$,44_44~(B") ("$,1?/?J(B" . "$,44^5&5 (B") ("$,1?/?K(B" . "$,44^5&5 4~(B")
-    ("$,1?0?M(B" . "$,44a5)(B") ("$,1?0(B" . "$,44a(B") ("$,1?0??(B" . "$,44b(B") ("$,1?0?@(B" . "$,44b4~(B")
-    ("$,1?0?M(B" . "$,44a5)(B") ("$,1?0(B" . "$,44a(B") ("$,1?0??(B" . "$,44b(B") ("$,1?0?@(B" . "$,44b4~(B")
-    ("$,1?2?M(B" . "$,44e5)(B") ("$,1?2(B" . "$,44d(B") ("$,1?2?>(B" . "$,44e4{(B") ("$,1?2??(B" . "$,44f(B") ("$,1?2?@(B" . "$,44f4~(B") ("$,1?2?F(B" . "$,44e5&(B") ("$,1?2?G(B" . "$,44e5&4~(B") ("$,1?2?H(B" . "$,44e5&5'(B") ("$,1?2?J(B" .  "$,44e5&5&5 (B") ("$,1?2?K(B" . "$,44e5&5&5 4~(B") ("$,1?2?L(B" . "$,44e5((B")
-    ("$,1?5?M(B" . "$,44h5)(B") ("$,1?5(B" . "$,44h(B") ("$,1?5??(B" . "$,44i(B") ("$,1?5?@(B" . "$,44i4~(B") ("$,1?5?A(B" . "$,44h5"(B") ("$,1?5?B(B" . "$,44h5#(B") ("$,1?5?J(B" . "$,44h5&5#(B") ("$,1?5?K(B" . "$,44h5&5#4~(B")
-    ("$,1?6?M(B" . "$,44k5)(B") ("$,1?6(B" . "$,44k(B") ("$,1?6??(B" . "$,44l(B") ("$,1?6?@(B" . "$,44l4~(B")
-    ("$,1?7?M(B" . "$,44n5)(B") ("$,1?7(B" . "$,44n(B") ("$,1?7??(B" . "$,44o(B") ("$,1?7?@(B" . "$,44o4~(B")
-    ("$,1?8?M(B" . "$,44q5)(B") ("$,1?8(B" . "$,44q(B") ("$,1?8??(B" . "$,44r(B") ("$,1?8?@(B" . "$,44r4~(B")
-    ("$,1?9?M(B" . "$,44t5)(B") ("$,1?9(B" . "$,44t(B") ("$,1?9??(B" . "$,44u(B") ("$,1?9?@(B" . "$,44u4~(B")
-    ("$,1?3?M(B" . "$,44w5)(B") ("$,1?3(B" . "$,44w(B") ("$,1?3??(B" . "$,44x(B") ("$,1?3?@(B" . "$,44x4~(B"))
-"Kannada characters to glyphs conversion table.
-Default value contains only the basic rules.")
-
-(defvar knd-char-glyph-hash
-  (let* ((hash (make-hash-table :test 'equal)))
-    (mapc (function (lambda (x) (puthash (car x) (cdr x) hash)))
-	  knd-char-glyph)
-    hash))
-
-(defvar knd-char-glyph-regexp
-  (kannada-regexp-of-hashtbl-keys knd-char-glyph-hash))
-
-(defvar knd-conjunct-glyph
-  '(("$,1>u(B" . "$,43Q(B") ("$,1>v(B" . "$,43U(B") ("$,1>w(B" . "$,43X(B") ("$,1>x(B" . "$,43[(B") ("$,1>y(B" . "$,43](B")
-    ("$,1>z(B" . "$,43`(B") ("$,1>{(B" . "$,43c(B") ("$,1>|(B" . "$,43g(B") ("$,1>}(B" . "$,43i(B") ("$,1>~(B" . "$,43k(B")
-    ("$,1>(B" . "$,43o(B") ("$,1? (B" . "$,43r(B") ("$,1?!(B" . "$,43u(B") ("$,1?"(B" . "$,43x(B") ("$,1?#(B" . "$,43|(B")
-    ("$,1?$(B" . "$,44A(B") ("$,1?%(B" . "$,44D(B") ("$,1?&(B" . "$,44G(B") ("$,1?'(B" . "$,44J(B") ("$,1?((B" . "$,44M(B")
-    ("$,1?*(B" . "$,44P(B") ("$,1?+(B" . "$,44U(B") ("$,1?,(B" . "$,44Y(B") ("$,1?-(B" . "$,44\(B") ("$,1?.(B" . "$,44](B")
-    ("$,1?/(B" . "$,44`(B") ("$,1?0(B" . "$,44c(B") ("$,1?2(B" . "$,44g(B") ("$,1?3(B" . "$,44y(B") ("$,1?5(B" . "$,44j(B")
-    ("$,1?6(B" . "$,44m(B") ("$,1?7(B" . "$,44p(B") ("$,1?8(B" . "$,44s(B") ("$,1?9(B" . "$,44v(B"))
-"Kannada characters to conjunct glyphs conversion table.")
-
-(defvar knd-conjunct-glyph-hash
-  (let* ((hash (make-hash-table :test 'equal)))
-    (mapc (function (lambda (x) (puthash (car x) (cdr x) hash)))
-	  knd-conjunct-glyph)
-    hash))
-    
-(defvar knd-conjunct-glyph-regexp
-  (kannada-regexp-of-hashtbl-vals knd-conjunct-glyph-hash))
-
-(mapc
-  (function (lambda (x)
-    (put-char-code-property (aref (cdr x) 0) 'reference-point '(5 . 3))))
-  knd-conjunct-glyph)
-
-;; glyph-to-glyph conversion table.
-;; it is supposed that glyphs are ordered in
-;;   [consonant/nukta] - [matra/virama] - [preceding-r] - [anuswar].
-
-(defvar knd-glyph-glyph
-  '(("$,45$4A(B" . "$,45*(B")
-    ("$,45'4A(B" . "$,45+(B")
-    ("$,44A3g(B" . "$,45,(B")
-    ("$,45$3Q(B" . "$,45-(B")))
-
-(defvar knd-glyph-glyph-hash
-  (let* ((hash (make-hash-table :test 'equal)))
-    (mapc (function (lambda (x) (puthash (car x) (cdr x) hash)))
-	  knd-glyph-glyph)
-    hash))
-(defvar knd-glyph-glyph-regexp
-  (kannada-regexp-of-hashtbl-keys knd-glyph-glyph-hash))
-
-(defun knd-charseq (from &optional to)
-  (if (null to) (setq to from))
-  (number-sequence (decode-char 'kannada-cdac from)
-		   (decode-char 'kannada-cdac to)))
-
-(defvar knd-glyph-cv
-  (append
-   (knd-charseq #x40 #x50)
-   (knd-charseq #x52 #x54)
-   (knd-charseq #x56 #x57)
-   (knd-charseq #x59 #x5a)
-   (knd-charseq #x5c)
-   (knd-charseq #x5e #x5f)
-   (knd-charseq #x61 #x62)
-   (knd-charseq #x64 #x66)
-   (knd-charseq #x6a)
-   (knd-charseq #x6c #x6e)
-   (knd-charseq #x70 #x71)
-   (knd-charseq #x73 #x74)
-   (knd-charseq #x76 #x77)
-   (knd-charseq #x79 #x7b)
-   (knd-charseq #x7d #x7e)
-   (knd-charseq #xa2 #xa3)
-   (knd-charseq #xa5 #xa6)
-   (knd-charseq #xa8 #xa9)
-   (knd-charseq #xab #xac)
-   (knd-charseq #xae #xaf)
-   (knd-charseq #xb1 #xb2)
-   (knd-charseq #xb6 #xb8)
-   (knd-charseq #xb6 #xb8)
-   (knd-charseq #xba #xbb)
-   (knd-charseq #xbe #xbf)
-   (knd-charseq #xc1 #xc2)
-   (knd-charseq #xc4 #xc6)
-   (knd-charseq #xc8 #xc9)
-   (knd-charseq #xcb #xcc)
-   (knd-charseq #xce #xcf)
-   (knd-charseq #xd1 #xd2)
-   (knd-charseq #xd4 #xd5)
-   (knd-charseq #xd7 #xd8)
-   (knd-charseq #xc3))
-  "Kannada Consonants/Vowels/Nukta Glyphs")
-
-(defvar knd-glyph-space
-  (knd-charseq #xb3 #xb4)
-  "Kannada Spacing Glyphs")
-
-(defvar knd-glyph-right-modifier
-  (append
-   (knd-charseq #xdb #xdd)
-   (knd-charseq #xdf)
-   (knd-charseq #xe0 #xe3)
-   (knd-charseq #xe9))
-  "Kannada Modifiers attached at the right side.")
-
-(defvar knd-glyph-right-modifier-regexp
-  (concat "[" knd-glyph-right-modifier "]"))
-
-(defvar knd-glyph-jha-tail
-   (knd-charseq #x68)
-  "Kannada tail for jha.")
-
-(defvar knd-glyph-top-matra
-  (append
-   (knd-charseq #xda)
-   (knd-charseq #xdd)
-   (knd-charseq #xe6)
-   (knd-charseq #xe8))
-  "Kannada Matras attached at the top side.")
-
-(defvar knd-glyph-bottom-matra
-  (append
-   (knd-charseq #xe4 #xe5)
-   (knd-charseq #xe7))
-  "Kannada Matras attached at the bottom.")
-
-(defvar knd-glyph-end-marks
-  (append
-   (knd-charseq #x25)
-   (knd-charseq #x4d #x4e)
-   (knd-charseq #xde))
-  "Kannada end marks: arkavattu, virama, au and diirghaa.")
-
-(defvar knd-glyph-bottom-modifier
-  (append
-   (knd-charseq #x51)
-   (knd-charseq #x55)
-   (knd-charseq #x58)
-   (knd-charseq #x5b)
-   (knd-charseq #x5d)
-   (knd-charseq #x60)
-   (knd-charseq #x63)
-   (knd-charseq #x67)
-   (knd-charseq #x69)
-   (knd-charseq #x6b)
-   (knd-charseq #x6f)
-   (knd-charseq #x72)
-   (knd-charseq #x75)
-   (knd-charseq #x78)
-   (knd-charseq #x7c)
-   (knd-charseq #xa1)
-   (knd-charseq #xa4)
-   (knd-charseq #xa7)
-   (knd-charseq #xaa)
-   (knd-charseq #xad)
-   (knd-charseq #xb0)
-   (knd-charseq #xb5)
-   (knd-charseq #xb9)
-   (knd-charseq #xbc #xbd)
-   (knd-charseq #xc0)
-   (knd-charseq #xc3)
-   (knd-charseq #xc7)
-   (knd-charseq #xca)
-   (knd-charseq #xcd)
-   (knd-charseq #xd0)
-   (knd-charseq #xd3)
-   (knd-charseq #xd6)
-   (knd-charseq #xd9)
-   (knd-charseq #xea #xef))
-  "Kannada Modifiers attached at the bottom.")
-
-(defvar knd-glyph-order
-  `((,knd-glyph-cv . 1)
-    (,knd-glyph-top-matra . 2)
-    (,knd-glyph-jha-tail . 3)
-    (,knd-glyph-right-modifier . 4)
-    (,knd-glyph-space . 5)
-    (,knd-glyph-bottom-modifier . 5)
-    (,knd-glyph-bottom-matra . 6)
-    (,knd-glyph-end-marks . 7)
-    ))
-
-(mapc
- (function (lambda (x)
-   (mapc
-     (function (lambda (y)
-       (put-char-code-property y 'composition-order (cdr x))))
-     (car x))))
-  knd-glyph-order)
-
-(defun kannada-compose-syllable-string (string)
-  (with-temp-buffer
-    (insert (decompose-string string))
-    (kannada-compose-syllable-region (point-min) (point-max))
-    (buffer-string)))
-
-;; kch
-(defun kannada-compose-syllable-region (from to)
-  "Compose kannada syllable in region FROM to TO."
-  (let ((glyph-str nil) (cons-num 0) (glyph-str-list nil)
-        (last-virama nil) (preceding-r nil) (last-modifier nil)
-        (last-char (char-before to)) match-str pos
-        glyph-block split-pos (conj nil) (rest nil))
-    (save-excursion
-      (save-restriction
-          ;;; *** char-to-glyph conversion ***
-        ;; Special rule 1. -- Last virama must be preserved.
-        (if (eq last-char ?$,1?M(B)
-            (progn
-              (setq last-virama t)
-              (narrow-to-region from (1- to)))
-          (narrow-to-region from to))
-        (goto-char (point-min))
-        ;; Special rule 2. -- preceding "r virama" must be modifier.
-        (when (looking-at "$,1?0?M(B.")
-          (setq preceding-r t)
-          (goto-char (+ 2 (point))))
-	;; remove conjunct consonants
-        (while (re-search-forward knd-char-glyph-regexp nil t)
-          (setq match-str (match-string 0))
-	  (if (and (string-match kannada-consonant match-str)
-		   (> cons-num 0))
-	      (progn
-		(setq conj (concat conj (gethash (match-string 0 match-str)
-						 knd-conjunct-glyph-hash)))
-		(setq match-str (replace-match "" t nil match-str))
-		(if (string-match "$,1?M(B" rest)
-		    (setq rest (replace-match "" t nil rest)))))
-	  (setq rest (concat rest match-str))
-	  ;; count the number of consonant-glyhs.
-	  (if (string-match kannada-consonant match-str)
-	      (setq cons-num (1+ cons-num))))
-        ;; translate the rest characters into glyphs
-	(setq pos 0)
-        (while (string-match knd-char-glyph-regexp rest pos)
-          (setq match-str (match-string 0 rest))
-	  (setq pos (match-end 0))
-	  (setq glyph-str
-		(concat glyph-str (gethash match-str knd-char-glyph-hash))))
-
-	(if conj (setq glyph-str (concat glyph-str conj)))
-        (if last-virama (setq glyph-str (concat glyph-str "$,45)(B"))
-	  (goto-char (point-min))
-	  (if (re-search-forward kannada-consonant-needs-twirl nil t)
-	      (progn
-		(setq match-str (match-string 0))
-		(setq glyph-str (concat glyph-str "$,44z(B")))))
-        ;; preceding-r must be attached
-        (if preceding-r
-              (setq glyph-str (concat glyph-str "$,43%(B")))
-          ;;; *** glyph-to-glyph conversion ***
-        (when (string-match knd-glyph-glyph-regexp glyph-str)
-          (setq glyph-str
-                (replace-match (gethash (match-string 0 glyph-str)
-                                        knd-glyph-glyph-hash)
-                               nil t glyph-str)))
-          ;;; *** glyph reordering ***
-        (while (setq split-pos (string-match "$,45)(B\\|.$" glyph-str))
-          (setq glyph-block (substring glyph-str 0 (1+ split-pos)))
-          (setq glyph-str (substring glyph-str (1+ split-pos)))
-          (setq
-           glyph-block
-               (sort (string-to-list glyph-block)
-                     (function (lambda (x y)
-                        (< (get-char-code-property x 'composition-order)
-                           (get-char-code-property y 'composition-order))))))
-          (setq glyph-str-list (nconc glyph-str-list glyph-block)))
-	  ;;; *** insert space glyphs for kerning ***
-	(if (> cons-num 0)
-	    (let ((curr glyph-str-list) (prev nil) (last-bott nil) bott co)
-	      (while curr
-		(setq co (get-char-code-property 
-				(car curr) 'composition-order)
-		      bott (or (eq co 5) (eq co 6)))
-		(if (and bott last-bott)
-		    (setcdr prev (cons ?$,44T(B curr)))
-		(setq last-bott bott prev curr curr (cdr curr)))))
-          ;; concatenate and attach reference-points.
-        (setq glyph-str
-              (cdr
-               (apply
-                'nconc
-                (mapcar
-                 (function (lambda (x)
-                   (list
-                    (or (get-char-code-property x 'reference-point)
-                    '(5 . 3) ;; default reference point.
-                     )
-                    x)))
-                 glyph-str-list))))))
-      (compose-region from to glyph-str)))
-
-(provide 'knd-util)
-
-;;; arch-tag: 78d32230-a960-46a5-b622-61ed6ffcf8fc
-;;; knd-util.el ends here
diff --git a/lisp/language/malayalam.el b/lisp/language/malayalam.el
deleted file mode 100644
index bb6312b82a0..00000000000
--- a/lisp/language/malayalam.el
+++ /dev/null
@@ -1,52 +0,0 @@
-;;; malayalam.el --- Support for Malayalam -*- coding: iso-2022-7bit; no-byte-compile: t -*-
-
-;; Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008
-;    Free Software Foundation, Inc.
-
-;; Maintainer:  KAWABATA, Taichi <kawabata@m17n.org>
-;; Keywords: multilingual, Indian, Malayalam
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-
-;; GNU Emacs is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
-;; Boston, MA 02110-1301, USA.
-
-;;; Commentary:
-
-;; This file defines language-info of Malayalam script.
-
-;;; Code:
-
-(set-language-info-alist
- "Malayalam" '((charset mule-unicode-0100-24ff indian-glyph )
-               ;;          indian-2-column 
-               ;; comment out later
-               ;;          )
-		(coding-system utf-8)
-		(coding-priority utf-8)
-		(input-method . "malayalam-itrans")
-		(features mlm-util)
-		(documentation . "\
-South Indian language Malayalam is supported in this language environment."))
- '("Indian"))
-
-;; For automatic composition.
-(set-char-table-range composition-function-table '(#x0d00 . #x0d7f)
-		      '(("[\x0D00-\x0D7F]+" . font-shape-text)))
-
-(provide 'malayalam)
-
-;;; arch-tag: 5f500e53-1e4f-4bb2-aa93-ad8736f0349f
-;;; malayalam.el ends here
diff --git a/lisp/language/mlm-util.el b/lisp/language/mlm-util.el
deleted file mode 100644
index c8944ee6b45..00000000000
--- a/lisp/language/mlm-util.el
+++ /dev/null
@@ -1,422 +0,0 @@
-;;; mlm-util.el --- support for composing malayalam characters  -*-coding: iso-2022-7bit;-*-
-
-;; Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008
-;;   Free Software Foundation, Inc.
-
-;; Maintainer:  KAWABATA, Taichi <kawabata@m17n.org>
-;; Keywords: multilingual, Malayalam
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-
-;; GNU Emacs is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
-;; Boston, MA 02110-1301, USA.
-
-;; Created: Feb. 11. 2003
-
-;;; Commentary:
-
-;; This file provides character(Unicode) to glyph(CDAC) conversion and
-;; composition of Malayalam script characters.
-
-;;; Code:
-
-;; Malayalam Composable Pattern
-;;    C .. Consonants
-;;    V .. Vowel
-;;    H .. Halant
-;;    M .. Matra
-;;    V .. Vowel
-;;    A .. Anuswar
-;;    D .. Chandrabindu
-;;    (N .. Zerowidth Non Joiner)
-;;    (J .. Zerowidth Joiner.  )
-;; 1. vowel
-;;  V(A|visargam)?
-;; 2. syllable : maximum of 5 consecutive consonants.  (e.g. kartsnya)
-;;  ((CH)?(CH)?(CH)?CH)?C(H|M?(A|D)?)?
-
-(defconst malayalam-consonant
-  "[$,1@5(B-$,1@Y(B]")
-
-(defconst malayalam-composable-pattern
-  (concat
-   "\\([$,1@%(B-$,1@4(B][$,1@"(B]?\\)\\|$,1@#(B"
-   "\\|\\("
-   "\\(?:\\(?:[$,1@5(B-$,1@Y(B]$,1@m(B\\)?\\(?:[$,1@5(B-$,1@Y(B]$,1@m(B\\)?\\(?:[$,1@5(B-$,1@Y(B]$,1@m(B\\)?[$,1@5(B-$,1@Y(B]$,1@m(B\\)?"
-   "[$,1@5(B-$,1@Y(B]\\(?:$,1@m(B\\|[$,1@^(B-$,1@c@f@g@h@j@j@k@l(B]?[$,1@"@m(B]?\\)?"
-   "\\)")
-  "Regexp matching a composable sequence of Malayalam characters.")
-
-;;;###autoload
-(defun malayalam-compose-region (from to)
-  (interactive "r")
-  (save-excursion
-    (save-restriction
-      (narrow-to-region from to)
-      (goto-char (point-min))
-      (while (re-search-forward malayalam-composable-pattern nil t)
-	(malayalam-compose-syllable-region (match-beginning 0)
-					    (match-end 0))))))
-(defun malayalam-compose-string (string)
-  (with-temp-buffer
-    (insert (decompose-string string))
-    (malayalam-compose-region (point-min) (point-max))
-    (buffer-string)))
-
-;;;###autoload
-(defun malayalam-post-read-conversion (len)
-  (save-excursion
-    (save-restriction
-      (let ((buffer-modified-p (buffer-modified-p)))
-	(narrow-to-region (point) (+ (point) len))
-	(malayalam-compose-region (point-min) (point-max))
-	(set-buffer-modified-p buffer-modified-p)
-	(- (point-max) (point-min))))))
-
-(defun malayalam-range (from to)
-  "Make the list of the integers of range FROM to TO."
-  (let (result)
-    (while (<= from to) (setq result (cons to result) to (1- to))) result))
-
-(defun malayalam-regexp-of-hashtbl-keys (hashtbl)
-  "Return a regular expression that matches all keys in hashtable HASHTBL."
-  (let ((max-specpdl-size 1000))
-    (regexp-opt
-     (sort
-      (let (dummy)
-	(maphash (function (lambda (key val) (setq dummy (cons key dummy)))) hashtbl)
-	dummy)
-      (function (lambda (x y) (> (length x) (length y))))))))
-
-
-;;;###autoload
-(defun malayalam-composition-function (pos  &optional string)
-  "Compose Malayalam characters after the position POS.
-If STRING is not nil, it is a string, and POS is an index to the string.
-In this case, compose characters after POS of the string."
-  (if string
-      (if auto-compose-current-font
-	  (if (eq (string-match "[$,1@ (B-$,1A?(B]+" pos) pos)
-	      (or (font-shape-text 0 (match-end 0) auto-compose-current-font
-				   string)
-		  pos)))
-    (goto-char pos)
-    (if auto-compose-current-font
-	(if (looking-at  "[$,1@ (B-$,1A?(B]+")
-	    (or (font-shape-text pos (match-end 0) auto-compose-current-font)
-		pos)
-	  (if (looking-at malayalam-composable-pattern)
-	      (prog1 (match-end 0)
-		(malayalam-compose-syllable-region pos (match-end 0))))))))
-
-;; Notes on conversion steps.
-
-;; 1. chars to glyphs
-;;
-;; Simple replacement of characters to glyphs is done.
-
-;; 2. glyphs reordering.
-;;
-;; Two special reordering rule takes place.
-;; a. following "$,46[(B" goes to the front.
-;; b. following "$,46S6S(B", "$,46S(B" or "$,46T(B" goes to the front.
-;; This reordering occurs only to the last cluster of consonants.
-;; Preceding consonants with halant characters are not affected.
-
-;; 3. Composition.
-;;
-;; left modifiers will be attached at the left.
-;; others will be attached right.
-
-(defvar mlm-char-glyph
-  '(;; various signs
-    ("$,1@"(B" . "$,46W(B")
-    ("$,1@#(B" . "$,46X(B")
-    ;; Independent Vowels
-    ("$,1@%(B" . "$,46!(B")
-    ("$,1@&(B" . "$,46"(B")
-    ("$,1@'(B" . "$,46#(B")
-    ("$,1@((B" . "$,46#6U(B")
-    ("$,1@)(B" . "$,46$(B")
-    ("$,1@*(B" . "$,46$6U(B")
-    ("$,1@+(B" . "$,46%(B")
-    ("$,1@,(B" . "nil") ;; not in present use, not supported.
-    ("$,1@.(B" . "$,46&(B")
-    ("$,1@/(B" . "$,46'(B")
-    ("$,1@0(B" . "$,46S6&(B")
-    ("$,1@2(B" . "$,46((B")
-    ("$,1@3(B" . "$,46(6M(B")
-    ("$,1@4(B" . "$,46(6U(B")
-    ;; Consonants
-    ("$,1@5(B" . "$,46)(B")
-    ("$,1@5@m@5(B" . "$,47!(B")
-    ("$,1@5@m@S(B" . "$,47"(B")
-    ("$,1@5@m@W(B" . "$,47#(B")
-    ("$,1@5@m@?(B" . "$,47N(B")
-    ("$,1@5@m@D(B" . "$,47`(B")
-    ("$,1@5@a(B" . "$,47f(B")
-    ("$,1@5@m@5@a(B" . "$,47g(B")
-    ("$,1@5@a(B" . "$,47f(B")
-    ("$,1@5@m@5@a(B" . "$,47g(B")
-
-    ("$,1@6(B" . "$,46*(B")
-
-    ("$,1@7(B" . "$,46+(B")
-    ("$,1@7@m@7(B" . "$,47$(B")
-    ("$,1@7@m@R(B" . "$,47%(B")
-    ("$,1@7@m@N(B" . "$,47\(B")
-    ("$,1@7@m@H(B" . "$,47a(B")
-
-    ("$,1@8(B" . "$,46,(B")
-
-    ("$,1@9(B" . "$,46-(B")
-    ("$,1@9@m@5(B" . "$,47&(B")
-    ("$,1@9@m@9(B" . "$,47'(B")
-    ("$,1@9@m@5@a(B" . "$,47h(B")
-
-    ("$,1@:(B" . "$,46.(B")
-    ("$,1@:@m@:(B" . "$,47((B") ;; duplicate
-    ("$,1@:@m@;(B" . "$,47Q(B")
-
-    ("$,1@;(B" . "$,46/(B")
-
-    ("$,1@<(B" . "$,460(B")
-    ("$,1@<@m@<(B" . "$,47V(B")
-    ("$,1@<@m@>(B" . "$,47Z(B")
-
-    ("$,1@=(B" . "$,461(B")
-
-    ("$,1@>(B" . "$,462(B")
-    ("$,1@>@m@:(B" . "$,47)(B")
-    ("$,1@>@m@>(B" . "$,47*(B")
-
-    ("$,1@?(B" . "$,463(B")
-    ("$,1@?@m@?(B" . "$,47+(B")
-
-    ("$,1@@(B" . "$,464(B")
-    ("$,1@A(B" . "$,465(B")
-    ("$,1@A@m@A(B" . "$,47M(B")
-    ("$,1@B(B" . "$,466(B")
-
-    ("$,1@C(B" . "$,467(B")
-    ("$,1@C@a@m(B" . "$,47,(B") ;; half consonant
-    ("$,1@C@m@?(B" . "$,47-(B")
-    ("$,1@C@m@C(B" . "$,47.(B")
-    ("$,1@C@m@N(B" . "$,47W(B")
-    ("$,1@C@m@A(B" . "$,47^(B")
-    ("$,1@C@a(B" . "$,47i(B")
-
-    ("$,1@D(B" . "$,468(B")
-    ("$,1@D@m@D(B" . "$,47/(B")
-    ("$,1@D@m@E(B" . "$,470(B")
-    ("$,1@D@m@X(B" . "$,47U(B")
-    ("$,1@D@m@M(B" . "$,47[(B")
-    ("$,1@D@m@N(B" . "$,47_(B")
-
-    ("$,1@E(B" . "$,469(B")
-
-    ("$,1@F(B" . "$,46:(B")
-    ("$,1@F@m@F(B" . "$,471(B")
-    ("$,1@F@m@G(B" . "$,472(B")
-
-    ("$,1@G(B" . "$,46;(B")
-
-    ("$,1@H(B" . "$,46<(B")
-    ("$,1@H@a@m(B" . "$,473(B") ;; half consonant
-    ("$,1@H@m@D(B" . "$,474(B")
-    ("$,1@H@m@F(B" . "$,475(B")
-    ("$,1@H@m@H(B" . "$,476(B")
-    ("$,1@H@m@N(B" . "$,477(B")
-    ("$,1@H@m@G(B" . "$,47T(B")
-    ("$,1@H@m@E(B" . "$,47Y(B")
-    ("$,1@H@m@Q(B" . "$,47b(B")
-    ("$,1@H@a(B" . "$,47k(B")
-    ("$,1@H@m@H@a(B" . "$,47l(B")
-
-    ("$,1@J(B" . "$,46=(B")
-    ("$,1@J@m@J(B" . "$,478(B") ;; duplicate
-    ("$,1@J@m@R(B" . "$,479(B") ;; lakar
-
-    ("$,1@K(B" . "$,46>(B")
-
-    ("$,1@L(B" . "$,46?(B")
-    ("$,1@L@m@L(B" . "$,47:(B") ;; duplicate
-    ("$,1@L@m@R(B" . "$,47;(B") ;; lakar
-    ("$,1@L@m@G(B" . "$,47O(B")
-    ("$,1@L@m@F(B" . "$,47P(B")
-
-    ("$,1@M(B" . "$,46@(B")
-
-    ("$,1@N(B" . "$,46A(B")
-    ("$,1@N@m@J(B" . "$,47<(B")
-    ("$,1@N@m@N(B" . "$,47=(B")
-    ("$,1@N@m@R(B" . "$,47>(B") ;; lakar
-
-    ("$,1@O(B" . "$,46B(B")
-    ("$,1@O@m@O(B" . "$,47?(B") ;; duplicate
-    ("$,1@O@m@5@m@5(B" . "$,47m(B")
-
-    ("$,1@P(B" . "$,46C(B")
-    ("$,1@P@a@m(B" . "$,47@(B")
-    ("$,1@P@a(B" . "$,47j(B")
-
-    ("$,1@Q(B" . "$,46D(B")
-    ("$,1@Q@m(B" . "$,47@(B") ;; same glyph as "$,1@P@m(B"
-    ("$,1@Q@a@m(B" . "$,47@(B") ;; same glyph as "$,1@P@m(B"
-    ;;("$,1@Q@m@Q(B" . "$,47A(B")
-    ("$,1@Q@m@Q(B" . "$,47d(B")
-
-    ("$,1@R(B" . "$,46E(B")
-    ("$,1@R@a@m(B" . "$,47B(B")
-    ("$,1@R@m@R(B" . "$,47C(B") ;; lakar
-    ("$,1@R@m@J(B" . "$,47e(B")
-
-    ("$,1@S(B" . "$,46F(B")
-    ("$,1@S@a@m(B" . "$,47D(B")
-    ("$,1@S@m@S(B" . "$,47E(B")
-
-    ("$,1@T(B" . "$,46G(B")
-
-    ("$,1@U(B" . "$,46H(B")
-    ("$,1@U@m@U(B" . "$,47F(B")
-
-    ("$,1@V(B" . "$,46I(B")
-    ("$,1@V@m@R(B" . "$,47G(B")
-    ("$,1@V@m@V(B" . "$,47H(B")
-    ("$,1@V@m@:(B" . "$,47](B")
-
-    ("$,1@W(B" . "$,46J(B")
-    ("$,1@W@m@?(B" . "$,47c(B")
-
-    ("$,1@X(B" . "$,46K(B")
-    ("$,1@X@m@R(B" . "$,47I(B")
-    ("$,1@X@m@X(B" . "$,47J(B")
-    ("$,1@X@m@Q@m@Q(B" . "$,47L(B")
-    ("$,1@X@m@E(B" . "$,47X(B")
-
-    ("$,1@Y(B" . "$,46L(B")
-    ("$,1@Y@m@R(B" . "$,47K(B")
-    ("$,1@Y@m@N(B" . "$,47R(B")
-    ("$,1@Y@m@H(B" . "$,47S(B")
-
-    ;; Dependent vowel signs
-    ("$,1@^(B" . "$,46M(B")
-    ("$,1@_(B" . "$,46N(B")
-    ("$,1@`(B" . "$,46O(B")
-    ("$,1@a(B" . "$,46P(B")
-    ("$,1@b(B" . "$,46Q(B")
-    ("$,1@c(B" . "$,46R(B")
-    ("$,1@f(B" . "$,46S(B")
-    ("$,1@g(B" . "$,46T(B")
-    ("$,1@h(B" . "$,46S6S(B")
-    ("$,1@j(B" . "$,46S6M(B")
-    ("$,1@k(B" . "$,46T6M(B")
-    ("$,1@l(B" . "$,46U(B")
-    ;; Various signs
-    ("$,1@m(B" . "$,46V(B")
-    ("$,1@m@O(B" . "$,46Y(B") ;; yakar
-    ("$,1@m@O@a(B" . "$,46\(B") ;; yakar + u
-    ("$,1@m@O@b(B" . "$,46](B") ;; yakar + uu
-    ("$,1@m@U(B" . "$,46Z(B") ;; vakar modifier
-    ("$,1@m@P(B" . "$,46[(B") ;; rakar modifier is the same to rra modifier.
-    ("$,1@m@P@m(B" . "$,46R(B") ;; halant + rakar + halant
-    ("$,1@m@Q(B" . "$,46[(B") ;; rrakar modifier
-    ("$,1@m@Q@m(B" . "$,46R(B") ;; halant + rrakar + halant
-    ("$,1@m@m(B" . "$,46V(B") ;; double omission sign to stop forming half consonant.
-    ("$,1@w(B" . "$,46U(B") ;; not in present use, already at 0D4C.
-    ))
-
-(defvar mlm-char-glyph-hash
-  (let* ((hash (make-hash-table :test 'equal)))
-    (mapc (function (lambda (x) (puthash (car x) (cdr x) hash)))
-	  mlm-char-glyph)
-    hash))
-
-(defvar mlm-char-glyph-regexp
-  (malayalam-regexp-of-hashtbl-keys mlm-char-glyph-hash))
-
-;; Malayalam languages needed to be reordered in a complex mannar.
-
-(defvar mlm-consonants
-  (concat
-  "$,46)6*6+6,6-6.6/606162636465666768696:6;6<6=6>6?6@6A6B6C6D6E6F6G6H6I6J6K6L(B"
-  "$,47!7"7#7$7%7&7'7(7)7*7+7,7-7.7/707172737475767778797:7;7<7=7>7?7@7A7B7C7D7E7F7G7H7I7J7K7L7M7N7O7P7Q7R7S7T7U7V7W7X7Y7Z7[7\7]7^7_7`7a7b7c7d7e(B"
-  ))
-
-(defvar mlm-consonants-regexp
-  (concat "\\($,46[(B?[" mlm-consonants "][$,46Y6Z(B]?\\)"))
-
-(defvar mlm-glyph-reorder-key-glyphs "[$,46[6S6T(B]")
-
-(defvar mlm-glyph-reordering-regexp-list
-  `((,(concat "\\([" mlm-consonants "][$,46Y6Z(B]?\\)$,46[(B") . "$,46[(B\\1")
-    (,(concat mlm-consonants-regexp "$,46S6S(B") . "$,46S6S(B\\1")
-    (,(concat mlm-consonants-regexp "$,46S(B") . "$,46S(B\\1")
-    (,(concat mlm-consonants-regexp "$,46T(B") . "$,46T(B\\1")))
-
-(defun malayalam-compose-syllable-string (string)
-  (with-temp-buffer
-    (insert (decompose-string string))
-    (malayalam-compose-syllable-region (point-min) (point-max))
-    (buffer-string)))
-
-(defun malayalam-compose-syllable-region (from to)
-  "Compose malayalam syllable in region FROM to TO."
-  (let (glyph-str
-	match-str
-	glyph-reorder-regexps
-	glyph-reorder-replace
-	glyph-reorder-regexp)
-    (save-excursion
-      (save-restriction
-        (narrow-to-region from to)
-        (goto-char (point-min))
-        ;; char-glyph-conversion
-        (while (not (eobp))
-	  (if (looking-at mlm-char-glyph-regexp)
-	      (progn
-		(setq match-str (match-string 0)
-		      glyph-str
-		      (concat glyph-str
-			      (gethash match-str mlm-char-glyph-hash)))
-		(goto-char (match-end 0)))
-	    (setq glyph-str (concat glyph-str (string (following-char))))
-	    (forward-char 1)))
-        (when (string-match mlm-glyph-reorder-key-glyphs glyph-str)
-          ;; glyph reordering
-          (setq glyph-reorder-regexps mlm-glyph-reordering-regexp-list)
-          (while glyph-reorder-regexps
-            (setq glyph-reorder-regexp (caar glyph-reorder-regexps))
-            (setq glyph-reorder-replace (cdar glyph-reorder-regexps))
-            (setq glyph-reorder-regexps (cdr glyph-reorder-regexps))
-            (if (string-match glyph-reorder-regexp glyph-str)
-                (setq glyph-str
-                      (replace-match glyph-reorder-replace nil nil
-                                     glyph-str)))))
-        ;; concatenate and attach reference-points.
-        (setq glyph-str
-              (cdr
-               (apply
-                'nconc
-                (mapcar
-                 (function
-                  (lambda (x) (list '(5 . 3) x))) ;; default ref. point.
-                 glyph-str))))
-        (compose-region from to glyph-str)))))
-
-(provide 'mlm-util)
-
-;;; arch-tag: 7f25ee67-8f9d-49f2-837b-35c412c00eba
-;;; devan-util.el ends here
diff --git a/lisp/language/tamil.el b/lisp/language/tamil.el
deleted file mode 100644
index c66f572fb3c..00000000000
--- a/lisp/language/tamil.el
+++ /dev/null
@@ -1,48 +0,0 @@
-;;; tamil.el --- Support for Tamil -*- coding: iso-2022-7bit; no-byte-compile: t -*-
-
-;; Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008
-;;   Free Software Foundation, Inc.
-
-;; Maintainer: KAWABATA, Taichi <batta@beige.ocn.ne.jp>
-;; Keywords: multilingual, Indian, Tamil
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-
-;; GNU Emacs is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
-;; Boston, MA 02110-1301, USA.
-
-;;; Commentary:
-
-;; This file defines language-info of Tamil script.
-
-;;; Code:
-
-(set-language-info-alist
- "Tamil" '((charset mule-unicode-0100-24ff indian-glyph )
-		(coding-system utf-8)
-		(coding-priority utf-8)
-		(input-method . "tamil-itrans")
-		(features tml-util)
-		(documentation . "\
-South Indian Language Tamil supported in this language environment."))
- '("Indian"))
-
-;; For automatic composition.
-(set-char-table-range composition-function-table '(#x0b80 . #x0bff)
-		      '(("[\x0B80-\x0BFF]+" . font-shape-text)))
-(provide 'tamil)
-
-;;; arch-tag: 2201ac78-7d1e-4674-9bcb-9923c7a2bd9c
-;;; tamil.el ends here
diff --git a/lisp/language/tml-util.el b/lisp/language/tml-util.el
deleted file mode 100644
index 6232a444a94..00000000000
--- a/lisp/language/tml-util.el
+++ /dev/null
@@ -1,380 +0,0 @@
-;;; tml-util.el --- support for composing tamil characters  -*-coding: iso-2022-7bit;-*-
-
-;; Copyright (C) 2001, 2003, 2004, 2005, 2006, 2007, 2008
-;;   Free Software Foundation, Inc.
-
-;; Maintainer: KAWABATA, Taichi <kawabata@m17n.org>
-;; Keywords: multilingual, Indian, Tamil
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-
-;; GNU Emacs is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
-;; Boston, MA 02110-1301, USA.
-
-;; Created: Nov. 08. 2002
-
-;;; Commentary:
-
-;; This file provides character(Unicode) to glyph(CDAC) conversion and
-;; composition of Tamil script characters.
-
-;;; Code:
-
-;; Tamil Composable Pattern
-;;    C .. Consonants
-;;    V .. Vowel
-;;    H .. Pulli
-;;    M .. Matra
-;;    V .. Vowel
-;;    A .. Anuswar
-;;    D .. Chandrabindu
-;; 1. vowel
-;;  V
-;; 2. syllable : only ligature-formed pattern forms composition.
-;;  (CkHCs|C)(H|M)?
-;; 3. sri special
-;;  (CsHCrVi)
-
-;;  oririnal
-;;  ((CH)?(CH)?(CH)?CH)?C(H|M?(A|D)?)?
-
-(defconst tamil-consonant
-  "[$,1<5(B-$,1<Y(B]")
-
-(defconst tamil-composable-pattern
-  (concat
-   "\\([$,1<%(B-$,1<4(B]\\)\\|"
-   "[$,1<"<#(B]\\|" ;; vowel modifier considered independent
-   "\\(\\(?:\\(?:$,1<5<m<W(B\\)\\|[$,1<5(B-$,1<Y(B]\\)[$,1<m<^(B-$,1<l(B]?\\)\\|"
-   "\\($,1<W<m<P<`(B\\)")
-  "Regexp matching a composable sequence of Tamil characters.")
-
-;;;###autoload
-(defun tamil-compose-region (from to)
-  (interactive "r")
-  (save-excursion
-    (save-restriction
-      (narrow-to-region from to)
-      (goto-char (point-min))
-      (while (re-search-forward tamil-composable-pattern nil t)
-	(tamil-compose-syllable-region (match-beginning 0)
-					    (match-end 0))))))
-(defun tamil-compose-string (string)
-  (with-temp-buffer
-    (insert (decompose-string string))
-    (tamil-compose-region (point-min) (point-max))
-    (buffer-string)))
-
-;;;###autoload
-(defun tamil-post-read-conversion (len)
-  (save-excursion
-    (save-restriction
-      (let ((buffer-modified-p (buffer-modified-p)))
-	(narrow-to-region (point) (+ (point) len))
-	(tamil-compose-region (point-min) (point-max))
-	(set-buffer-modified-p buffer-modified-p)
-	(- (point-max) (point-min))))))
-
-(defun tamil-range (from to)
-  "Make the list of the integers of range FROM to TO."
-  (let (result)
-    (while (<= from to) (setq result (cons to result) to (1- to))) result))
-
-(defun tamil-regexp-of-hashtbl-keys (hashtbl)
-  "Return a regular expression that matches all keys in hashtable HASHTBL."
-  (let ((max-specpdl-size 1000))
-    (regexp-opt
-     (sort
-      (let (dummy)
-	(maphash (function (lambda (key val) (setq dummy (cons key dummy)))) hashtbl)
-	dummy)
-      (function (lambda (x y) (> (length x) (length y))))))))
-
-
-;; Notes on conversion steps.
-
-;; 1. chars to glyphs
-;; Simple replacement of characters to glyphs is done.
-
-;; 2. glyphs reordering.
-;; following "$,4)j(B", "$,4)k(B", "$,4)l(B" goes to the front.
-
-;; 3. glyphs to glyphs
-;; reordered vowels are ligatured to consonants.
-
-;; 4. Composition.
-;; left modifiers will be attached at the left.
-;; others will be attached right.
-
-(defvar tml-char-glyph
-  '(;; various signs
-    ("$,1<"(B" . "$,4)b(B")	;; not good
-    ("$,1<#(B" . "$,4*G(B")
-    ;; Independent Vowels
-    ("$,1<%(B" . "$,4*<(B")
-    ("$,1<&(B" . "$,4*=(B")
-    ("$,1<'(B" . "$,4*>(B")
-    ("$,1<((B" . "$,4*?(B")
-    ("$,1<)(B" . "$,4*@(B")
-    ("$,1<*(B" . "$,4*A(B")
-    ("$,1<.(B" . "$,4*B(B")
-    ("$,1</(B" . "$,4*C(B")
-    ("$,1<0(B" . "$,4*D(B")
-    ("$,1<2(B" . "$,4*E(B")
-    ("$,1<3(B" . "$,4*F(B")
-    ("$,1<4(B" . "$,4*E*W(B")
-    ;; Consonants
-    ("$,1<5<m<W<m(B" . "$,4):(B")	; ks.
-    ("$,1<5<m<W(B" . "$,4*^(B")	; ks
-    ("$,1<5(B" . "$,4*H(B")
-
-    ("$,1<9(B" . "$,4*I(B")
-    ("$,1<:(B" . "$,4*J(B")
-    ("$,1<<(B" . "$,4*\(B")
-    ("$,1<<<m(B" . "$,4)8(B")
-    ("$,1<>(B" . "$,4*K(B")
-    ("$,1<?(B" . "$,4*L(B")
-    ("$,1<C(B" . "$,4*M(B")
-    ("$,1<D(B" . "$,4*N(B")
-    ("$,1<H(B" . "$,4*O(B")
-    ("$,1<I(B" . "$,4*Y(B")
-    ("$,1<I<m(B" . "$,4)a(B")
-    ("$,1<J(B" . "$,4*P(B")
-    ("$,1<N(B" . "$,4*Q(B")
-    ("$,1<O(B" . "$,4*R(B")
-    ("$,1<P(B" . "$,4*S(B")
-    ("$,1<Q(B" . "$,4*X(B")
-    ("$,1<R(B" . "$,4*T(B")
-    ("$,1<S(B" . "$,4*W(B")
-    ("$,1<T(B" . "$,4*V(B")
-    ("$,1<U(B" . "$,4*U(B")
-    ("$,1<W(B" . "$,4*[(B")
-    ("$,1<W<m(B" . "$,4)7(B")
-    ("$,1<W<m<P<`(B" . "$,4*_(B")
-    ("$,1<X(B" . "$,4*Z(B")
-    ("$,1<X<m(B" . "$,4)6(B")
-    ("$,1<Y(B" . "$,4*](B")
-    ("$,1<Y<m(B" . "$,4)9(B")
-
-    ;; Dependent vowel signs
-    ("$,1<^(B" . "$,4)c(B")
-    ("$,1<_(B" . "$,4)d(B")
-    ("$,1<`(B" . "$,4)f(B")
-    ("$,1<a(B" . "$,4)g(B")
-    ("$,1<b(B" . "$,4)h(B")
-    ("$,1<f(B" . "$,4)j(B")
-    ("$,1<g(B" . "$,4)k(B")
-    ("$,1<h(B" . "$,4)l(B")
-    ("$,1<j(B" . "$,4)j)c(B")
-    ("$,1<k(B" . "$,4)k)c(B")
-    ("$,1<l(B" . "$,4)j*W(B")
-
-    ;; Various signs
-    ("$,1<m(B" . "$,4)b(B")
-    ("$,1<w(B" . "nil") ;; not supported?
-    ))
-
-(defvar tml-char-glyph-hash
-  (let* ((hash (make-hash-table :test 'equal)))
-    (mapc (function (lambda (x) (puthash (car x) (cdr x) hash)))
-	  tml-char-glyph)
-    hash))
-
-(defvar tml-char-glyph-regexp
-  (tamil-regexp-of-hashtbl-keys tml-char-glyph-hash))
-
-;; Tamil languages needed to be reordered.
-
-(defvar tml-consonants-regexp
-  "[$,4*H*^*I*J*\*K*L*M*N*O*Y*P*Q*R*S*X*T*W*V*U*[*Z*](B]")
-
-(defvar tml-glyph-reorder-key-glyphs "[$,4)j)k)l(B]")
-
-(defvar tml-glyph-reordering-regexp-list
-  (cons
-   (concat "\\(" tml-consonants-regexp "\\)\\([$,4)j)k)l(B]\\)") "\\2\\1"))
-
-;; Tamil vowel modifiers to be ligatured.
-(defvar tml-glyph-glyph
-  '(
-    ("$,4*H)d(B" . "$,4(a(B")	; ki
-    ("$,4*^)d(B" . "$,4(v(B")	; ksi
-    ("$,4*^)f(B" . "$,4)2(B")	; ksi~
-    ("$,4*I)d(B" . "$,4(b(B")	; n^i
-    ("$,4*J)d(B" . "$,4(c(B")	; ci
-    ("$,4*K)d(B" . "$,4(d(B")	; n~i
-    ("$,4*L)d(B" . "$,4)n(B")	; t.i
-    ("$,4*M)d(B" . "$,4(e(B")	; n.i
-    ("$,4*N)d(B" . "$,4(f(B")	; ti
-    ("$,4*O)d(B" . "$,4(g(B")	; ni
-    ("$,4*P)d(B" . "$,4(h(B")	; pi
-    ("$,4*Q)d(B" . "$,4(i(B")	; mi
-    ("$,4*R)d(B" . "$,4(j(B")	; yi
-    ("$,4*S)d(B" . "$,4(k(B")	; ri
-    ("$,4*T)d(B" . "$,4(l(B")	; li
-    ("$,4*U)d(B" . "$,4(m(B")	; vi
-    ("$,4*V)d(B" . "$,4(n(B")	; l_i
-    ("$,4*W)d(B" . "$,4(o(B")	; l.i
-    ("$,4*X)d(B" . "$,4(p(B")	; r_i
-    ("$,4*Y)d(B" . "$,4(q(B")	; n_i
-    ("$,4*Z)d(B" . "$,4(r(B")	; si
-    ("$,4*[)d(B" . "$,4(s(B")	; s'i
-    ("$,4*\)d(B" . "$,4(t(B")	; ji
-    ("$,4*])d(B" . "$,4(u(B")	; hi
-
-    ("$,4*H)f(B" . "$,4(w(B")	; ki~
-    ("$,4*I)f(B" . "$,4(x(B")	; n^i~
-    ("$,4*J)f(B" . "$,4(y(B")	; ci~
-    ("$,4*K)f(B" . "$,4(z(B")	; n~i~
-    ("$,4*L)f(B" . "$,4)o(B")	; t.i~
-    ("$,4*M)f(B" . "$,4)!(B")	; n.i~
-    ("$,4*N)f(B" . "$,4)"(B")	; ti~
-    ("$,4*O)f(B" . "$,4)#(B")	; ni~
-    ("$,4*P)f(B" . "$,4)$(B")	; pi~
-    ("$,4*Q)f(B" . "$,4)%(B")	; mi~
-    ("$,4*R)f(B" . "$,4)&(B")	; yi~
-    ("$,4*S)f(B" . "$,4)'(B")	; ri~
-    ("$,4*T)f(B" . "$,4)((B")	; li~
-    ("$,4*U)f(B" . "$,4))(B")	; vi~
-    ("$,4*V)f(B" . "$,4)*(B")	; l_i~
-    ("$,4*W)f(B" . "$,4)+(B")	; l.i~
-    ("$,4*X)f(B" . "$,4),(B")	; r_i~
-    ("$,4*Y)f(B" . "$,4)-(B")	; n_i~
-    ("$,4*Z)f(B" . "$,4).(B")	; si~
-    ("$,4*[)f(B" . "$,4)/(B")	; s'i~
-    ("$,4*\)f(B" . "$,4)0(B")	; ji~
-    ("$,4*])f(B" . "$,4)1(B")	; hi~
-
-    ("$,4*H)g(B" . "$,4)p(B")	; ku
-    ("$,4*I)g(B" . "$,4)q(B")	; n^u
-    ("$,4*J)g(B" . "$,4)r(B")	; cu
-    ("$,4*K)g(B" . "$,4)s(B")	; n~u
-    ("$,4*L)g(B" . "$,4)t(B")	; t.u
-    ("$,4*M)g(B" . "$,4)u(B")	; n.u
-    ("$,4*N)g(B" . "$,4)v(B")	; tu
-    ("$,4*O)g(B" . "$,4)x(B")	; nu
-    ("$,4*P)g(B" . "$,4)y(B")	; pu
-    ("$,4*Q)g(B" . "$,4)z(B")	; mu
-    ("$,4*R)g(B" . "$,4){(B")	; yu
-    ("$,4*S)g(B" . "$,4)|(B")	; ru
-    ("$,4*T)g(B" . "$,4)}(B")	; lu
-    ("$,4*U)g(B" . "$,4)~(B")	; vu
-    ("$,4*V)g(B" . "$,4)(B")	; l_u
-    ("$,4*W)g(B" . "$,4* (B")	; l.u
-    ("$,4*X)g(B" . "$,4*!(B")	; r_u
-    ("$,4*Y)g(B" . "$,4*"(B")	; n_u
-
-    ("$,4*H)h(B" . "$,4*#(B")	; ku~
-    ("$,4*I)h(B" . "$,4*$(B")	; n^u~
-    ("$,4*J)h(B" . "$,4*%(B")	; cu~
-    ("$,4*K)h(B" . "$,4*&(B")	; n~u~
-    ("$,4*L)h(B" . "$,4*'(B")	; t.u~
-    ("$,4*M)h(B" . "$,4*((B")	; n.u~
-    ("$,4*N)h(B" . "$,4*)(B")	; tu~
-    ("$,4*O)h(B" . "$,4*+(B")	; nu~
-    ("$,4*P)h(B" . "$,4*,(B")	; pu~
-    ("$,4*Q)h(B" . "$,4*-(B")	; mu~
-    ("$,4*R)h(B" . "$,4*.(B")	; yu~
-    ("$,4*S)h(B" . "$,4*/(B")	; ru~
-    ("$,4*T)h(B" . "$,4*6(B")	; lu~
-    ("$,4*U)h(B" . "$,4*7(B")	; vu~
-    ("$,4*V)h(B" . "$,4*8(B")	; l_u~
-    ("$,4*W)h(B" . "$,4*9(B")	; l.u~
-    ("$,4*X)h(B" . "$,4*:(B")	; r_u~
-    ("$,4*Y)h(B" . "$,4*;(B")	; n_u~
-    ))
-
-(defvar tml-glyph-glyph-hash
-  (let* ((hash (make-hash-table :test 'equal)))
-    (mapc (function (lambda (x) (puthash (car x) (cdr x) hash)))
-	  tml-glyph-glyph)
-    hash))
-
-(defvar tml-glyph-glyph-regexp
-  (tamil-regexp-of-hashtbl-keys tml-glyph-glyph-hash))
-
-(defun tamil-compose-syllable-string (string)
-  (with-temp-buffer
-    (insert (decompose-string string))
-    (tamil-compose-syllable-region (point-min) (point-max))
-    (buffer-string)))
-
-(defun tamil-compose-syllable-region (from to)
-  "Compose tamil syllable in region FROM to TO."
-  (let (glyph-str match-str glyph-reorder-regexps)
-    (save-excursion
-      (save-restriction
-        (narrow-to-region from to)
-        (goto-char (point-min))
-        ;; char-glyph-conversion
-        (while (not (eobp))
-	  (if (looking-at tml-char-glyph-regexp)
-	      (progn
-		(setq match-str (match-string 0)
-		      glyph-str
-		      (concat glyph-str
-			      (gethash match-str tml-char-glyph-hash)))
-		(goto-char (match-end 0)))
-	    (setq glyph-str (concat glyph-str (string (following-char))))
-	    (forward-char 1)))
-	(or glyph-str
-	    (aset glyph-str 0 (following-char)))
-        ;; glyph reordering
-        (when (string-match tml-glyph-reorder-key-glyphs glyph-str)
-          (if (string-match (car tml-glyph-reordering-regexp-list)
-                            glyph-str)
-              (setq glyph-str
-                    (replace-match (cdr tml-glyph-reordering-regexp-list)
-                                   nil nil glyph-str))))
-        ;; glyph-glyph-conversion
-        (when (string-match tml-glyph-glyph-regexp glyph-str)
-          (setq match-str (match-string 0 glyph-str))
-          (setq glyph-str 
-                (replace-match (gethash match-str tml-glyph-glyph-hash)
-                               nil nil glyph-str)))
-        ;; concatenate and attach reference-points.
-        (setq glyph-str
-              (cdr
-               (apply
-                'nconc
-                (mapcar
-                 (function 
-                  (lambda (x) (list '(5 . 3) x))) ;; default ref. point.
-                 glyph-str))))
-        (compose-region from to glyph-str)))))
-
-;;;###autoload
-(defun tamil-composition-function (pos  &optional string)
-  "Compose Tamil characters after the position POS.
-If STRING is not nil, it is a string, and POS is an index to the string.
-In this case, compose characters after POS of the string."
-  (if string
-      (if auto-compose-current-font
-	  (if (eq (string-match "[$,1< (B-$,1=?(B]+" pos) pos)
-	      (or (font-shape-text 0 (match-end 0) auto-compose-current-font
-				   string)
-		  pos)))
-    (goto-char pos)
-    (if auto-compose-current-font
-	(if (looking-at "[$,1< (B-$,1=?(B]+")
-	    (or (font-shape-text pos (match-end 0) auto-compose-current-font))
-	  (if (looking-at tamil-composable-pattern)
-	      (prog1 (match-end 0)
-		(tamil-compose-syllable-region pos (match-end 0))))))))
-
-(provide 'tml-util)
-
-;;; arch-tag: 4d1c9737-e7b1-44cf-a040-4f64c50e773e
-;;; tml-util.el ends here
-- 
2.39.2