(U-00026B40): Use "凥" instead of "⿸尸几".

[chise/ids.git] / ids-find.el

diff --git a/ids-find.el b/ids-find.el
index a4acb71..3c46851 100644 (file)
--- a/ids-find.el
+++ b/ids-find.el
@@ -1,6 +1,7 @@
 ;;; ids-find.el --- search utility based on Ideographic-structures ;; -*- coding: utf-8-mcs-er -*-
 
-;; Copyright (C) 2002, 2003, 2005, 2006, 2007, 2017, 2020 MORIOKA Tomohiko
+;; Copyright (C) 2002, 2003, 2005, 2006, 2007, 2017, 2020, 2021
+;;   MORIOKA Tomohiko
 
 ;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
 ;; Keywords: Kanji, Ideographs, search, IDS, CHISE, UCS, Unicode
@@ -1623,11 +1624,15 @@ COMPONENT can be a character or char-spec."
                    code))
            )
           ((and (characterp (nth 2 enc-str))
-                (memq (char-ucs (nth 2 enc-str))
-                      '(#x4E00
-                        #x706C
-                        #x65E5 #x66F0 #x5FC3
-                        #x2123C #x58EC #x738B #x7389)))
+                (or (memq (char-ucs (nth 2 enc-str))
+                          '(#x4E00
+                            #x706C
+                            #x65E5 #x66F0 #x5FC3
+                            #x2123C #x58EC #x738B #x7389))
+                    (memq (encode-char (nth 2 enc-str) '=>ucs@component)
+                          '(#x2123C #x58EC))
+                    (eq (encode-char (nth 2 enc-str) '=>ucs@iwds-1)
+                        #x7389)))
            (unless conversion-only
              (setq f-res (ids-find-chars-including-ids enc-str)))
            (setq new-str (list ?⿰