procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
* 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.
This commit is contained in:
Eli Zaretskii 2018-07-27 09:47:37 +03:00
parent 2e2f00f8a5
commit 0feb6733d4
3 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/descr-text.el
View file

@ -404,6 +404,12 @@ relevant to POS."
(charset (if eight-bit-p 'eight-bit (charset (if eight-bit-p 'eight-bit
(or (get-text-property pos 'charset) (or (get-text-property pos 'charset)
(char-charset char)))) (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)) (composition (find-composition pos nil nil t))
(component-chars nil) (component-chars nil)
(display-table (or (window-display-table) (display-table (or (window-display-table)

3
lisp/international/mule-diag.el
View file

@ -355,7 +355,8 @@ meanings of these arguments."
(:iso-revision-number "ISO revision number: " (:iso-revision-number "ISO revision number: "
number-to-string) number-to-string)
(:supplementary-p (: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)))) (let ((val (get-charset-property charset (car elt))))
(when val (when val
(if (cadr elt) (insert (cadr elt))) (if (cadr elt) (insert (cadr elt)))

2
lisp/simple.el
View file

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