Remove prefix "coding-system-" from coding system symbol names.

Add a section for Lao.

1 files changed, 39 insertions, 2 deletions

diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index ca29d3b7ab3..b5d627e2dc6 100644
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -25,7 +25,7 @@
 ;;; Commentary:
 
 ;; This file contains multibyte characters.  Save this file always in
-;; `coding-system-iso-2022-7'.
+;; the coding system `iso-2022-7'.
 
 ;;; Predefined categories.
 
@@ -46,6 +46,7 @@
 (define-category ?e "Ethiopic (Ge'ez)")
 (define-category ?v "Vietnamese")
 (define-category ?i "Indian")
+(define-category ?o "Lao")
 
 ;; For each group (row) of 2-byte character sets.
 
@@ -68,7 +69,8 @@
 (define-category ?5 "vowel")
 (define-category ?6 "digit")
 (define-category ?7 "vowel-modifying diacritical mark")
-(define-category ?8 "vowel-signs.")
+(define-category ?8 "vowel-signs")
+(define-category ?9 "semivowel lower")
 
 ;; For filling.
 (define-category ?| "While filling, we can break a line at this character.")
@@ -324,6 +326,41 @@
 (modify-category-entry (make-char 'korean-ksc5601 43) ?K)
 (modify-category-entry (make-char 'korean-ksc5601 44) ?Y)
 
+;; Lao character set
+
+(modify-category-entry (make-char 'lao) ?o)
+
+(let ((deflist	'(;; chars	syntax	category
+		  ("(1!(B-(1N(B"	"w"	?0) ; consonant
+		  ("(1PRS]`(B-(1d(B"	"w"	?1) ; vowel base
+		  ("(1QT(B-(1W[m(B"	"w"	?2) ; vowel upper
+		  ("(1XY(B"		"w"	?3) ; vowel lower
+		  ("(1h(B-(1l(B"	"w"	?4) ; tone mark 
+		  ("(1\(B"		"w"	?9) ; semivowel lower
+		  ("(1p(B-(1y(B"	"w"	?0) ; digit and misc
+		  ("(1Of(B"		"_"	?0) ; symbol
+		  ))
+      elm chars len syntax category to ch i)
+  (while deflist
+    (setq elm (car deflist))
+    (setq chars (car elm)
+	  len (length chars)
+	  syntax (nth 1 elm)
+	  category (nth 2 elm)
+	  i 0)
+    (while (< i len)
+      (if (= (aref chars i) ?-)
+	  (setq i (1+ i)
+		to (sref chars i))
+	(setq ch (sref chars i)
+	      to ch))
+      (while (<= ch to)
+	(modify-syntax-entry ch syntax)
+	(modify-category-entry ch category)
+	(setq ch (1+ ch)))
+      (setq i (+ i (char-bytes to))))
+    (setq deflist (cdr deflist))))
+
 ;; Thai character set (TIS620)
 
 (modify-category-entry (make-char 'thai-tis620) ?t)