line-breaking)))
((memq name '(ideograph=
original-ideograph-of
- vulgar-ideograph-of))
+ ancient-ideograph-of
+ vulgar-ideograph-of
+ simplified-ideograph-of
+ ideographic-variants))
(insert (format "(%-18s%s " name line-breaking))
(setq lbs (concat "\n" (make-string (current-column) ?\ ))
separator nil)