# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1009904099 0
# Node ID 87a33bffaf3c698fd65db5ae1723df6205b24cba
# Parent  b72bc440aed534f3a8b7672345b29e70541a821e
(quail-define-indian-trans-package): Unquote
lambda.
(quail-define-inscript-package): Avoid mapcar*.

diff -r b72bc440aed5 -r 87a33bffaf3c leim/quail/indian.el
--- a/leim/quail/indian.el	Tue Jan 01 07:23:41 2002 +0000
+++ b/leim/quail/indian.el	Tue Jan 01 16:54:59 2002 +0000
@@ -133,10 +133,10 @@
 	   nil nil nil nil nil nil t nil
 	   'quail-indian-update-translation)
   (maphash
-   '(lambda (key val)
-      (quail-defrule key (if (= (length val) 1)
-			     (string-to-char val)
-			   (vector val))))
+   (lambda (key val)
+     (quail-defrule key (if (= (length val) 1)
+			    (string-to-char val)
+			  (vector val))))
    (cdr hashtbls)))
 
 ;;
@@ -173,15 +173,13 @@
   (setq key-table (quail-indian-flatten-list key-table))
   (funcall 'quail-define-package pkgname lang title nil docstring
 	   nil nil nil nil nil nil nil nil
-	   'quail-indian-update-translation
-	   )
-  (mapcar*
-   '(lambda (key val)
-      (and key val
-	   (quail-defrule
+	   'quail-indian-update-translation)
+  (dolist (key key-table)
+    (let ((val (pop char-table)))
+      (if (and key val)
+	  (quail-defrule
 	    (if (char-valid-p key) (char-to-string key) key)
-	    (if (stringp val) (vector val) val))))
-   key-table char-table))
+	    (if (stringp val) (vector val) val))))))
 
 ;;