From bf1ad8c52beaf08bf16016a143a39e3f6d6c9c63 Mon Sep 17 00:00:00 2001
From: Dave Love <fx@gnu.org>
Date: Sun, 8 Sep 2002 00:02:46 +0000
Subject: [PATCH] (eight-bit): Add :docstring, :short-name properties. (cp851):
 Doc fix. (unicode-bmp): New.

---
 lisp/ChangeLog                  | 13 +++++++++++++
 lisp/international/mule-conf.el | 24 ++++++++++++++++++++----
 2 files changed, 33 insertions(+), 4 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b3b512a1228..1252a054f01 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,16 @@
+2002-09-08  Dave Love  <fx@gnu.org>
+
+	* international/mule-conf.el (eight-bit): Add :docstring,
+	:short-name properties.
+	(cp851): Doc fix.
+	(unicode-bmp): New.
+
+	* case-table.el (set-case-syntax-pair): Remove check on byte
+	lengths.
+
+	* language/european.el (cp858): New.
+	("Turkish"): Add special case rules.
+
 2002-09-05  Dave Love  <fx@gnu.org>
 
 	* international/characters.el: Make ,_/(B and ,A(B a case pair.
diff --git a/lisp/international/mule-conf.el b/lisp/international/mule-conf.el
index f1dbd6b100a..f999ba8529d 100644
--- a/lisp/international/mule-conf.el
+++ b/lisp/international/mule-conf.el
@@ -49,14 +49,14 @@
 
 ;;; Definitions of character sets.
 
-;; The charsets `ascii' and `unicode' are already defined in charset.c
-;; as below:
+;; The charsets `ascii', `unicode' and `eight-bit' are already defined
+;; in charset.c as below:
 ;;
 ;; (define-charset 'ascii
 ;;   ""
 ;;   :dimension 1
 ;;   :code-space [0 127]
-;;   :iso-final-char ?A
+;;   :iso-final-char ?B
 ;;   :ascii-compatible-p t
 ;;   :emacs-mule-id 0
 ;;   :code-offset 0)
@@ -68,6 +68,12 @@
 ;;   :ascii-compatible-p t
 ;;   :code-offset 0)
 ;;
+;; (define-charset 'eight-bit
+;;   ""
+;;   :dimension 1
+;;   :code-space [128 255]
+;;   :code-offset #x3FFF80)
+;;
 ;; We now set :docstring, :short-name, and :long-name properties.
 
 (put-charset-property
@@ -88,6 +94,8 @@
  'unicode :short-name "Unicode")
 (put-charset-property
  'unicode :long-name "Unicode (ISO10646)")
+(put-charset-property 'eight-bit :docstring "Raw bytes 0-255")
+(put-charset-property 'eight-bit :short-name "Raw bytes")
 
 (define-charset-alias 'ucs 'unicode)
 
@@ -201,6 +209,7 @@
 (fmakunbound 'define-iso-single-byte-charset)
 
 ;; Can this be shared with 8859-11?
+;; N.b. not all of these are defined unicodes.
 (define-charset 'thai-tis620
   "TIS620.2533"
   :short-name "TIS620.2533"
@@ -639,7 +648,7 @@
   :map "cp775")
 
 (define-charset 'cp851
-  "CP851"
+  "CP851 (Greek)"
   :short-name "CP851"
   :code-space [0 255]
   :ascii-compatible-p t
@@ -762,6 +771,7 @@
 
 ;; Lao script.
 ;; Codes 0x21..0x7E are mapped to Unicode U+0E81..U+0EDF.
+;; Not all of them are defined unicodes.
 (define-charset 'lao
   "Lao characters (ISO10646 0E81..0EDF)"
   :short-name "Lao"
@@ -875,6 +885,12 @@
   :code-space [#x20 #x7F #x20 #x7F]
   :code-offset #x100)
 
+(define-charset 'unicode-bmp
+  "Unicode Basic Multilingual Plane"
+  :short-name "Unicode BMP"
+  :code-space [0 255 0 255]
+  :subset '(unicode 0 #xFFFF 0))
+
 (define-charset 'ethiopic
   "Ethiopic characters for Amharic and Tigrigna."
   :short-name "Ethiopic"
-- 
2.39.5