;;; ids-find.el --- search utility based on Ideographic-structures
-;; Copyright (C) 2002,2003,2005,2006,2007,2017 MORIOKA Tomohiko
+;; Copyright (C) 2002, 2003, 2005, 2006, 2007, 2017, 2020 MORIOKA Tomohiko
;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
;; Keywords: Kanji, Ideographs, search, IDS, CHISE, UCS, Unicode
(ids-index-store-structure c v)
nil)
'ideographic-structure)
+ (map-char-attribute
+ (lambda (c v)
+ (ids-index-store-structure c v)
+ nil)
+ 'ideographic-structure@apparent)
(save-char-attribute-table 'ideographic-products))
(when (string-match "^<-.*[@/]component\\(/[^*/]+\\)*$"
(symbol-name feature))
(push feature dest)))
- (cons '<-mistakable
- dest)))
+ (list* '<-mistakable '->mistakable
+ '<-formed '->formed
+ '<-same '->same
+ '<-original '->original
+ '<-ancient '->ancient
+ dest)))
(defun to-component-features ()
(let (dest)
(when (string-match "^->.*[@/]component\\(/[^*/]+\\)*$"
(symbol-name feature))
(push feature dest)))
- (cons '->formed
- dest)))
+ dest))
;;;###autoload
(defun char-component-variants (char)