From 7f93e2ab98701ec98916fb107f48216fc0d2360e Mon Sep 17 00:00:00 2001 From: Dave Love Date: Tue, 1 Jan 2002 16:55:58 +0000 Subject: [PATCH] (quail-define-indian-trans-package): Unquote lambda. (quail-define-inscript-package): Avoid mapcar*. --- leim/ChangeLog | 6 ++++++ leim/quail/indian.el | 22 ++++++++++------------ 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 + + * quail/indian.el (quail-define-indian-trans-package): Unquote + lambda. + (quail-define-inscript-package): Avoid mapcar*. + 2001-12-20 Dave Love * 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)))))) ;; -- 2.39.5