[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/leim/quail/indian.el
From: |
Dave Love |
Subject: |
[Emacs-diffs] Changes to emacs/leim/quail/indian.el |
Date: |
Tue, 01 Jan 2002 11:55:00 -0500 |
Index: emacs/leim/quail/indian.el
diff -c emacs/leim/quail/indian.el:1.3 emacs/leim/quail/indian.el:1.4
*** emacs/leim/quail/indian.el:1.3 Mon Dec 24 07:20:50 2001
--- emacs/leim/quail/indian.el Tue Jan 1 11:54:59 2002
***************
*** 133,142 ****
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))))
(cdr hashtbls)))
;;
--- 133,142 ----
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))))
(cdr hashtbls)))
;;
***************
*** 173,187 ****
(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
(if (char-valid-p key) (char-to-string key) key)
! (if (stringp val) (vector val) val))))
! key-table char-table))
;;
--- 173,185 ----
(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)
! (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))))))
;;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/leim/quail/indian.el,
Dave Love <=