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

Add a section for Lao.

diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index ca29d3b7ab38a13ac468456668fc4b4074a059af..b5d627e2dc691ef8ecaf5344cceaf262317b32fe 100644 (file)
--- 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
+                 ("\e(1!\e(B-\e(1N\e(B"    "w"     ?0) ; consonant
+                 ("\e(1PRS]`\e(B-\e(1d\e(B"        "w"     ?1) ; vowel base
+                 ("\e(1QT\e(B-\e(1W[m\e(B" "w"     ?2) ; vowel upper
+                 ("\e(1XY\e(B"           "w"     ?3) ; vowel lower
+                 ("\e(1h\e(B-\e(1l\e(B"    "w"     ?4) ; tone mark 
+                 ("\e(1\\e(B"            "w"     ?9) ; semivowel lower
+                 ("\e(1p\e(B-\e(1y\e(B"    "w"     ?0) ; digit and misc
+                 ("\e(1Of\e(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)