diff options
| author | Dave Love <fx@gnu.org> | 2002-10-06 20:53:43 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2002-10-06 20:53:43 +0000 |
| commit | 952b3c319a6c49b2aa0d05c2c0111b1b8e9019b3 (patch) | |
| tree | b6e788c1f2a9051a72a5ca9b1fb0040d2fb79dfa /leim/quail/indian.el | |
| parent | 3d9a29e03dd65add0608ec4d477c1ec0ac11f0c5 (diff) | |
| download | emacs-952b3c319a6c49b2aa0d05c2c0111b1b8e9019b3.tar.gz | |
(quail-indian-preceding-char-position)
(quail-indian-update-translation, quail-define-inscript-package):
Use characterp, not char-valid-p.
Diffstat (limited to 'leim/quail/indian.el')
| -rw-r--r-- | leim/quail/indian.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/leim/quail/indian.el b/leim/quail/indian.el index 8bec02cdfcf..9a55fa961ca 100644 --- a/leim/quail/indian.el +++ b/leim/quail/indian.el @@ -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)))))) ;; |