(when (string-match "^<-.*[@/]component\\(/[^*/]+\\)*$"
(symbol-name feature))
(push feature dest)))
- (cons '<-ideographic-component-forms
- 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 '->ideographic-component-forms
- dest)))
+ dest))
;;;###autoload
(defun char-component-variants (char)
v)))
(defun ids-insert-chars-including-components* (components
- &optional level ignored-chars)
+ &optional level ignored-chars)
(unless level
(setq level 0))
(let (is i as bs)
(with-current-buffer (get-buffer-create ids-find-result-buffer)
(setq buffer-read-only nil)
(erase-buffer)
- (let (ucs jis)
- (map-char-attribute
- (lambda (c v)
- (when (ideographic-structure-repertoire-p v components)
- (insert (ids-find-format-line c v))))
- 'ideographic-structure))
+ (map-char-attribute
+ (lambda (c v)
+ (when (ideographic-structure-repertoire-p v components)
+ (insert (ids-find-format-line c v))))
+ 'ideographic-structure)
(goto-char (point-min)))
(view-buffer ids-find-result-buffer))