Add a provide statement.

[gnu-emacs] / lisp / language / ind-util.el

diff --git a/lisp/language/ind-util.el b/lisp/language/ind-util.el
index 8885960dff8dcb8fab0a61a6f6c7fda562855b70..70b13da46e6e805b470d15144c74bc6bc4fe2410 100644 (file)
--- a/lisp/language/ind-util.el
+++ b/lisp/language/ind-util.el
@@ -1,6 +1,6 @@
 ;;; ind-util.el --- Transliteration and Misc. Tools for Indian Languages -*- coding: iso-2022-7bit; -*-
 
-;; Copyright (C) 2001 Free Software Foundation, Inc.
+;; Copyright (C) 2001, 2003 Free Software Foundation, Inc.
 
 ;; Maintainer:  KAWABATA, Taichi <kawabata@m17n.org>
 ;; Keywords: multilingual, Indian, Devanagari
@@ -42,14 +42,9 @@
 
 (defun indian-regexp-of-hashtbl-keys (hashtbl)
   "Returns the regular expression of hashtable keys."
-  (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))))))))
+  (let (keys)
+    (maphash (lambda (key val) (push key keys)) hashtbl)
+    (regexp-opt keys)))
 
 (defvar indian-dev-base-table
   '(
@@ -414,10 +409,8 @@ FUNCTION will be called 15 times."
       (if (stringp trans-char) (setq trans-char (list trans-char)))
       (if (char-valid-p char) (setq char (char-to-string char)))
       (puthash char (car trans-char) encode-hash)
-      (mapc
-       (lambda (trans)
-        (puthash trans char decode-hash))
-       trans-char))))
+      (dolist (trans trans-char)
+        (puthash trans char decode-hash)))))
 
 (defun indian--map (f l1 l2)
   (while l1
@@ -722,6 +715,7 @@ FUNCTION will be called 15 times."
 (defvar ucs-tamil-to-is13194-alist nil)
 (defvar ucs-telugu-to-is13194-alist nil)
 (defvar ucs-malayalam-to-is13194-alist nil)
+(defvar ucs-kannada-to-is13194-alist nil)
 
 (defvar is13194-default-repartory 'devanagari)
 
@@ -758,6 +752,8 @@ FUNCTION will be called 15 times."
 (defvar is13194-to-ucs-telugu-regexp nil)
 (defvar is13194-to-ucs-malayalam-hashtbl nil)
 (defvar is13194-to-ucs-malayalam-regexp nil)
+(defvar is13194-to-ucs-kannada-hashtbl nil)
+(defvar is13194-to-ucs-kannada-regexp nil)
 
 (mapc
  (function (lambda (script)
@@ -778,7 +774,7 @@ FUNCTION will be called 15 times."
                             "-to-is13194-alist"))))
      (set regexp (indian-regexp-of-hashtbl-keys (eval hashtable))))))
  '(devanagari bengali assamese gurmukhi gujarati
-   oriya tamil telugu malayalam))
+   oriya tamil telugu malayalam kannada))
 
 (defvar ucs-to-is13194-regexp
   ;; only Devanagari is supported now.
@@ -1266,4 +1262,5 @@ See also the function `indian-glyph-char'."
 
 (provide 'ind-util)
 
+;;; arch-tag: 59aacd71-46c2-4cb3-bb26-e12bbad55545
 ;;; ind-util.el ends here