# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1053291514 0
# Node ID 39435a35a00328faf1749fcec09baa2fcc6fc7b0
# Parent  aafee8ba3f90e2ee8e687ffbb329ea25c20f9d9d
(indian-regexp-of-hashtbl-keys): Don't sort the argument to regexp-opt.
(indian--puthash-char): Use dolist rather than mapc.

diff -r aafee8ba3f90 -r 39435a35a003 lisp/language/ind-util.el
--- a/lisp/language/ind-util.el	Sun May 18 19:34:14 2003 +0000
+++ b/lisp/language/ind-util.el	Sun May 18 20:58:34 2003 +0000
@@ -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 @@
       (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