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

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

diff --git a/leim/ChangeLog b/leim/ChangeLog
index aa49544974fc6353312a49e11ce3e94b6060e961..b3a2a8ed3d4618149032ece9675b3ea853223b5e 100644 (file)
--- 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 c00f8a23695a8a315540f1b979da60e673508122..a7cad43c1411d10c94a278b8adc015a4a31c7897 100644 (file)
--- 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))))))
 
 ;;