- ((memq name '(->lowercase
- ->uppercase ->titlecase
- ->fullwidth <-fullwidth
- ->identical
- ->vulgar-ideograph <-vulgar-ideograph
- ->ancient-ideograph <-ancient-ideograph
- ->original-ideograph <-original-ideograph
- ->simplified-ideograph <-simplified-ideograph
- ->wrong-ideograph <-wrong-ideograph
- ->same-ideograph
- ->ideographic-variants
- ->synonyms
- ->radical <-radical
- ->bopomofo <-bopomofo
- ->ideographic <-ideographic
- ideographic-structure))
+ ((or (eq name 'ideographic-structure)
+ (eq name 'ideographic-)
+ (string-match "^\\(->\\|<-\\)" (symbol-name name)))
+ ;; (memq name '(->lowercase
+ ;; ->uppercase ->titlecase
+ ;; ->fullwidth <-fullwidth
+ ;; ->identical
+ ;; ->vulgar-ideograph <-vulgar-ideograph
+ ;; ->ancient-ideograph <-ancient-ideograph
+ ;; ->original-ideograph <-original-ideograph
+ ;; ->simplified-ideograph <-simplified-ideograph
+ ;; ->wrong-ideograph <-wrong-ideograph
+ ;; ->same-ideograph
+ ;; ->ideographic-variants
+ ;; ->synonyms
+ ;; ->radical <-radical
+ ;; ->bopomofo <-bopomofo
+ ;; ->ideographic <-ideographic
+ ;; ideographic-structure))