Mercurial > emacs
changeset 42463:87a33bffaf3c
(quail-define-indian-trans-package): Unquote
lambda.
(quail-define-inscript-package): Avoid mapcar*.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Tue, 01 Jan 2002 16:54:59 +0000 |
| parents | b72bc440aed5 |
| children | 597a6ec79ec5 |
| files | leim/quail/indian.el |
| diffstat | 1 files changed, 10 insertions(+), 12 deletions(-) [+] |
line wrap: on
line diff
--- 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)))))) ;;