Mercurial > emacs
changeset 89169:552fd1c40da7
(quail-indian-preceding-char-position)
(quail-indian-update-translation, quail-define-inscript-package):
Use characterp, not char-valid-p.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Sun, 06 Oct 2002 20:53:43 +0000 |
| parents | 9e9bcc888899 |
| children | dfb403b5572b |
| files | leim/quail/indian.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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)))))) ;;