(quail-define-indian-trans-package): Unquote

lambda.
(quail-define-inscript-package): Avoid mapcar*.

2 files changed, 16 insertions, 12 deletions

diff --git a/leim/ChangeLog b/leim/ChangeLog
index aa49544974f..b3a2a8ed3d4 100644
--- a/leim/ChangeLog
+++ b/leim/ChangeLog
@@ -1,3 +1,9 @@
+2002-01-01  Dave Love  <fx@gnu.org>
+
+        * quail/indian.el (quail-define-indian-trans-package): Unquote
+        lambda.
+        (quail-define-inscript-package): Avoid mapcar*.
+
 2001-12-20  Dave Love  <fx@gnu.org>
 
         * quail/latin-ltx.el: Fix un-doubled backslashes.
diff --git a/leim/quail/indian.el b/leim/quail/indian.el
index c00f8a23695..a7cad43c141 100644
--- a/leim/quail/indian.el
+++ b/leim/quail/indian.el
@@ -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))))))
 
 ;;