From e7ac6795fa339d1b7d3d65bf297a82c30e564887 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Tue, 22 Feb 2022 23:15:57 +0900 Subject: [PATCH] (ideographic-structure-compact): Convert components represented by char-specs to character-objects. --- ids-find.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/ids-find.el b/ids-find.el index 6dffafa..9684d89 100644 --- a/ids-find.el +++ b/ids-find.el @@ -772,6 +772,9 @@ COMPONENT can be a character or char-spec." ret dest sub) (while rest (setq cell (pop rest)) + (if (and (consp cell) + (setq ret (find-char cell))) + (setq cell ret)) (cond ((and (consp cell) (cond ((setq ret (assq 'ideographic-structure cell)) -- 1.7.10.4