projects
/
chise
/
ids.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b0a4607
)
Add code to compact `ideographic-structure@apparent/rightmost'.
author
MORIOKA Tomohiko
<tomo.git@chise.org>
Sun, 31 Jul 2022 00:50:34 +0000
(09:50 +0900)
committer
MORIOKA Tomohiko
<tomo.git@chise.org>
Tue, 2 Aug 2022 13:28:09 +0000
(22:28 +0900)
install-ids.el
patch
|
blob
|
history
diff --git
a/install-ids.el
b/install-ids.el
index
a9ce523
..
b586b68
100644
(file)
--- a/
install-ids.el
+++ b/
install-ids.el
@@
-135,6
+135,19
@@
(map-char-attribute
(lambda (c v)
(unless (equal (setq ret (ideographic-structure-compact v)) v)
(map-char-attribute
(lambda (c v)
(unless (equal (setq ret (ideographic-structure-compact v)) v)
+ (princ (format "Compact %04X (%c) : [apparent/rightmost] %s -> %s\n"
+ (char-int c)
+ c
+ (ideographic-structure-to-ids v)
+ (ideographic-structure-to-ids ret)))
+ (put-char-attribute c 'ideographic-structure@apparent/rightmost ret)
+ (setq v ret))
+ nil)
+ 'ideographic-structure@apparent/rightmost)
+
+ (map-char-attribute
+ (lambda (c v)
+ (unless (equal (setq ret (ideographic-structure-compact v)) v)
(princ (format "Compact %04X (%c) : %s -> %s\n"
(char-int c)
c
(princ (format "Compact %04X (%c) : %s -> %s\n"
(char-int c)
c
@@
-168,6
+181,18
@@
(setq v ret))
nil)
'ideographic-structure@apparent/leftmost)
(setq v ret))
nil)
'ideographic-structure@apparent/leftmost)
+ (map-char-attribute
+ (lambda (c v)
+ (unless (equal (setq ret (ideographic-structure-compact v)) v)
+ (princ (format "Compact %04X (%c) : [apparent/rightmost] %s -> %s\n"
+ (char-int c)
+ c
+ (ideographic-structure-to-ids v)
+ (ideographic-structure-to-ids ret)))
+ (put-char-attribute c 'ideographic-structure@apparent/rightmost ret)
+ (setq v ret))
+ nil)
+ 'ideographic-structure@apparent/rightmost)
(princ "done.\n")
(princ "Updating char-feature `ideographic-structure'...")
(princ "done.\n")
(princ "Updating char-feature `ideographic-structure'...")