From d01ca66b5864907ae42a789cee9166cbc2403bde Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Sun, 31 Jul 2022 09:50:34 +0900 Subject: [PATCH] Add code to compact `ideographic-structure@apparent/rightmost'. --- install-ids.el | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) diff --git a/install-ids.el b/install-ids.el index a9ce523..b586b68 100644 --- 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) + (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 @@ -168,6 +181,18 @@ (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'...") -- 1.7.10.4