Mercurial > emacs

changeset 17293:273b0cd6aac4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Change descriptions for Arabic, Indian, and Vietnamese character sets. Define Tibetan character sets.
author Kenichi Handa <handa@m17n.org>
date Sat, 05 Apr 1997 02:35:53 +0000
parents a84bd5962283
children d7ae63db9e6e
files lisp/international/mule-conf.el
diffstat 1 files changed, 13 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/mule-conf.el	Sat Apr 05 02:35:53 1997 +0000
+++ b/lisp/international/mule-conf.el	Sat Apr 05 02:35:53 1997 +0000
@@ -121,20 +121,20 @@
 ;; character set, it is divided into two: lower case letters and upper
 ;; case letters.
 (define-charset nil 'vietnamese-viscii-lower
-  [1 96 1 0 ?1 1 "VISCII" "VISCII lower-case" "VISCII1.1 lower-case"])
+  [1 96 1 0 ?1 1 "VISCII lower" "VISCII lower-case" "VISCII1.1 lower-case"])
 (define-charset nil 'vietnamese-viscii-upper
-  [1 96 1 0 ?2 1 "VISCII" "VISCII upper-case" "VISCII1.1 upper-case"])
+  [1 96 1 0 ?2 1 "VISCII upper" "VISCII upper-case" "VISCII1.1 upper-case"])
 
 ;; For Arabic, we need three different types of character sets.
 ;; Digits are of direction left-to-right and of width 1-column.
 ;; Others are of direction right-to-left and of width 1-column or
 ;; 2-column.
 (define-charset nil 'arabic-digit
-  [1 94 1 0 ?2 0 "Arabic" "Arabic digit" "Arabic digit"])
+  [1 94 1 0 ?2 0 "Arabic digit" "Arabic digit" "Arabic digit"])
 (define-charset nil 'arabic-1-column
-  [1 94 1 1 ?3 0 "Arabic" "Arabic 1-column" "Arabic 1-column"])
+  [1 94 1 1 ?3 0 "Arabic 1-col" "Arabic 1-column" "Arabic 1-column"])
 (define-charset nil 'arabic-2-column
-  [1 94 2 1 ?4 0 "Arabic" "Arabic 2-column" "Arabic 2-column"])
+  [1 94 2 1 ?4 0 "Arabic 2-col" "Arabic 2-column" "Arabic 2-column"])
 
 ;; Ethiopic characters (Amahric and Tigrigna).
 (define-charset nil 'ethiopic
@@ -173,11 +173,11 @@
      "Generic Indian charset for data exchange with IS 13194"])
 ;; Actual Glyph for 2-column width.
 (define-charset nil 'indian-2-column
-  [2 94 2 0 ?5 0 "Indian" "Indian 2 Column"
+  [2 94 2 0 ?5 0 "Indian 2-col" "Indian 2 Column"
      "Indian charset for 2-column width glyphs"])
 ;; Actual Glyph for 1-column width.
 (define-charset nil 'indian-1-column
-  [2 94 1 0 ?6 0 "Indian" "Indian 1 Column"
+  [2 94 1 0 ?6 0 "Indian 1-col" "Indian 1 Column"
      "Indian charset for 2-column width glypps"])
 
 ;; Lao script.
@@ -185,6 +185,12 @@
 (define-charset nil 'lao
   [1 94 1 0 ?1 0 "Lao" "Lao" "Lao characters (ISO10646 0E80..0EDF)"])
 
+;; Tibetan script.
+(define-charset nil 'tibetan
+  [2 94 2 0 ?7 0 "Tibetan 2-col" "Tibetan 2 column" "Tibetan characters"])
+(define-charset nil 'tibetan-1-column
+  [2 94 1 0 ?8 0 "Tibetan 1-col" "Tibetan 1 column" "Tibetan 1 column glyph"])
+
 
 ;; This is a table of alternate charsets.
 (setq alternate-charset-table