[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/language/tibetan.el,v
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/language/tibetan.el,v |
Date: |
Fri, 01 Feb 2008 16:02:27 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Miles Bader <miles> 08/02/01 16:01:31
Index: lisp/language/tibetan.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/language/tibetan.el,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -b -r1.28 -r1.29
--- lisp/language/tibetan.el 8 Jan 2008 20:45:56 -0000 1.28
+++ lisp/language/tibetan.el 1 Feb 2008 16:01:01 -0000 1.29
@@ -6,8 +6,11 @@
;; 2006, 2007, 2008
;; National Institute of Advanced Industrial Science and Technology (AIST)
;; Registration Number H14PRO021
+;; Copyright (C) 2003
+;; National Institute of Advanced Industrial Science and Technology (AIST)
+;; Registration Number H13PRO009
-;; Keywords: multilingual, Tibetan
+;; Keywords: multilingual, Tibetan, i18n
;; This file is part of GNU Emacs.
@@ -86,14 +89,12 @@
;;;
-(make-coding-system
- 'tibetan-iso-8bit 2 ?Q
+(define-coding-system 'tibetan-iso-8bit
"8-bit encoding for ASCII (MSB=0) and TIBETAN (MSB=1)."
- '(ascii tibetan nil nil
- nil nil)
- '((safe-charsets ascii tibetan)
- (post-read-conversion . tibetan-post-read-conversion)
- (pre-write-conversion . tibetan-pre-write-conversion)))
+ :coding-type 'iso-2022
+ :mnemonic ?Q
+ :designation [ascii tibetan nil nil]
+ :charset-list '(ascii tibetan))
(define-coding-system-alias 'tibetan 'tibetan-iso-8bit)
@@ -104,11 +105,7 @@
(input-method . "tibetan-wylie")
(features tibet-util)
(documentation . t)
- (sample-text
- . (tibetan-compose-string
- (copy-sequence
-"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")))))
-
+ (sample-text "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")))
;; `$(7"A(B' is included in the pattern for subjoined consonants because we
;; treat it specially in tibetan-add-components.
@@ -119,13 +116,9 @@
;; $(7"A(B is removed from the class of subjoined. Tomabechi 2000/06/08
;; (for Unicode support)
(defconst tibetan-composable-pattern
-
"[$(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]*[$,1FP$(7"Q"R"S(B-$(7"^"a"b"e(B]*[$(7"_"c"d"g(B-$(7"l!I!e!g(B]*"
"Regexp matching a composable sequence of Tibetan characters.")
-;; Register a function to compose Tibetan characters.
-(aset composition-function-table (make-char 'tibetan)
- (list (cons tibetan-composable-pattern 'tibetan-composition-function)))
-
;;;
;;; Definitions of conversion data.
;;;
@@ -612,6 +605,10 @@
(defvar tibetan-decomposed nil)
(defvar tibetan-decomposed-temp nil)
+;; For automatic composition.
+(set-char-table-range composition-function-table '(#xF00 . #xFD1)
+ '(("[\xF00-\xFD1]+" . font-shape-text)))
+
(provide 'tibetan)
;;; arch-tag: 8d37c8d7-f95d-450f-9ec2-819e61fc79a7
- [Emacs-diffs] Changes to emacs/lisp/language/tibetan.el,v,
Miles Bader <=