Function: indian--puthash-char

indian--puthash-char is a byte-compiled function defined in ind-util.el.gz.

Signature

(indian--puthash-char CHAR TRANS-CHAR HASHTBLS)

Source Code

;; Defined in /usr/src/emacs/lisp/language/ind-util.el.gz
(defun indian--puthash-char (char trans-char hashtbls)
  (let ((encode-hash (car hashtbls))  ;; char -> trans
	(decode-hash (cdr hashtbls))  ;; trans -> char
	)
    ;; char -- nil / char / string (/ list of vowel & matra)
    ;; trans-char -- nil / string / list of strings
    (when (and char trans-char)
      (if (stringp trans-char) (setq trans-char (list trans-char)))
      (if (characterp char) (setq char (char-to-string char)))
      (puthash char (car trans-char) encode-hash)
      (dolist (trans trans-char)
	 (puthash trans char decode-hash)))))