From d99168e47d6fd72a28f317f8dce5e0691dd4820c Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Thu, 15 Oct 2020 09:56:55 +0900 Subject: [PATCH] Add code to compact `ideographic-structure@apparent'. --- install-ids.el | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/install-ids.el b/install-ids.el index cbac096..9f0b9e3 100644 --- a/install-ids.el +++ b/install-ids.el @@ -101,6 +101,19 @@ (ideographic-structure-compact a-str)))) 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