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 |
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 |
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. |