Change descriptions for Arabic, Indian, and

Vietnamese character sets.  Define Tibetan character sets.

1 files changed, 13 insertions, 7 deletions

diff --git a/lisp/international/mule-conf.el b/lisp/international/mule-conf.el
index 883254dba29..203bf001eec 100644
--- a/lisp/international/mule-conf.el
+++ b/lisp/international/mule-conf.el
@@ -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