Commit 7f93e2ab authored by Dave Love's avatar Dave Love
Browse files

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

lambda.
(quail-define-inscript-package): Avoid mapcar*.
parent 1996baee
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.
......
......@@ -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))))))
;;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment