mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

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

Browse Source 
lambda.
(quail-define-inscript-package): Avoid mapcar*.
This commit is contained in:
Dave Love 2002-01-01 16:55:58 +00:00
parent 1996baeec0
commit 7f93e2ab98
2 changed files with 16 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
leim/ChangeLog
View File

@ -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.

22
leim/quail/indian.el
View File

@ -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))))))
;;