From 62311941f3eceaebaaac44d870025312a924db7c Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Thu, 10 Dec 2020 18:26:15 +0900 Subject: [PATCH] Add code to compact `ideographic-structure' and `ideographic-structure@apparent' in the second stage. --- install-ids.el | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) diff --git a/install-ids.el b/install-ids.el index 9f0b9e3..49e1927 100644 --- a/install-ids.el +++ b/install-ids.el @@ -114,6 +114,31 @@ (setq v ret)) nil) 'ideographic-structure@apparent) + + (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 + (ideographic-structure-to-ids v) + (ideographic-structure-to-ids ret))) + (put-char-attribute c 'ideographic-structure ret) + (setq v ret)) + nil) + 'ideographic-structure) + (map-char-attribute + (lambda (c v) + (unless (equal (setq ret (ideographic-structure-compact v)) v) + (princ (format "Compact %04X (%c) : [apparent] %s -> %s\n" + (char-int c) + c + (ideographic-structure-to-ids v) + (ideographic-structure-to-ids ret))) + (put-char-attribute c 'ideographic-structure@apparent ret) + (setq v ret)) + nil) + 'ideographic-structure@apparent) (princ "done.\n") (princ "Updating char-feature `ideographic-structure'...") -- 1.7.10.4