Display raw bytes as belonging to 'eight-bit' charset

* lisp/descr-text.el (describe-char):
* lisp/simple.el (what-cursor-position): Display characters in the
range #x3FFF80..#x3FFF9F as belonging to charset 'eight-bit', not
'tis620-2533'.
* lisp/international/mule-diag.el (describe-character-set):
Improve description of :supplementary-p.

diff --git a/lisp/descr-text.el b/lisp/descr-text.el
index ddd7d801d2a24463b7f2e79fd6c73ff12c07841e..00b40826f48a818e95d272f5ace8d4393d30be30 100644 (file)
--- a/lisp/descr-text.el
+++ b/lisp/descr-text.el
@@ -404,6 +404,12 @@ relevant to POS."
            (charset (if eight-bit-p 'eight-bit
                       (or (get-text-property pos 'charset)
                           (char-charset char))))
+           ;; TIS620.2533 overlaps eight-bit-control, but we want to
+           ;; show eight-bit for raw bytes, not some obscure character
+           ;; set no one heard of.
+           (charset (if (eq charset 'tis620-2533)
+                        'eight-bit
+                      charset))
            (composition (find-composition pos nil nil t))
            (component-chars nil)
            (display-table (or (window-display-table)

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 7e225607a5ad70c01cc9258c262cf4b2e1e0bf7a..b5a78338f63d9b28a45660aacae7c29874ff2c18 100644 (file)
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -355,7 +355,8 @@ meanings of these arguments."
                     (:iso-revision-number "ISO revision number: "
                                           number-to-string)
                     (:supplementary-p
-                     "Used only as a parent of some other charset." nil)))
+                     "Used only as a parent or a subset of some other charset,
+or provided just for backward compatibility." nil)))
        (let ((val (get-charset-property charset (car elt))))
          (when val
            (if (cadr elt) (insert (cadr elt)))

diff --git a/lisp/simple.el b/lisp/simple.el
index 8b183469f8a62bfbe5a83bd30b3dfc476a2ccb20..90fea11dc1bd4eacc21e140ff8d49645c5210479 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1353,7 +1353,7 @@ in *Help* buffer.  See also the command `describe-char'."
        (if (or (not coding)
                (eq (coding-system-type coding) t))
            (setq coding (default-value 'buffer-file-coding-system)))
-       (if (eq (char-charset char) 'eight-bit)
+       (if (and (>= char #x3fff80) (<= char #x3fffff))
            (setq encoding-msg
                  (format "(%d, #o%o, #x%x, raw-byte)" char char char))
          ;; Check if the character is displayed with some `display'