From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Tue, 22 Feb 2022 14:15:57 +0000 (+0900)
Subject: (ideographic-structure-compact): Convert components represented by
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e7ac6795fa339d1b7d3d65bf297a82c30e564887;p=chise%2Fids.git

(ideographic-structure-compact): Convert components represented by
char-specs to character-objects.
---

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))