/[emacs]/emacs/lisp/language/tibetan.el
ViewVC logotype

Diff of /emacs/lisp/language/tibetan.el

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

revision 1.18.2.1 by handa, Fri Mar 1 02:28:29 2002 UTC revision 1.18.2.2 by handa, Thu Nov 7 06:32:49 2002 UTC
# Line 101  Line 101 
101               (sample-text               (sample-text
102                . (tibetan-compose-string                . (tibetan-compose-string
103                   (copy-sequence                   (copy-sequence
104  "Tibetan (4$(7"7r'"]0"7"]14"20"21!;4%P0"G#!"Q14"20"21!;(B) $(7!4!5!5!>4"70"714$P0"!#C"Q1!;4"Er'"S0"E"S14"G0"G1!;4"70"714"2r'"[0"2"[1!;4"Dr'"[0"D"[14"#0"#14"G0"G1!>4"Ir'"]r'"_0"I"]"_1!;4"90"9"Q1!;4"/r'"S0"/"S1!;4"50"5"Q14#2x!#9r'"[0"2#9"[1!;4"Hx!"Rx!"Ur'"c0"H"A"U"c1!>(B")))))  "Tibetan ($(7"7"]"2!;"G#!"Q"2!;(B) $(7!4!5!5!>"7"!#C"Q!;"E"S"G!;"7"2"[!;"D"["#"G!>"I"]"_!;"9"Q!;"/"S!;"5"Q"2#9"[!;"H"A"U"c!>(B")))))
105    
106    
107  ;; `$(7"A(B' is included in the pattern for subjoined consonants because we  ;; `$(7"A(B' is included in the pattern for subjoined consonants because we
# Line 116  Line 116 
116    "[$(7"!(B-$(7"J"K(B][$(7#!(B-$(7#J#K#L#M(B]*[$(7"Q"R"S(B-$(7"^"a"b"e(B]*[$(7"_"c"d"g(B-$(7"l!I!e!g(B]*"    "[$(7"!(B-$(7"J"K(B][$(7#!(B-$(7#J#K#L#M(B]*[$(7"Q"R"S(B-$(7"^"a"b"e(B]*[$(7"_"c"d"g(B-$(7"l!I!e!g(B]*"
117    "Regexp matching a composable sequence of Tibetan characters.")    "Regexp matching a composable sequence of Tibetan characters.")
118    
 ;; Register a function to compose Tibetan characters.  
 (set-char-table-range composition-function-table  
                       (cons (decode-char 'tibetan #x2121)  
                             (decode-char 'tibetan #x7E7E))  
                       (list (cons tibetan-composable-pattern  
                                   'tibetan-composition-function)))  
   
119  ;;;  ;;;
120  ;;; Definitions of conversion data.  ;;; Definitions of conversion data.
121  ;;;  ;;;
# Line 557  Line 550 
550      ("$(7"G#9(B" . "$(7%Y(B")))      ("$(7"G#9(B" . "$(7%Y(B")))
551    
552  (defconst tibetan-obsolete-glyphs  (defconst tibetan-obsolete-glyphs
553    `(("$(7!=(B" . "$(8!=(B")                 ; 2 col <-> 1 col    `(("$(7!=(B" . "$(7!=(B")                 ; 2 col <-> 1 col
554      ("$(7!?(B" . "$(8!?(B")      ("$(7!?(B" . "$(7!?(B")
555      ("$(7!@(B" . "$(8!@(B")      ("$(7!@(B" . "$(7!@(B")
556      ("$(7!A(B" . "$(8!A(B")      ("$(7!A(B" . "$(7!A(B")
557      ("$(7"`(B" . "$(8"`(B")      ("$(7"`(B" . "$(7"`(B")
558      ("$(7!;(B" . "$(8!;(B")      ("$(7!;(B" . "$(7!;(B")
559      ("$(7!D(B" . "$(8!D(B")      ("$(7!D(B" . "$(7!D(B")
560      ;; Yes these are dirty. But ...      ;; Yes these are dirty. But ...
561      ("$(7!>(B $(7!>(B" . ,(compose-string "$(7!>(B $(7!>(B" 0 3 [?$(7!>(B (Br . Bl) ?  (Br . Bl) ?$(7!>(B]))      ("$(7!>(B $(7!>(B" . ,(compose-string "$(7!>(B $(7!>(B" 0 3 [?$(7!>(B (Br . Bl) ?  (Br . Bl) ?$(7!>(B]))
562      ("$(7!4!5!5(B" . ,(compose-string      ("$(7!4!5!5(B" . ,(compose-string
# Line 626  This also matches some punctuation chara Line 619  This also matches some punctuation chara
619  (defvar tibetan-decomposed nil)  (defvar tibetan-decomposed nil)
620  (defvar tibetan-decomposed-temp nil)  (defvar tibetan-decomposed-temp nil)
621    
622    ;; For automatic composition.
623    (dolist (range '((?$(7#!(B . ?$(7#J(B) "$(7#K#L#M"Q"R(B" (?$(7"S(B . ?$(7"^(B) "$(7"a"b"e"_"c"d(B" (?$(7"g(B . ?$(7"l(B) "$(7!I!e!g(B"))
624      (if (stringp range)
625          (dotimes (i (length range))
626            (aset composition-function-table (aref range i)
627                  'tibetan-composition-function))
628        (set-char-table-range composition-function-table range
629                              'tibetan-composition-function)))
630    
631  (provide 'tibetan)  (provide 'tibetan)
632    
633  ;;; tibetan.el ends here  ;;; tibetan.el ends here

Legend:
Removed from v.1.18.2.1  
changed lines
  Added in v.1.18.2.2

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