39 |
(defun quail-indian-preceding-char-position (position) |
(defun quail-indian-preceding-char-position (position) |
40 |
"Return the position of preceding composite character." |
"Return the position of preceding composite character." |
41 |
(let (prec-composed) |
(let (prec-composed) |
42 |
(if (char-valid-p (char-before position)) ;; range o.k. |
(if (characterp (char-before position)) ;; range o.k. |
43 |
(if (setq prec-composed (find-composition (1- position))) |
(if (setq prec-composed (find-composition (1- position))) |
44 |
(car prec-composed) |
(car prec-composed) |
45 |
(1- position)) |
(1- position)) |
67 |
;;(message "input control-flag=%s, string=%s, key=%s" |
;;(message "input control-flag=%s, string=%s, key=%s" |
68 |
;; control-flag quail-current-str quail-current-key) |
;; control-flag quail-current-str quail-current-key) |
69 |
;; make quail-current-str string when possible. |
;; make quail-current-str string when possible. |
70 |
(if (char-valid-p quail-current-str) |
(if (characterp quail-current-str) |
71 |
(setq quail-current-str (char-to-string quail-current-str))) |
(setq quail-current-str (char-to-string quail-current-str))) |
72 |
;; reset quail-indian-update-preceding-char if it's initial. |
;; reset quail-indian-update-preceding-char if it's initial. |
73 |
(if (= (overlay-start quail-overlay) (overlay-end quail-overlay)) |
(if (= (overlay-start quail-overlay) (overlay-end quail-overlay)) |
182 |
(let ((val (pop char-table))) |
(let ((val (pop char-table))) |
183 |
(if (and key val) |
(if (and key val) |
184 |
(quail-defrule |
(quail-defrule |
185 |
(if (char-valid-p key) (char-to-string key) key) |
(if (characterp key) (char-to-string key) key) |
186 |
(if (stringp val) (vector val) val)))))) |
(if (stringp val) (vector val) val)))))) |
187 |
|
|
188 |
;; |
;; |