[Emacs-diffs] Changes to emacs/leim/quail/indian.el

[Dave Love]

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