diff options
Diffstat (limited to 'leim/quail/indian.el')
| -rw-r--r-- | leim/quail/indian.el | 22 |
1 files changed, 10 insertions, 12 deletions
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)))))) ;; |