/[emacs]/emacs/leim/quail/indian.el
ViewVC logotype

Diff of /emacs/leim/quail/indian.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4.2.1 by handa, Fri May 31 01:22:25 2002 UTC revision 1.4.2.2 by fx, Sun Oct 6 20:53:43 2002 UTC
# Line 39  Line 39 
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))
# Line 67  Line 67 
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))
# Line 182  Line 182 
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  ;;  ;;

Legend:
Removed from v.1.4.2.1  
changed lines
  Added in v.1.4.2.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26