Improve commentary in composite.el
* lisp/composite.el (compose-gstring-for-graphic) (compose-gstring-for-terminal): Add comments that explain Unicode General Category mnemonics in human-readable terms. (Bug#14461)
This commit is contained in:
parent
3a04be2005
commit
5f992d1990
1 changed files with 8 additions and 1 deletions
|
@ -554,6 +554,11 @@ All non-spacing characters have this function in
|
|||
;; This sequence doesn't start with a proper base character.
|
||||
((memq (get-char-code-property (lgstring-char gstring 0)
|
||||
'general-category)
|
||||
;; "Improper" base characters are of the following general
|
||||
;; categories:
|
||||
;; Mark (nonspacing, combining, enclosing)
|
||||
;; Separator (space, line, paragraph)
|
||||
;; Other (control, format, surrogate)
|
||||
'(Mn Mc Me Zs Zl Zp Cc Cf Cs))
|
||||
nil)
|
||||
|
||||
|
@ -646,6 +651,7 @@ All non-spacing characters have this function in
|
|||
de (+ de yoff)))
|
||||
((and (= class 0)
|
||||
(eq (get-char-code-property (lglyph-char glyph)
|
||||
;; Me = enclosing mark
|
||||
'general-category) 'Me))
|
||||
;; Artificially laying out glyphs in an enclosing
|
||||
;; mark is difficult. All we can do is to adjust
|
||||
|
@ -771,7 +777,8 @@ prepending a space before it."
|
|||
'general-category)
|
||||
'Cf)
|
||||
(progn
|
||||
;; Compose by replacing with a space.
|
||||
;; Compose Cf (format) control characters by
|
||||
;; replacing with a space.
|
||||
(lglyph-set-char glyph 32)
|
||||
(lglyph-set-width glyph 1)
|
||||
(setq i (1+ i)))
|
||||
|
|
Loading…
Add table
Reference in a new issue