# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1033937623 0
# Node ID 552fd1c40da7ff7f0574dc5ef1263be235051eb4
# Parent  9e9bcc888899f7998e7e1cbcc239db922fcbe905
(quail-indian-preceding-char-position)
(quail-indian-update-translation, quail-define-inscript-package):
Use characterp, not char-valid-p.

diff -r 9e9bcc888899 -r 552fd1c40da7 leim/quail/indian.el
--- a/leim/quail/indian.el	Sun Oct 06 17:36:27 2002 +0000
+++ b/leim/quail/indian.el	Sun Oct 06 20:53:43 2002 +0000
@@ -39,7 +39,7 @@
 (defun quail-indian-preceding-char-position (position)
   "Return the position of preceding composite character."
   (let (prec-composed)
-    (if (char-valid-p (char-before position)) ;; range o.k.
+    (if (characterp (char-before position)) ;; range o.k.
         (if (setq prec-composed (find-composition (1- position)))
             (car prec-composed)
           (1- position))
@@ -67,7 +67,7 @@
   ;;(message "input control-flag=%s, string=%s, key=%s"
   ;;         control-flag quail-current-str quail-current-key)
   ;; make quail-current-str string when possible.
-  (if (char-valid-p quail-current-str)
+  (if (characterp quail-current-str)
       (setq quail-current-str (char-to-string quail-current-str)))
   ;; reset quail-indian-update-preceding-char if it's initial.
   (if (= (overlay-start quail-overlay) (overlay-end quail-overlay))
@@ -182,7 +182,7 @@
     (let ((val (pop char-table)))
       (if (and key val)
 	  (quail-defrule
-	    (if (char-valid-p key) (char-to-string key) key)
+	    (if (characterp key) (char-to-string key) key)
 	    (if (stringp val) (vector val) val))))))
 
 ;;