/[emacs]/emacs/lisp/language/tibet-util.el
ViewVC logotype

Diff of /emacs/lisp/language/tibet-util.el

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

revision 1.28 by pj, Sat Jan 19 19:12:45 2002 UTC revision 1.28.2.1 by handa, Thu Nov 7 06:33:13 2002 UTC
# Line 120  The returned string has no composition i Line 120  The returned string has no composition i
120  ;;;  ;;;
121  ;;; Here are examples of the words "bsgrubs" and "hfauM"  ;;; Here are examples of the words "bsgrubs" and "hfauM"
122  ;;;  ;;;
123  ;;;            4$(7"70"714%qx!"U0"G###C"U14"70"714"G0"G1(B            4$(7"Hx!"Rx!"Ur'"_0"H"R"U"_1(B  ;;;            $(7"7"G###C"U"7"G(B            $(7"H"R"U"_(B
124  ;;;  ;;;
125  ;;;                             M  ;;;                             M
126  ;;;             b s b s         h  ;;;             b s b s         h
# Line 146  The returned string has no composition i Line 146  The returned string has no composition i
146      ;; If 'a follows a consonant, turn it into the subjoined form.      ;; If 'a follows a consonant, turn it into the subjoined form.
147      ;; * Disabled by Tomabechi 2000/06/09 *      ;; * Disabled by Tomabechi 2000/06/09 *
148      ;; Because in Unicode, $(7"A(B may follow directly a consonant without      ;; Because in Unicode, $(7"A(B may follow directly a consonant without
149      ;; any intervening vowel, as in 4$(7"90"914""0"""Q14"A0"A1!;(B=4$(7"90"91(B 4$(7""0""1(B 4$(7"A0"A1(B not 4$(7"90"91(B 4$(7""0""1(B $(7"Q(B 4$(7"A0"A1(B        ;; any intervening vowel, as in $(7"9"""Q"A!;(B=$(7"9(B $(7""(B $(7"A(B not $(7"9(B $(7""(B $(7"Q(B $(7"A(B  
150      ;;(if (and (= char ?$(7"A(B)      ;;(if (and (= char ?$(7"A(B)
151      ;;       (aref (char-category-set (car last)) ?0))      ;;       (aref (char-category-set (car last)) ?0))
152      ;;  (setq char ?$(7"R(B)) ;; modified for new font by Tomabechi 1999/12/10      ;;  (setq char ?$(7"R(B)) ;; modified for new font by Tomabechi 1999/12/10
# Line 294  are decomposed into normal Tibetan chara Line 294  are decomposed into normal Tibetan chara
294      new))      new))
295    
296  ;;;###autoload  ;;;###autoload
297  (defun tibetan-composition-function (from to pattern &optional string)  (defun tibetan-composition-function (pos &optional string)
298      (setq pos (1- pos))
299    (if string    (if string
300        (tibetan-compose-string string)        ;; Not yet implemented.
301      (tibetan-compose-region from to))        nil
302    (- to from))      (if (>= pos (point-min))
303            (save-excursion
304              (goto-char pos)
305              (if (looking-at tibetan-composable-pattern)
306                  (prog1 (match-end 0)
307                    (tibetan-compose-region pos (match-end 0))))))))
308    
309  ;;;  ;;;
310  ;;; This variable is used to avoid repeated decomposition.  ;;; This variable is used to avoid repeated decomposition.

Legend:
Removed from v.1.28  
changed lines
  Added in v.1.28.2.1

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